(* 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[ 110914, 2477] NotebookOptionsPosition[ 106615, 2368] NotebookOutlinePosition[ 108375, 2420] CellTagsIndexPosition[ 108332, 2417] WindowTitle->ChebyshevTheta | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "Compute ", Cell[BoxData[ RowBox[{ StyleBox["\[Theta]", "TI"], RowBox[{"(", "30", ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7705068349822497`*^9, 3.7705068446793365`*^9}, 3.770741472354683*^9, {3.7707415293526826`*^9, 3.7707415293526826`*^9}}, CellID->39262419], 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["ChebyshevTheta", "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["ChebyshevTheta", "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/ee5f5472-308d-448f-98ab-b059536c5c3d/"}, "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], "ChebyshevTheta"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChebyshevTheta"], BoxID -> "ChebyshevTheta", Selectable->False], "[", "30", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705076960132427`*^9, 3.77050771625908*^9}}, CellLabel->"In[146]:=", CellID->904993352], Cell[BoxData[ RowBox[{ RowBox[{"Log", "[", "2", "]"}], "+", RowBox[{"Log", "[", "3", "]"}], "+", RowBox[{"Log", "[", "5", "]"}], "+", RowBox[{"Log", "[", "7", "]"}], "+", RowBox[{"Log", "[", "11", "]"}], "+", RowBox[{"Log", "[", "13", "]"}], "+", RowBox[{"Log", "[", "17", "]"}], "+", RowBox[{"Log", "[", "19", "]"}], "+", RowBox[{"Log", "[", "23", "]"}], "+", RowBox[{"Log", "[", "29", "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7705077179994307`*^9}, CellLabel->"Out[146]=", CellID->987420070] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031726], Cell["Obtain a decimal approximation:", "Text", TaggingRules->{}, CellChangeTimes->{{3.770507734944056*^9, 3.770507746973874*^9}}, CellID->894779090], 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["ChebyshevTheta", "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["ChebyshevTheta", "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/ee5f5472-308d-448f-98ab-b059536c5c3d/"}, "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], "ChebyshevTheta"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChebyshevTheta"], BoxID -> "ChebyshevTheta", Selectable->False], "[", "30", "]"}], "//", "N"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705077502700925`*^9, 3.770507759412634*^9}}, CellLabel->"In[147]:=", CellID->924775364], Cell[BoxData["22.590394530115656`"], "Output", TaggingRules->{}, CellChangeTimes->{3.770507759815548*^9}, CellLabel->"Out[147]=", CellID->417692855] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031727], Cell[TextData[{ "Plot ", Cell[BoxData[ RowBox[{ StyleBox["\[Theta]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " from 0 to 30:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.770507961601403*^9, 3.7705080121790476`*^9}, 3.854798833206794*^9}, CellID->34930538], 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["ChebyshevTheta", "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["ChebyshevTheta", "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/ee5f5472-308d-448f-98ab-b059536c5c3d/"}, "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], "ChebyshevTheta"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChebyshevTheta"], BoxID -> "ChebyshevTheta", Selectable->False], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705080144759235`*^9, 3.770508017189691*^9}}, CellLabel->"In[148]:=", CellID->60113479], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxNyw0w1HkYB/BtsRRrWO9ZSiHtrsUuW97/TtyRvE2Ul6K0mAulhN4Oe3Ve ekW2tUXlnF5UQpfCUfQiI87rSnfbeakk2ra1WFp7dzN3v6dn5jvf+cx3HrOd e4LZeBwO1/5P/u0Z4fPH5ifK3XD/XV+p4UGPQY77/8b0unYaDhYgpwbeECgN liFrfzQokAlqkF83+u+ZFrQge5tP/CkW9CDLBOuKPglGkFs9r5Z3l0mQbU9X vZ9tA5cO1tFNReD0xLb73ztPI9PPv+9Q6gPzJ6hSB5UZ5L35d7z4cXPIwlf3 8x6eAm+0fNT1thZs2dAdxsTJkF+NfU7s4IG91ztwF5/PI5NfP3i7kyZHxkmS ec+DwGMEiq9tGvgWnX9L/gjs9sOhFN6WReRVBQxLxREwoWJCwC4Dd74Id2ZO gWuGSVPFJAUyV9peilsPjjJxxndywBvsJLX218BWXpXsCy/AGmExBngJOP3e qV32GjhM5Di/+A39rXtku5f+BTswJpQ/W7IFrEZIonZdAXdbC09fnAR/7igl 9xjgkXUTom6oeiohp5gUJxVnKyP3dvYwqB0qyJyrIt2UJAIyI1NjtlFLFTlv cnn88A7wyNa1L1VqwXOSBKn/M7DmmTvavFdgc8q09bAI7PRknS9FWQ3Dr6TM q1d+cY9daOI00sAFdt4N/iFgFrvBdWXtMuSXPNuHYi0i8onyjC68kTZy0MVq 2sYIErLBudHcwhIdZNNPaw+saQVb+O2NbhgHW456RKz8DLY6pBN6fAFM0X4T OKGsi/EH1GUVDuoY7dq9jQGaYNuBMA8jMzBTWc4aZYI9GnOJ6hnggBT9MUY7 ePeYTT4nWg85e7OPW88MWO4t7XzhYoC83/FK1HOOIXKkrv+Uca0R8gbR/KGk 0eXIk/efzCrRjZELOWdTitPBse+kjLESsJNfhJjeCi5fPBXY1w/WrH5YdXAc 7LksPKpDDE6PkWiuWADfajzZlKxMxkazSFZ7Y/SwET3LpMdEMON6Q5yoDJzl ErRj+XoT5O0HpHkdh02RnW4X3/2heQVywpw4s41ohiyjagmtQ1Yhu1TevMzl rkbWjzqcmUozRxaTfKNDW8BJ1V3bSnQskCcCQiLGdoGtVhgOZZ8Cx30c2kq9 ByaEuhgebQdX/FYi6BSCU5P962bHwV4WCu5KCZiWISA4zIF1X1al+sjBXxg5 b7fhLbFckx6lkXlTbOxkdOg+VbC+22QX9RLYR5Tm84a1BnkyRm3/3QwrZKPH Z+pNzNYie5sb4LNbwL2mg/ywfnC0UTGTNg6u4MoyisTgSZ3wjsV58JngvH21 CjAjv94wXpmCDSb/qlFTao4NdE00kZeCD2oas7uJ4AKlEm4qE3xzzrTNOAz8 emQVNbYcTHphefqOCHyesnuPpICKTM6pCmSxaMg8qqOWTpw1cvtyDwdJPh3Z idxy1mbABpmbk1XayLJF1lQqS9nBARfszIqNqgTrt0Rv3dYHHkwODPpjHMw3 w3wj5F/9G2xf+0EBziMeUTuMt8PqtO3lfj4UjKPEf7dMBXxYVveUrwpOeCM5 Vq8Bjuy28RzSBrtev9psRAabZq1wCbME6/a6yvpTwUstIu8FPwOTq+sZbBID me5qVJW2DZzxi0EK7Sfw70R9x+Hb4DmPogvOrWCzVN3FIgGYpbXZpnUY7Huj MPrTB/DmNKaMIAZv39CbbzIDHqWsFl6bA8dr76fYL4CnZltSm+XgfUJSqy+O iXlcCndP1LfFbN8HaPj6gUWSkyE+PPC3Nk/5Ptb2yE0S54XZTnASjTHUzXZA dv24qy9sKQvZI7fpbG0I2MvccBOxDOzWMH3+0DMwK7h75N0keDotx8FzBlxT 4p5TqgCvipuKlC5ZhzX36yrIjkws3/aCnZ8yGDf/HeFnAnhv68yQTA0cGBp8 7CoRbPP+lnUICXzTntyrbgG2ysxLb1kHvv552Hg6B0xhOzZbDIHZTfHH7iav R26+3LdLrOeIPH1NMWtTB46xqFzK3+SELKYUsmo+ge+XLwxLc5yRwzesxpxN XZDrt/Z/sd8DNk7MfkB/+NWOO8Yj9YLDz2WmzbwBU4SLsfEisGzN0dChOXBC fWQPawH8l5+Lf6EcvPm1cbtIAW5LXvDyw7tiPxadNjQ/z8LucOtdVVTBvIaD Dk3q4IGRfZLjdmC9ZQnVm7aAh5wLeysqwaWJ9VKFAvw3th8CTw== "]]}, Annotation[#, "Charting`Private`Tag$103857#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, 30}, {0., 22.590394530115656`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.770508021414398*^9}, CellLabel->"Out[148]=", CellID->125066802] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031728], Cell[TextData[{ "Compare ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{ StyleBox["\[Theta]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{ StyleBox["|", "TR"], RowBox[{ StyleBox["x", "TI"], StyleBox["-", "TI"], RowBox[{ StyleBox["\[Theta]", "TI"], RowBox[{"(", StyleBox["x", "TI"], ")", StyleBox["|", "TR"]}]}]}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7705080574569654`*^9, 3.7705080662763414`*^9}, { 3.854798848214323*^9, 3.854798892890264*^9}, {3.85479896608644*^9, 3.8547989660865307`*^9}}, CellID->940973135], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", 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["ChebyshevTheta", "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["ChebyshevTheta", "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/ee5f5472-308d-448f-98ab-b059536c5c3d/"}, "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], "ChebyshevTheta"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChebyshevTheta"], BoxID -> "ChebyshevTheta", Selectable->False], "[", "x", "]"}], ",", RowBox[{"Abs", "[", RowBox[{"x", "-", 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["ChebyshevTheta", "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["ChebyshevTheta", "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/ee5f5472-308d-448f-98ab-b059536c5c3d/"}, "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], "ChebyshevTheta"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChebyshevTheta"], BoxID -> "ChebyshevTheta", Selectable->False], "[", "x", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*StyleBox[\"x\", \"TI\"]\)\>\"", ",", "\"\<\[Theta](\!\(\*StyleBox[\"x\", \"TI\"]\))\>\"", ",", "\"\<|\!\(\*StyleBox[\"x\", \"TI\"]\)-\[Theta](\!\(\*StyleBox[\"x\", \ \"TI\"]\))|\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705080702417407`*^9, 3.770508097229515*^9}}, CellLabel->"In[149]:=", CellID->443096490], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFxW0w03EcAPAdL9AdN2O30XAYic0QYzZPTdzWzUnR6cjDrLwYLo/lTth1 pjhXVsiVY7dTUchJSOymq3RXDmP/1kWlukuy7fbAOKd64ft78bmPd35JmsgG h8MJ/vm/ZWX2FbVJEXuwuot8JQGTxB0cT5zLJ2OtcGVqn8YWk8POm6RWq2YY Xp1MKTFpVHASdf2zQbMAWzWRd/Sab/AM94FiXm6EKavjP/Npe7CrOKfPjmsb f3BraNKLlHR7+GNHiNKAd4SbFLVzNm7OMOn22nXZfRdYeoYXu2AhwmWsnpxZ CRlO1O1UF6+5w/WcU3nuUR5w9MDdkavTXrB421D31tEbtgbhV+jpPjCn/3F3 W5svbCDwczNUVPh7c25GqZ0/zNNV8X4wj8AbQvuykdoAOIlKspGqjsKE9/4t Q7pAmNI4mMpk0uCOIBbe5SIdfueeEGG8FQxHU1Q3GcsM2MlWXp4nCYE96704 mf6hsINf1mjaG3RwjNtgVXYYXLpCmOHjjsE6Y3M6rwOdzHjdyaOHw1NG9u7W B3QxLUw7L4qAYzYL1JkOTPgElSxwlKMD6m5cVkVGwoEi1rSfFi2aKrw2cikK nu5WFxiILNj0cH+L8Rwt9Ot36BREw4ZAGXNYjx5T7H41N7Lhc4m+8WxPDny4 SDoerEQTD4mfCs7GwApuTbU+Ex1W08KVZaFT9ENLWB66YdlsFYrR2/La49X1 aC1bttjbjy6sUNzjDaAtA89EG0Nogg+2FTqKPmnvQXmpRE+qewsWl9B8pzF6 JYbGkmct5E9o08TvxvNf0PSekCe/1tGT2oTK5j9ovuvpOIYefUFaMV9uRpuU DZ2kbbRkp104sYPGhz+iZe+hu4omzPv76L/vLypF "]]}, Annotation[#, "Charting`Private`Tag$104562#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxNyw0w1HkYB/BtsRRrWO9ZSiHtrsUuW97/TtyRvE2Ul6K0mAulhN4Oe3Ve ekW2tUXlnF5UQpfCUfQiI87rSnfbeakk2ra1WFp7dzN3v6dn5jvf+cx3HrOd e4LZeBwO1/5P/u0Z4fPH5ifK3XD/XV+p4UGPQY77/8b0unYaDhYgpwbeECgN liFrfzQokAlqkF83+u+ZFrQge5tP/CkW9CDLBOuKPglGkFs9r5Z3l0mQbU9X vZ9tA5cO1tFNReD0xLb73ztPI9PPv+9Q6gPzJ6hSB5UZ5L35d7z4cXPIwlf3 8x6eAm+0fNT1thZs2dAdxsTJkF+NfU7s4IG91ztwF5/PI5NfP3i7kyZHxkmS ec+DwGMEiq9tGvgWnX9L/gjs9sOhFN6WReRVBQxLxREwoWJCwC4Dd74Id2ZO gWuGSVPFJAUyV9peilsPjjJxxndywBvsJLX218BWXpXsCy/AGmExBngJOP3e qV32GjhM5Di/+A39rXtku5f+BTswJpQ/W7IFrEZIonZdAXdbC09fnAR/7igl 9xjgkXUTom6oeiohp5gUJxVnKyP3dvYwqB0qyJyrIt2UJAIyI1NjtlFLFTlv cnn88A7wyNa1L1VqwXOSBKn/M7DmmTvavFdgc8q09bAI7PRknS9FWQ3Dr6TM q1d+cY9daOI00sAFdt4N/iFgFrvBdWXtMuSXPNuHYi0i8onyjC68kTZy0MVq 2sYIErLBudHcwhIdZNNPaw+saQVb+O2NbhgHW456RKz8DLY6pBN6fAFM0X4T OKGsi/EH1GUVDuoY7dq9jQGaYNuBMA8jMzBTWc4aZYI9GnOJ6hnggBT9MUY7 ePeYTT4nWg85e7OPW88MWO4t7XzhYoC83/FK1HOOIXKkrv+Uca0R8gbR/KGk 0eXIk/efzCrRjZELOWdTitPBse+kjLESsJNfhJjeCi5fPBXY1w/WrH5YdXAc 7LksPKpDDE6PkWiuWADfajzZlKxMxkazSFZ7Y/SwET3LpMdEMON6Q5yoDJzl ErRj+XoT5O0HpHkdh02RnW4X3/2heQVywpw4s41ohiyjagmtQ1Yhu1TevMzl rkbWjzqcmUozRxaTfKNDW8BJ1V3bSnQskCcCQiLGdoGtVhgOZZ8Cx30c2kq9 ByaEuhgebQdX/FYi6BSCU5P962bHwV4WCu5KCZiWISA4zIF1X1al+sjBXxg5 b7fhLbFckx6lkXlTbOxkdOg+VbC+22QX9RLYR5Tm84a1BnkyRm3/3QwrZKPH Z+pNzNYie5sb4LNbwL2mg/ywfnC0UTGTNg6u4MoyisTgSZ3wjsV58JngvH21 CjAjv94wXpmCDSb/qlFTao4NdE00kZeCD2oas7uJ4AKlEm4qE3xzzrTNOAz8 emQVNbYcTHphefqOCHyesnuPpICKTM6pCmSxaMg8qqOWTpw1cvtyDwdJPh3Z idxy1mbABpmbk1XayLJF1lQqS9nBARfszIqNqgTrt0Rv3dYHHkwODPpjHMw3 w3wj5F/9G2xf+0EBziMeUTuMt8PqtO3lfj4UjKPEf7dMBXxYVveUrwpOeCM5 Vq8Bjuy28RzSBrtev9psRAabZq1wCbME6/a6yvpTwUstIu8FPwOTq+sZbBID me5qVJW2DZzxi0EK7Sfw70R9x+Hb4DmPogvOrWCzVN3FIgGYpbXZpnUY7Huj MPrTB/DmNKaMIAZv39CbbzIDHqWsFl6bA8dr76fYL4CnZltSm+XgfUJSqy+O iXlcCndP1LfFbN8HaPj6gUWSkyE+PPC3Nk/5Ptb2yE0S54XZTnASjTHUzXZA dv24qy9sKQvZI7fpbG0I2MvccBOxDOzWMH3+0DMwK7h75N0keDotx8FzBlxT 4p5TqgCvipuKlC5ZhzX36yrIjkws3/aCnZ8yGDf/HeFnAnhv68yQTA0cGBp8 7CoRbPP+lnUICXzTntyrbgG2ysxLb1kHvv552Hg6B0xhOzZbDIHZTfHH7iav R26+3LdLrOeIPH1NMWtTB46xqFzK3+SELKYUsmo+ge+XLwxLc5yRwzesxpxN XZDrt/Z/sd8DNk7MfkB/+NWOO8Yj9YLDz2WmzbwBU4SLsfEisGzN0dChOXBC fWQPawH8l5+Lf6EcvPm1cbtIAW5LXvDyw7tiPxadNjQ/z8LucOtdVVTBvIaD Dk3q4IGRfZLjdmC9ZQnVm7aAh5wLeysqwaWJ9VKFAvw3th8CTw== "]]}, Annotation[#, "Charting`Private`Tag$104562#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFl3k4lO37xq0ztgZjzJgZU1mzxRiMZMacpQUJlZRSeSvaRCJFyvJKkgqV hFQqabG0kaXy0iKkzRaSrYVkyb7/5vfHt/76HPdx38+1nM9zXPf5qG31We0h JiIiMiUqIvL/HG5+/Vzz5HWr/7E6VSVwUX244H+E8tutKvXxfxjgdLtOvD7t DxV7aPFjdff/8EuRg89gXckfLtPs+txf9+EPx+rMz/fVtf1hqfXN6+/TBv6Q fTq7c6TsL1Pr8wxn9/7lob1lj3dbDv6h4YXOSvHqv0zq0h8ykxz+w31xOUuT doz+YXPj4+jiU3+5Qvu/t98e/KV24XtXE5GxP2zs+L23MvEvly0wS5h+Pf6H ql/yv201mPpDkQHfxNer/rKDoGfHPviXmYZJmVP//aXV0SD/xHXTf6gez9Ge Cf5LQnpXnUfaX1a92WBp8usv77eSf10kz/xhwlB5qsiCv9zCshSrCv/LJcYD D0wz/lJn6R2P5Dd/Kee6jSY28JeHck9tN5UTwahjqu1y0SHB7uJdT77PFkHT NpeJTO0hgVv5UmqysQiKD5IyKfZDAjRPvRJdJ4Koy0cV2hKGBJwfn+Y+2iUC rwfcEpuiIYHm70eBO4NF4PSqxy+7dUggRfDWf3tVBCq9m+uCDYYF7+c3n07p FsFtK0EqrWRY8Ny84LvjjAhiV484Hv0+LMhdlABxsij8PbNFv8qNCJLWOvze ZS4K3uk5HvfXjQi2Hnm61jxcFJWfZ/RX/hoR/K5MVf1AE0N3cHF+uMqYgOK1 5TbRWhzswkU1v7wnBHrEay+d1onDrb9sVuiFCQHSvrVd3COOqHlOy8jFEwKv +r1Mg3PiaDm7OY+rOCl4viQ4xumrOGK9Dl8MeTAp8Gdd9L54XAJ9rEebFEen BNGPm6LbkiWg6sxLuDZ3WnBlzdyb+jkSsIkurTKznRZUnrj55Um9BK4Mvxds SJoWaA4/cmrTlYTT2x61a7wZwceqDxz9SkmsA8UvCSL4sYvq6N8iCa/GdWfa nUUwLbFhz5NBSYQHJN8xEOqqZ9l6zZFFQNZd9Y6ncSIIv9lL8fcmgEA3Xtve JoLExSbGT8IJUH3o72swIoKszwErCRcI4Dg+PnVAVhQNStPHEp8RsPmY4CXR VBScULmRIgUicvtXmhscE4UN00mJoEVEZUzcmgMXRbE596yRowURbfNqfJ5m iiK6m7Gz9R8iSJvdMpxqRXHl+OYIvQAiNMcuP7/YJYpc9bQrftFELDzX3tI2 LYq29bqfJB8Q4Vm+m35gnhhGB7yGHF4REeyRZfbUUgykMzmKiY1ExIv8XkV0 EoOm3uD81l4iMpLNvJ22i2HhC3M7PQkp+O5emmSzaUDg5H7Y009FCpeuVH5o ODYg8Jx4Gl5kIIXXtWtk92YNCOKNlxU6rJWCmvXW4LiZAYFRo+ty/k4pbEw4 cc5ba1BQGbH3o/5hKZzvzLm7YsWggFB/7qfUVSlIx840SV4YFBw+2s4s7ZbC QFMKP8hwSLC9IjTYPEIaLwLqprduGhZwPQr5cx/IYNdt+zDTwlHBp0R2cb/C LGQrmkfWBUwJTl4PeStGVwTFoutqSJM47Ex3kZU1FBG//sm8633ikHq+eu28 +YogHYrNLJOQQES7VuOKRYog5HHzFedLIFi98tu5XYoYNv333bUjEvC+ojKt XaCIBrbqzKvZkliVcs9gxUYyrug4uCn8Q4CCQbLPJg8yZtuotZkeIKCqMOK+ jw8ZSTsGd7ieIMCucd2Cc/+SEZ+e5Jd2j4DFjGnrz3fICNf8Hm0qRoRpot1G n0kyPOeG5q+/RsTveaapYQQltAnWCI7kEZGTx2o9q6CEzVu0X1ytIGJ+XZ/n Y00lrE+tfNc1QIQ29cJ+0ZVKsFOl/wheIgXaufYTZy8pwUDlPvXqVymo6D+K GE1XguGytXJ7RqXAKIkM2ZSjBI7/qKiZrDRm9+kemFeqhIXvrH6VsaUx9/iE T0ylEqymW9viraWhPvvN7v4aJSw2OFbv5iINLft97oU/lGATVVHad1ga2u2L Ns79Lcyf651fcFoaOkFKLscmlODQoZgdcVUaeopfnbokKPC9ELxqY8aYwCAj d4UjiYLAgRJe75sxgaEgatlDGgVhjtI6/w6MCdi1rovoahScuOOoRKOPC0wk prjtJhSc39bUabV9XGCaXGVsw6fg4jP1mg8nxgVczhWDzGUUXGXuKvbMHhcs dLdWP+hKwb2PQwmnx8cFi4pOzJINoeCNtfyS5tgJgaM/tYNTToGk5uLUI08m BU6yP5ovfKRAOjTqhGL7pGB1Wv6nySYKFJuq/G9ITQlc3rm9fdlLgdq5jSve rJkSbDK4VrBBWRl8iQOjql1Tgj0dRnHh7so40HFzdRF1RnDc2dbqw7Ay9n+I /HcqTwSMh1UMMVEqEuPieJsqhfNAyXnEWJaKYqeUoaIWEdR+2JwTN4cKhbf3 dgRLi0Jzlb/6Khsq7lY0rZjYIIqSlZcJ7y5S8eM5hzI2JYqpZUNVb3g0bM5r vj4onKt+Fle3vA5XgV0K9+XPt5Kwu0IaXBGjgtFdir19bZJQJwZHVZ1XQYZ5 N214SBLvql3ufcxQgcTHq7tEVAkw3Ccn3lylgmLpWbOUdxLwI/1g+m8GHaYH 29dYiRDhRnH4xXxAh+rq2NZYthRMDheGpRbRUT5nj0yCtRRk2nSoai/pOPRr qUmyixTys8UF2p/oqI2aiLgRLAXqivxY9gwdsc88dQrKpPAuTNN06QoGJObz fdrdpbGkdzzIu52BbmLXpFmcDAJtzun9182AS4GqW+M1GWRdnd+gNMxAsZdj YWiuDFSc3S3ypZg49/5hYEWjDLofvxgRN2SClxwy7K4tCzXylpsu5kykr7y/ lmAhC5c9oy63wISCyNeHd1bIopiln+uwhomO7XZ+w/tkcTY81v/iISaiDZX7 ThbKoqxRV7M7jInBluWOxlWymDQt/Wh1kgm3s0FZtS2y8Pw+xOm4xAR79IuX GkEOyTjTxr3JRNJtcuVLFTm8u6gTfyKHCYlNS/W99OWw0H5jv2EpE/X/3e7M dZKDz43BK2GVTCz2/2zjtk0O16dPOVXXMHFXWyFDNEAOn9bNE5n3hQnqp8XE m1FyIN0rzg78wUToyQOe9slysJbZsKWyn4kufsaL/kw5HNo2QJozwYRzX4Pm hWI5ZBbFPPWVUIXWzx+uhIhxQZuytvfzWaoYc3RQWXVrXEDzecai0VTx5uGD 2uSqcYF92fo3u+aq4iqdfv7bwLggN+ikgbyJKmzb2xWDrSYE0V/6ulzXq+Ji QKDszY8TAs6twh29aaqwuHR9enJqUhDGW/UPYwELB7rGOzJWzwhsNqf+Nl/M Qpyvkd6cwzMCUujPf9fas3BrdJvP+WszgpTSY+mx7iy0Et6MhQ3OCB7bFfwk nGAhI87x+PwVIuhbrxEw8IkFlSy1FMIvEWw+MBRdeXg2Br+9ePGYLbyPsi4+ PPpsDu6uJ9FZjyXgNdofWjZLDT8+pz1YtE8aY/oKzfPXqkP1LlOn7hQJvDt3 ryQkaOB89TL6k9eKaJx75/LSZA18fGZNY35URFDCrdTByxpQvAPlwCZF5IWl p6y+pYGTYQsVzXoVwVl/JZFUpIEwQ0PpTAoZupLnYiNbNeATpTyWsoUM6pbD oQEGmrDlddQHD5HxqDowRMtYE8fntdY2TJPhbHfoaLWZJl6Qm6sXSCkh3uxA MEegiUWdde8GGUqYJedzqGeVJswTKsq8oASJ/K37PA9qQqvv/mO3k0roJ9u5 u5RoYuZaWCJPOBfrvdTf7X6liTfrOIc89CkofjkuCKnUxCXZ9nWnzSiIDboz J6NWE3y/JbQWWwrYbXJfxro0cWQxMeHf/RR433u76ZKSFsZaYs6Wl1LgIpvx 5p6KFl6f4/sNvKHAyiOU/5KlhYs2PatV6ymYRTdm9c7TgnmOI9m7m4K7ofFN 4GnhQAg5TlE4B7sc127s2K6Fflbi6fWeyvhwa37F6C4t/PfexjtsnzIKxAmW s3y0EHdsbOXtIGWcyMtlcAO1YPRrw6zJ08rQmaPScPyUFvYWsWIu5ylDIbDP NiVeC/x9VXvK/lPG6Iey/JwLWpilGbKiv0IZZZGBFz9d1ULmyRYZ6xZl7Ohp WK+fq4WfG66d+CZFhYPNgzJBoRbySc675JWo4KadXOBcrIUTJRK2C1hUEFx4 KkfKtaCr5ykVbUxFTzYlKu6tUI/P1B/3Lamolf41cqNaqEfcq1eNS6lIf3Kp rqpZC7vGdI7P30DFaVrA8vZ2LVhkfvJ02U5FgK9D3sgPLUj/E70sxJuKzRXa 8+R6tPCJYqmdcYiKpVozCXMHtHCz7Kfk+3AqDELqCGajQv2CU76OxVBB+ZQd YDulhaXslS/UL1AxyYn6tklMG82xwfEPlGTQEePusp+ojaOjn1dJ6sjAu8tA nS2njXRv+bDJhTIYWT7265eCNso7kDOwUgYy4vHHdjG0QX1/jdTmJwN2YOlD 9/nayLq1q+LpMxkc8dBWclyjjbYNQ0sOrZMF1ar7rf5lbSx7IrfgZ6QcbHsP 2n7lzgMl3HL2+68kdG+T8nsYogOn21ZtkRJk9KQuefIsQgfOc/MCLpHI6P0U Sqw4oQOXBCPZhypk/HYcS249qwO38LmmrQZkjFh2PSdl6MBzg1ik5VoyxCiV 1F3vdBAs81K37wYZ9OdnClhquri9e6Wv63IlMGYqJHS1dXG35YXkvlVKUF0o 5Wiqr4scF6ukyI1KmJ0T2m5npouHi41KH/goQTPFV+6QrS6KGYrKpEQlsP3X bP7gq4v68urHJUKfwsk+k/E5QBdNWLnyk9CnmHRV/P5xWBfNuS9aeyeVwHVf cnzmmC460nJlWIoUWNqb5Rgk6aInKNHtoAUFyzRpYsdLdCGh7yZiEE1B59bl GZavdGGXUWR//iwFMVcPOvRV6CJWi3VxOoWCj7Prk1xrdDF7brPx+2wKAjZJ LSI16GL7JaujC/MpYKQs+F7SLOyPcbn8WgkF7vSLJgY/dLFA2X1bQA0F4utf f2rp1sXR+OLsL80UpCeMhZzv18VzebVJmx8U2NboatsN60LmVJjN/X4KupU2 VE6P68JJpu0cc4KCM6uj9z+Y0UXC8cWtERLK4MQVqOyU0MOOIxR2fYIkat92 PVWV1sPIwZqy27ckEUhieryfpYd/9yf8c6RIEqorV8hGkvUgv3fduKPQTxSf PHxvIU0Pl3eonFUX+gmCdNPUtbl6yHNLev6KSEC8+KWEABM9fF+WOo+8hoC7 o7PLmK56cGSm/0rvJMDR3NH73SY9NCrviAycJOD3gRDKsa3CehR05tjLE2Ex 8MW9Z48wv+Rtp35TIl7+ujJWfFQYvzfzgWUoEV/a1PU9r+uB+fxR4DuqFMhv tE/n9Arzeb2QHBf60+le9o3yQT1cGP31z9b10ugiWxZ1jOlheQT1abmXNErW O3apSOjjZvKOgOTz0vDrOLgsTEUfe8qlv/O+S6N6omx61SJ99M5zKAuJlsEF vT0+A/H6mGirjZZ8LwvVqGwnLtcA8q4/5BU3k5Cob6GgtGM+Qv2IxJJYRZQz FpkNxBmiYxVtVfg3oY9WLYk1qjXCc2e61IRwHrRpaDZ3NhiBsv1zmo9wHpzQ j9S//sUIW/2u8jvCqKhfaPdSpdMIIvG6fm/OUXHQ9cOE6KQRrN5aNF8uoGLD Cl+TLgU2HttueLiEQENClNB+cdnIsEp2P32Jht0xnBd0CzZGV26ZELtJg1Vs +88ASzZsNmkkHMyh4euFpRbGYKPj8J0K91IaTG9KV9+wZWNufiHXpJOGDy/i pM+4sZFo0iRXb6oCknia/z/hbETpsPLVKlVAGHu2pj+CjZ0i583+qVXBdM9n TthxYfx6uftXWlTQ20DvvxLDhlzU5O05Qyp4dz9ub0sCG7HfG1NYs+mI3xrm ueWOMH56Uih9Hx3R6y8v7c1k49BR8tT6IDrCHZ5ohuSwsd4lOjAxgg6/hWNt qY/YmE0I2k+7SIcz2XdL8zM20jxctyuX0EEtcV+/qZqN25oqNooUBkiPj5r/ qmUjevLMc6fZDBCyUqhHPrGxu5q4KFaHgZGL9dUpzWwYRoxYyPMZqPd1WtX0 g4377bX6szwZeLfDm+31k434QocM+30MlG2KkZ/8xcb+sy81Y4IYyLcte8Mc YINrncuSPcPAfcG3u3eG2GAwDZPsLjJw20wixnKUjfHfN6jR1xhI01ffUzHO RkM56+zrTAaS1GC3cYqNgrTz8tKPGYinbdb9OcNGUtCsGJsSBqJnBUsdFjNG kJaC4/UeEsLFk77LSBpjYc3Mcg1xeRwey3uZRDSG2LFepNHk4d9bc0NPxhjl pl8s1Azk4fV1IKJAzhjRHVWcK5CH23sj6wZFY8gsydJM3SUP51cr1XdThOcH LrFYR+Vh/2SP6DhVeP7aKWpKvDz4t24+o6sagyy+VyqpUB6zw+bwXLWNMatV ebicoIAsPyn1zzrGWHkn/1SDggKsPPuJ/+gb49SBTVpdDAVsWlH6cSfbGNIy N5yljRSQorxjz6GFxpA0MX2wfJ0C6Lezki44GGMsYvW+5zcVQPnIH6sJMMZX nTNdT2wUIa3llrv6lTHy90l9yYkmYzddYHfntTH4i88ZKp0jo3yWerN4pTEK leYePXCJjJjh75KP3hmjNNectTCHDFKZ31pagzEqJj03ltaQQd5zcrCx2xiN US/qauYK7497BRwPMgfiV8PfjecqIfjGpZdPKBzhvCPN3VSshM8XQzdQaRwQ lyT5PHuthNTwZeGvmBzIfr9HimhSwlznD+91tThQmt9qP0uMAq2Rzn095hzM yxe8nrOSAkM+PfvgJg5WvJ/8b0k7BQ80dk2IuXOwZQ9vwPcXBQtk8pef3sqB n2Sw5uURChbXrW+5voODZIuJyDFZZbj4Jip+8OXg59WxFVmmygi5QfM3iOTg zP7hGlqkMiRidhTnRXFwTY5LXBqrjOj9eXLWJzkoTD+wYH+SMs4J1t1wjeWg vWEwqTJLGRmfEmojkzgwsR7YElanjHezqBatWRx8VOrr7NKhYu2gxzGvexx8 zzRiqphQ0dDw6P3IAw4mlvvYL+VT0XFz7W5SPgcawT1Zl1dRMbrofLJlqbD+ jm4/5yAqjuh8/f7yBQfHjxrcCIugQkzezHR1mbAfFa/arNNUyDVVV+58w0Gp /c8F0teoUAugTJ+v44D2qHPqSYXQT7ltt1Nr4EDfUdfoZ43QD1k/TLjbxIF1 5053lRahX1NwNipt5WAP60fJ/kEqCoevHXbo4CAkb97g5Wkq8Hng1advHJxd tUPrjRQNdrfPuvf9FOpx7NvxeSwa3sa23z3cw8HbOdr5zvNocD5oMkboF+qT 79EVZkzDp03/Lo0f4GBkzQ1mtqXwP3rJxzjWsPB993TYNy2loV1PozljlIM5 UZpHpZ1o2Knop2c6IdRTfXs2dwMNv0ZKAp5NcbC86FrLtu007G8ml9qJmCB6 7D9WtwMRZS/dntwWM8FCnmLfz3+ImJ2dnicjaYKuo+4lP/2JKA9ZeLdc2gR2 EjOeP5OIUFfbet5OyQQy8rycrm9EvN92b4edtgnCNXMXdx6VArvTUc7O3gRB jrd3fMuSRu9AzFrbRBPsvxF/r4Ukh+VGL5Ns55uCjqy9vhsV8HTAcmKkyhRD q4716rWR4W3AaXjvYYZc08174vnK4Pdsr3aV5uK3pa7z/QoaqIXL04pkuXDx eXiSX0NDz3G9fXNIXOSmCUrLmmlIVeuT/UrmIkDahfOln4Zp58PW+1S5GK4N V5BTUcGzwrj7kUZcjPs2VXpsV8GiE09jH6zlQizjzFL6lAoYLlc3U9dz4dnI OHKdQMdv9QiDwA1cvCSlPzRSoCOtyLbMagsXkQeKNJZp0CHWVz3zeicXBOtO UT9bOkpdfnq3HOZCpnnx08rzdCzVVFk5K40LMmWYG2rIwMNfL9S2X+eiyiLz RKM5A5p5fsMF6Vyc3rK9ibuIAQm7t5d33uGCdOdD2K81DJT4RP4ufSiMvzi7 ckMgA1aFgxeCXgn78dm51ew5A1kRaV7vXwv7Pz/nUewbBlgOTot0KrnYX1hL 7K5lYLLlTlfNOy56CEsz0zoZKCBs4xs3cPHtktqovDwT3NXv2753c1Fb0XCq y5WJdGZInlUvFwn9cS1LtzGh/NUg5nw/F6tptiZXvZgYPBhlZj0srH9rXv26 ECa2L+LKJI0K64/y1n8QxcRHmY7mvnEu7LK0jpLimVhcHfdg+ZSw/uqmd7uS mbh/SRCVOiPUc+ysxovrTKjv+OU2JGoO1ZPPe0qWkRDHTja2lzDHuVrOuUBX EkTGbQjXCOaQU79qwfYiYV/pcMOYlDli9sp/+XaUhJaY69lOssL9/CMRl+JI cHJZHXFzlnBfolvX+ToJRp2Z89eSzRGRXOb/32sSUu9vFLtLMcfkNy7jUBMJ pGDpOjGaOYI5N54Z9pLQQ/IIzWEK16/DZFIo8rhrqvpRVsscXiMLrwRskYdO aPShEnNz2K/JrNAfkkeR5Q1J+4XmGL6wiFEkoQCnkWfxNTxzLIu869BGUsAh 76G7PxaZ49vW8DxDDQWUubm3kuzNoa1qeOLVCgXstODabXQ3R/rpYwZjKQq4 9buVORhljtt+pn5uAkXoeVg802owRxY/XkQjggyPpzsjHvouQGqao/LmNgqe Xane3q9sAYLBTMIqPxoGM2ZGjPIsUGt/p33FKB3btO5IJ61ciAQrV73BVaro 1zvLvd+3EFXOY5+dm2fj8fWJ1qEoSwxcevPi3uW52LBEA5azeTD/rBrOK1fD VLUUqXQuDyHT31n2b9VwxaOn0U6Dh9I5D/I3VqvhW2T+wQ06PDhute0PalbD /teO2YEcHnZ8P+Ce/1sN0Q7Bsx8v4+FCf5UVl6mOgvU1k6Y+PIxIhk0Yealj U2dBeZEvD4J59hcEvuoQCbqSuMSfh39taCaOAepYlrzH1DmQB/mTmbu9Q9Xx 4bOol9+/PMxTaPh095w6urYaNt67wMM6hslj3SfqYO49nm9YzEOh4Vd/DZIG Ts94mp0s4eHymuteTWQNiMUvu/f9OQ/HD23bfp6mga5cyVtXXgufL2ldQ1TT QIFIRCL5o7C+tc2cnyYaMDy7jeJTw8OXoEt61xdoIE3LOraijodXl93UN/E1 EG0nFhXRJOyvs0Hx7TINbDgXenD4q1C/I3V99101UKXtPrD6Bw9z0hJ+7Nms gcX5Ap/sLh6Ir9a2aG7TgF7ztOfOXh7qFKrfJnhpIHVfc9vzfh6emZ195eir IfQ5TzerDfJwc8PqZ1IBGhibd8SlYZSHg9ffZQWFaMCrwO0Dd4KHja/PpJtE aKDFnudwdooH6x6H1O4oDTh/YZb3zvCgr0RKuHFKA2W+E0vtxfig+j54dOUu HTyJxv8yJPj4VmB8g5xLR05CAV+SyEeuRM65iGd0JBYGmj2V5cMl8a7fzg90 yDm43mOQ+NBu09vW0EhHaMuC+QcV+BjWv7Xa/isdOyVHNdnKfCQ8u2HMFn5/ 5o4BlLTZfNR+S+0dYTFQ27Z/4JgxHw5mcXuO72JAWcbr3sp1wvWHA9vSRZi4 bn0kqM+Vj8jHBceNZZngHDltfdaNj6epM3eKlJlw6Mupqf+HD8M9JwY/6DER WTs0ts2LD5LEpWMzzkyMpoUsDgoT5jN7fnP9LSYaLM9+TL/Dx+aL5G6Z1arY eeB6im2WsL6QdQoJbqoYznrk0Z3DR5VHiqnaDlWQ1etHjHP5sOJoHzEPVsUK KZbqk2JhvxUWpO3pqiiqTt/+sUao16Q7+8m4KuxIj+cH1PMxu/2Gs40kC/XL Xw+rNAr1et116KM8C4MFP6M2t/Dx8rz/f52aLMy/ys7s7OIjyzBqNdWRhaKG RQExv4TxKG8CrrqyYEdZIzDqE8abUEw22M6C5/ED7/2H+Dj9Krl9caAwXnFk Em1UGC+zhVj1Lwvh4xe2FYzzMX1Wy8D1NAsKprcMNk3xwQ3a7dSRyELq3oKh mRk+vN2z/X2usfB/6TnMNw== "]]}, Annotation[#, "Charting`Private`Tag$104562#3"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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, 30}, {0., 29.999999387755103`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"\\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\)\"", "\"\[Theta](\\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\))\"", "\"|\\!\\(\\*StyleBox[\\\"x\\\", \ \\\"TI\\\"]\\)-\[Theta](\\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\))|\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{3.7705080988561983`*^9}, CellLabel->"Out[149]=", CellID->726678041] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031729], Cell[TextData[{ "Plot the ratio ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[Theta]", "(", "x", ")"}], StyleBox["x", "TI"]], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7705081157629824`*^9, 3.7705081285038714`*^9}}, CellID->473269201], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ 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["ChebyshevTheta", "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["ChebyshevTheta", "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/ee5f5472-308d-448f-98ab-b059536c5c3d/"}, "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], "ChebyshevTheta"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ChebyshevTheta"], BoxID -> "ChebyshevTheta", Selectable->False], "[", "x", "]"}], "/", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7705081332541895`*^9, 3.7705081545552025`*^9}}, CellLabel->"In[150]:=", CellID->151425471], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3c8le8bx2VFSYtQyshOssm6LlvmOY5xjEokUgmJiMwSSVYlWX0rqVQU ChEqpEhaVtlnPEcpSTT4Pb+/zut5necez31/rs/1/sj4Hnb25+bi4jrDw8X1 /98yzTXPPHlEsCAnw3cL8RlinPnamtaJoBk7SPDz7QlIzBxxPaMrgsJNFEp7 6gSc7moYd3UTwbEb3oobAycgQyj/iHSECCZ97ivst5qAXNsIbs55EeSdW/l6 QX4CilvVpOPfi6CXfIZA+MQ41DQWe91yEcVnUsGdw4HjMHE3oWfBeR1u8F8r 4B0/BsTkzj0vwtZhVrb1WMPeMfimYvAtJ3sdTt+8l3poxxj8LZ1eodyzDr+f vLq5cu0YiBT77aBRxTAmtzz+xu1RMDtn2XTDSRxznTR8XVkjEG9bdbMnWBy/ HfsQFPtmBBr5Nuf8OyuO//qdQ4fqRsAghmsf7ZU4Gr1VXeGYMQJa++uXL9pI YBi1IaFRbwTC5FR+KgdK4L8b/Z7FsiNQMZT32SVFAiWOLG17sGIEVN0iKm89 l8AAX4mD4ePDIGeu4e5mth6d123XNs0dBt+FYkzYsx4jwn98uBU/DCW1wirl 8evRM+/WGbNDwyCpPvl3yZP1WNLfUzpvNQyeHE+G6uf1yNkc1iOmPQx5pS9e u/9bj+k9Nvl7ZIZBdOON/+4YbsB7j72dOHND4NIrmt7ruQFPJQxnxr4bguyc 5KM80RswqNw30rdiCLodf+xSu7QB06+OEXnpQyC8zNfG49EGNFvn1Cu1fwjs n3drJH8kx4f7aMxaDkFaPGy4N7sBkzednly/eQjaDe/y9otKopXj+6Ulu1jA /0vyK6+OJB5PWl9835wFFvfPfNzmIok2Lx5HcCmzIPHQ7ybPI5LYS1ny6rQw CxbGPuZUVEqirJHQT8t+Jvzqzt7urbYRT5amrN8VzgTWLYGTDxQ3YXwJzTT4 PgP8t/1eobFCGrHqufUgdQLsB1Kui2+Sxo7ju8biDCdAO0XUmGubNF4936fj TOqLd0j94GuKNDpevFEXPz8O/2UEdBzKlcZMh6Sxn1fHYejLu1O3NsjgJzHv 7ldc4+BRfm9xs4osfr1nK/vjwygg3fjickNZXPgm9Tv6+Sgo8b5U+2Eniy6O 7RKbq0Zhzouxs+WQLKbeNu7syRqFC8s3PvaplEXhpdU5pY6j8DYo7Vih/mZc 4bHuz8fOEXBQ9v++zloOS5nya3cOD8PvM0frP7nJIfdHD8Ly7TCUfT158to+ Oey0L+Aybx0G3qpSCc1Tcrj15JltUeXDUGfCMnV4LodvR97kd0cNQ+CVueUi 78nxtVuC3Ei9iPIKfugfl8MIZcPVUz7DEPJCOSiQVx5/zj8xotsMg4LLgewk c3lsOPgmnk98GN7VHPe2pcnj9sCKhI1Cw5Agka6w2k8e35v4rbXmGobBz+V1 RYnyeHepa2HBG/L+TRuS/bPlUc5Ugu5eNwT61zodVf+TR96oah7tq0OQs//r aG2zPEptluJ3PjoE+GqhPP6NPAqKu7/M3jUEX9VWRlqPyCNDSHfXjPUQFGRJ mQp/l0e7qvnICI0hsJ3Ztvw9lwJOH9RbtiqFAXNu+P7yKgXk2aOcMRPBgOu1 lGJfaQVc4FCWfdvHAK64UK1voIACvq8Vt1gz4O5Iwr8aJwUUW98WGKTHAC+L 7LbY3Qp4Wltz5IkiA2oEH3gtj1PAnIsHGsoFGHAwdyZJoVEBXSwFN6e+nIC+ m5HvvI0UcW2An56C6wTcfxd79IW+En5Yxlf0PmIcyk7u9R3doYQ3l9z4fIj0 pyJdO6c/nkroSeulr/cch7Q8ceWtsUooFB1JuWc8Dn7eDwYzm5XQ0Vzh2TO+ cfBckf/iZo8S/rE6ZPn71xhQGuNrWsaU8KC+SK0ZMQZG0o6ZM3zKGKmkPLj8 Nelf4yxzuq0ylpj+YUVfGoNl51+rh3opY2rKmzfm6WPAZVWzMe2gMjpmf4zf FDcGkzeSftVnKOPp4Kf/CfiPwSg9aPxdsTK+OQGvxehj0CtIffOlQhlX0EV1 9O3G4PmBTbel3irjh6Jfm8s1xuCxJF+e/rgyOmRG71+UG4P7nZxk6k9l3Llo usdPfAzKTvSEBvGr4FJ77sRLnmwo2la7K0lMBc8IH9/9dwcbcoeL7QqUVPCL wZ2Z8O1sSMs6pV+9XQV1+aTEeJTZEPGDtobppYLrbZd47xZgw8FrBouLB1Ww nu/Klq1zLPB1lZkUP6GCg3KDoytZLHB8+PW5bYkKJhSuDFjbzgLF46lRd8dV UKoWjgqnsqCX+8nw0UNb8OAxV98HpJ8YrlG5xxunim9z9vI0KzKha4nni85z qlimz+Ukv54JPt9Txy6UqGK9xNS5S0JMSO5miym3qGLiea7Eyu8M6Mq4Ge/A txUfzpYrFDxmgM9yZecLZ7bi64E8I0tXBiTzKv1UzFNDkfumn/WzJmDdjPvK 72VqeHnunGzQyQkoG0tRrqtVw+GsdIeyqAnobGHutB9Qw9EgDx47X/L9hBut IZu2YQn97i1F7Qm4+U8hr/baNrwt3eal2j8OAX+yC6/T1dHoqa7bkNo45DpO Po3yUccCnS17t8uPQ9MVS8IhUB1VbyrfKNgwDuI2c7qzkeoYM9V48YTAOLTn 7uy2uqiOYR4ra++OjsEMs2Z2fbE6Ur/581L7xkDacNXGqVJ1HOzS3/SX1Nex kZb9F2vU8TH32zMHG8ZAWU2Jh/VeHQfu7Z6vyhsDt4QE5cef1HEuKMq34NwY JL7rd8qcUMcvX3ZtTz81BncVtSP2fiHXp+8KS44dg/7oswX6P9Xxp+/AkpPh Y8DfxWgR+qeOkapOg2cPjIGmDLKHeTWw/oO07K4aFuwKv7SyWkgDr5f/Z8J3 mwVpbdM6qSIaGCezoqWmmAU16+29d0pqYJGURFFYLgtGD11P1JDTwBull57p k/dvIEJ/3aelgakuzx+NhbGA49MQqELTQK0j32rvW7FAvGrduQVPDYw8udb/ iSHZj5aGVPf4amBWc8/ke3UWFNyR5T4epoHbppbvlN7AAvvfKZdfZmkgz60R qvI3JtzJce462K2Bq5R99nIVMOFwK1PrnoMmgpq7T/BvBjRh+QFVN038rFe3 7OUUA1bVh1y9uUsTj31RTNOYYEDFvfk11w5rorTz6zcbuhkwnbd8Oi9LEzML Q1bsLWWA2dpu5XX5mnhY+hJrRQEDcs7m7sn5TxP9/a6qNWcxQDtx45uzDzTx 0d1V7eaxDIg4sK0i8b0mdr+z7HrowoDWiR/MxU+aqPmgs/C2LQPEfB5JxTI0 MSbi+5EyZEBgf4z776+aeEv6rMVdXQY8cjE9F/lLEwVDsnkaVBkg8JqvbWZR E2/eFbj+TpYB9B0dC6ECWvhHhhliJcSBsqcZulOrtFCtdyrYkIsD88a04IMS Wng74ZKM4QwBto/EStkyWhi0/Fq0JYuAfM3BT/tUtPD9FdYBz0ECDBT9HfYY kuPPLxm6+oyAmFWRqm47tXCobDHpwXkCXqUZ7n3rr4Wpyx6uX51GwEY+rgJK sBaai04MHDtBQOP86eV2cVo40JBSti+AAK6xfAKuaOGN91J/a7cTkFTdWKY8 oYXPdOp3aw+TfuPJL//voDauXk0V2qzNBhN1oVl2uDZSJOXCdquw4TvfmrYP Mdoownzqf1WaDfTKjfsr0rVRwzP8rekKNsgL6NzxK9fG1ylvPnxksKCp2k+n g6ONtgKa6/dcZsHsqmbLi0E66MHjIlghyIJbjNZ1yWE6uJy+Z0sXFwt2Pn7F DInWwdiJ8IHpX0x4FtCbapumgzelG9udGEzIapzq/HdTB19uubDS/SkTVA9u ctvL1sEnbH218yeY4Nd2fJ9GoC5umpGtKZlnwF4jBcfZw7pYcCB4cznpT/sq u3XqI3WxOUB9dQObvN/L8nyWKbooAzT3qT4GBB9+fZVeqovUP4HfcusYEDIe dWbjXV2U8j/59CXJT6EeckdGq3Vx+AidWHqbAeHmUWYHn+ui6VbaxszLpL4e bVbR6NTFwJbrmwZzGBC5tWv17DtdtH7Eu2trOgOixTaPxI3rYvWOjIShGAbE pHe2W0zqIrfJJi88yoDYJccqBGd0UVD15M7SQww4ESGb1/VHF7VKUpJWk/06 nvMqLodHD5/mvzcuqCMg0ScygL5cD0uf8dIuVZL3+V7GaeNaPVTRvxVVUEbA qScRm27I6mEIa2y06gIBp7Vl+A+q6KFggbNEx1kCUm++/KKuqYcnDkzaTCQT kJ4j3VBnqofmnveObz1CQHZAh1eXjx7mLmSl8lIIyB0MN88J1MO3jjhmY03A earUFnqIHn4U5lmaY0JAnmH475E4PdzC1XVefysBRSs3XfpZpIdw1UOjfRkB tx6GfpD8pIfXAzPjZlrZ0LxUgnrAQx/5/1ixvMzZwLiqZtu3Rx991LfNFRuw QQgtzK2D9HFJ+IpVhAapt2OHdTYf18evp5tMMkn9TbGeSwwU6GNo9iHO5gUW bOwIG7Ud1kfVb5X6fnUsiEp/dUQlYDtivfOCuB4LNFbHX2CHG2DbSm0PbWRC ncBHpbYYA0yPnuux384EMy61+mvJBlhaa+6/X5MJLlMDQ7tzDbDEcezZXTkm RHTqKX94YIAWP/YtDxJkwuPUqfqWaQPcbe5YUPyWATbcu0cuhxhiTolO39cg BryZrz4SdcwQj8fTS5P2MsDzuxC/e7whCnoHSknuYsCB4TqVNZmG+Nn1sQCd yoCMxnXhp+8ZotSZ3z5/SP56F93Ff/SrIfp7x0Z94SP76Q9jVceDRnjns2ha 0LUJWLGGq/tduBG2n9py9mvhBNSptxzxijVC297O0IiLEyASbFUfmGGECi+6 32SlTUA7y9E2qcII507uSZ8NmYCjS1d/Faw1QoN7FMNLQRMgq/A2K7PZCDd/ DqiAvRMQ4+feV9hjhBMtZUMX3SdAOVEiVm7ACHkvKefsIPPDh5IB6dtjRvjf zfjFBdsJSHpS+Exj0ginnfxkHllMgPrn3YGPZowwry3tZ7jJBHz6KyME/4xw VqHqmI7+BKRtGL/3nM8Yf410hIaQvKJnUEqzFzbG1pWZfjIjLBinB/7qWWeM FSqyRR/6WJAVqXLZQ8oY5SYaNmb2sMDkwqTJsKIxetGvfXZ4yYK8tyGnvugb o/fNA6IfHrPAclpTJdzUGEcSxpNKqlkwvepn5+8dxvjnz0e5w3fJfuUYJSrg ZYyqvBlT4iUs4HqRcE021hhtUxrMipJYcIdpbnPzpDHyhIcPpcawwJOff3Jb hjHWl7zJijrKgirzNC3jYmPcssVP2T+ABYGN2S3uzcYYFc3bctCOBd0Prg6n 85mgIjftooEIC2J7/JPXCpvgklfhU/4rWKDyXVEpf50JMq5dUjjPz4JktfLD NxRNcLdih9ziHBP0b1YtNO8wQZsf1/iWfGbClaLnkr/OmqC3tUx6bRkTCrxV P7peMMHu/jAl/I8JeetzsqqKTHDk2mfHjstMyLjgwx92zwQT5oPV2BlMSHVp a+p+aIIPI7pHYk+T/LZG7fi2JhO0W9q6dl0iE6Iz/kxNdpvg92uCLMpRJhy1 971l12eCXGfvJP8IZkLIshd7b42YIK9uVu6lQCYcaN8mJUiYYIQ2U8Tclwn7 Tl3oC5g2wZ9yE9zfvJiwx+JfTutvE1Qte+pV4soEb+69jvI8gMN1aicP9RPg 3tQhkLwccPrkoQ3qbwlwPqHxdHQtoOsD3rzZlwQ4GOXFmkoCDkR2/Woi+5/N 7wW9EjnA3KAyvXMNBJhEvCrfqQP4m1/ETu8eAVuCAy70ugHSBnSDqrMJ4N1V uL/rEqD2je6hfZ4ELG7gldv6H2Bjq/mbQzQCfvcFfT5zC9Ayd1fYMXsCvrnq 03bUA46ZDT/MI/1s0OGt0bNBwC/v1yzybiagv4hX4NNKxLb2VVxpk2x4kGEw 0OOMuJS/MlwzkQ2+l4X56twQzw2anl4fw4Y1ZaNqVzwR/yTuTeaLYENIc1ri YV/Et5+E1cb3s0F1pl9ZKAxxf5HWimdUNlzzOH7MMgvx0+RfTSFZMg/IPRZ9 9Bqx5WODacUzFoTXGVMK7U3xyv6+0M+rWVDt2cbdRzHFnU1tK/4uJ/vrb0q1 iKsp7v+RlipJ6inKcO/69J2muOewovi+30w48ThtPDrYFDcWOblvGGNCSuPH Y/RMU4xWvZMpVM2E/JbQK2vfmeIGm/JvfzyZMOD7h+bUa4oqyJ8fSt6fJM9J /jODppj57vYY24kJReZ5B7gnTPGdmz9l1IIJV5816nz/aYq/nz/zmlZjQnnr 8o4uMTOUe3v8ylkeJnzZdz5mmaQZ7uVJPKK6wAC1pVLbrKTNUFClo71zjgGV 1pq5DUpmqM4SnxX7SubNdvqu8u1mGH70o0pHLwOedFyfTvUywwCW5/Frdxlw X7w7NHa3GWrLjT55epMB1/b9/hbiZ4YqxPKNE9cYkMbtNOV+wAxbq0Y2qJH9 OYYSFWx32Azrvnyqc73AgMNFV7+YHDHDqXUbD8WRvOg72XlQM9IMVZVtNW6T /drFYI4jf9wM+3A1fx+Zp61Pyx6QiDPDFwVShEASAww+2BNCSWaYP52holFI 3qdc5H6uFDPMW7eite4iG6TCrrB+pJkha+mJaqtsUg9NLwOYGWY4KOP/6106 G3iFZxn92WZ4h8c6zT+FDcRN24nmfDOUZa4tPEvqZ/BX+N7qIjMsChZeLx/J hteWxWNl/5nhr1bZ0cZQNlSN/Bg5d8sMe0qeO8zvY0OcROHnnXVmuKojNCiV 1JNI6tTH+T4zjKQ6RIkqsoH/o4T7l09m+FTjxp9uGTbMy1l8GB4xwyRRz/sZ kmz43JT3ro1thnPSFg9XrWHDzTnTN+fnzdDVvm5O7R/pt4G5HRoS5phpGqry 9i0L9ltvb9hPN0frKQu+ykQWfFWSeF7pbY6BqhFnLWNZELZs/tW8jznKdD2K HoxkQUzno8HU/eYoULXhxOpDLMik6f+9GW2OXsY2fy+6k3llt54hUWCOPWIY LbqVBdzHdGqDRszxjtzysbY+Uq8eos33J8xRli0uWvqOCUKGP9t/s81xoHx1 zKnXTBBdqOpNmzbH85qiYw7PmaCUrD13i8cCXSlDX2YrmOCUqaXHkbfAta42 jRWk/70LXQtaKhZYs7DkYmUSE+i0H1bH1SzQ7tjRjCqSJ33XPXBbrmeBM8kK 75rCyf5foBmxxcYCaz22n5/2YcKf2DUnjthb4FC7qQmvNxPid0+frKdY4McX nn/E3Em/lb1/3s7DAv0V48otHUi/LtOoPhBkgati1rbWkrzR3ufXXhxsgYLN R89PazNhZtmFgbdhFiisU+u1VZ0J0kbtX5dGWuDo/A2xoC1MsDv0e4nRcQu8 u21Fe5kCuZ8iVdGQOAv8+qPqAFuGCf+93qV0LckCK8qU71/nJqCLK8uwN8UC 5dVr9jv/Y8NvjaeOQukWmOQm5LRkjg0Kfj/3YKYF3lvxwef+NBuccxWPhueS +9ndWOj/hQ23Zs9cHiywQJe9BTk9o2zwqHdhld+xQIdD121bO9mQPHnqz3Al uf7zI5mn29lQsbFWWLTGAs++HJq1f8oGgfiNOrGNFmh1Ya/04CM2PLJgJDi8 tsB3j+Rb1l5jw7quyA1fv1mgks8KOWY0G8wWb6rJ/rRAmbu3+juOsiFYfdDU bd4Cb3+/XVgRwobWbAxsXGKJOzSnzBNJvR91F6zOWGOJOlGmU8bObHg3nO+4 TdsSRQXT7ouSeYVrTeceP31LbNQZKJSQJ+vTfDH8opEltn+iJUqR/Jh03e/y ooUlvrm2QlNjHRs0g1RZr10tsfyNiNBBbjbsurzrD4+nJcqJriiJI/Wf9ipT WH+XJQrVszafnyPztNpP7ZJ9lui8t3b2+VcWCPso2rwLssTtGGg+wibzdZaH l8BhS2RuDT6+ME7yy4+GhJBIS+R59LfMZIAFwT2Ze7yPW2KA65t11R9IHqn0 M7WJs0SzjwdUt5J8o5ypK6OdZIkX9VvyX1ziAP9hwSXSKZYotvdJWksuB8Yd BoeXn7FEv2Bbp4ZzHGhWvdf0K8MSU8v8mLVpHIghXOJfX7BE3yzLjEfxHPB4 oehTn2+JAglrLtcd54Bu2W+4UWSJUjIRkY0RHPjuX7J4otQS1/etvvzyIAf2 jXBOqNVY4srnOmF/6BywaGrctb7OEs90Ogwvd+GATHGWCX+jJY7Ub1u3yYkD g956C5+eW+J3vWPvrS05QO1NjD373hI5I84pFRocMHotETM5Y4lbbyiMv1/G AYm7k169c5boId7rzc3Pgdn0J4bP/lriFTTJUF/CgUpb/z+Xea3w+Mdosexf BCi0VkTbiViR/it+a/84AasbrKNuaVmhpqMMX1AjAYxbRyMCw6wwZtORnTfJ /OK2ceFzWYQVvvRa8fBGMAHPz52yZkdboWBG6M8b+wm4Fn5RPCjJCi9pOUje 3U2Ar0lt3YFcKww5Ej7TbUfA5zd/F4JrrJB3w/bRw3IEOFqcDLhXZ4VaV70F 06UIaKhZ0T3VaIXJYjG8t9YTUHB505WQNisUu3whjLOKAE9/NA/rtcIzF+tX J5P1934uKeXobysc8rCNXv6RDRYHhL5VL1jhoigrwKKH9PNPufRZbmt8aXFM Io6sr+yW68qRy61RPzDl2TxZT5T0tpfHJK3x+LKtUryVbGhacNKulbbGT6ny q+3K2bAttLdgXs4aD/+kPsm5wQZhN/ah6K3WqNoWbq9SxIZXUstXxZhYI/eU /cqDZ9hglJ1z7LEZ+f4x2/amU2y4zSs58tfKGiVDCR0xkmfS2Kr3Y52s8Zig 25YXx0j/8Kpe30izRrNUy0q5cDbs7zJOWnC3RmM9KVbCYTbYPHB0ifOxxjP2 w3tNyfp8JP/x8ZO91pg2963s6h42KObtlufab439nib5S3ey4cIy1lk8ZI27 mz7rHaKT/Sk2ZDY+1Bpjpdjx72hsiJia29V81BqzxY6GGzuxYWJPQtuSaGu0 /Za/usyWDS7vBNXNTljj6ktH3EWs2PDMKjsvMdEadVjm6g7DHJjYV98ZfYo8 zz2rll0aIOsnZZz7SBo5fvlsFOMDB2zadA/5ZVvja8te8VOdHHhlPWBq8Z81 BjKuG/XWceCtjRyHr8UaL3dnHWg7z4FR2xrj1CU2WHn76J+X9hxY4tQ/ei7e Bi0/bdhm8YSA9kbXzeHJ5POaaRpfPQGZam/86KdtsN7g0pu2GgKkhdvHpTNt cO37jneUuwRgZzWjstgGo0bHWWGFBMTbZRFvG23Q62J23exxArhsbKbF/tng ltigO3PbyfkfPtX8y7UD877RasZ0yPkV4cgw7w7UGqTydmuQ8y/VnSkT2oGu q7ceKlcm52/dPLtdcgde1R7bEy5Bzm+xOO9luAOr/8tywXnSH01rlpRE7cBk /w6vZ7Vs8LRgdvTG7sB/uzeVJlSTerQWz12duAPT38R6IKm3QMdohaS0HTj9 I3uuuYwNb7xM7PZd3oEvF/N5P5C8819Ea65qww48OdtWiyTv/o36tdO/eQdu iuozFQljg1uskmLR8x34/cFvRfYhNixLTqtd2UX+v7Jh+UV/NhzJcvw8/XkH Cgmf28TjStZH+QfFWi5bjOQ3+7RBmw1F95Z+/85ri+rnb8/yqrNh7r5+nYqg Lcrw5vtNbWFDeW2+fcFqW4TKUJ32zWwQbdsVGidri05D4jdS15L83XHO4JGC LSaLPrCNXcmGjs4mnu8q5P/O1UZhy9lw4p3sBV8tWzxlfkDQh4cNjBFGnaWF LfLG8Gnb/WABTogln7Cxxdk4y+07pliQz7JxeGhvi9UfiBQbDgscp24NKbna 4qNmzoLtGAvKpgfK9njYok/EcgXHIZJnZoXC8nfa4mKDeK4z6f8P/wbzCu2z xYWC02a7SZ5aw1XSaRFkiwnR9xMCXrPgIM+bC7HBtlgcQecLJfNtKz+3T02Y Ld7bOvTqeBsLpJdpKU9F2KJu8e2PKU9ZEL1i77TicVvM2LpZ/vwTFrxbdb7e J84W8wpvV12tZ4GaSGvypSRb3P9dniK0kQOnxX459KTYYoN6f1u9OAdy29vH Ws7YYvjPb5Y1IhwojsqPenDOFoWSQn5WruJAzYDx9dyLtqi8kMYoFyDrqzj5 r9sNcn7FfdyVcwSYKa25PdBqi71v4m5/7yXgr/5WgQk+O6QI5itT8wkI8fRr +ZVkh8Gt1xcPShMgXEwMG522Q27xgbu7JQkoHwtdTEi3Qx5KSTFNnADmwXgj ofN2qC5y0hxIP90VV1gjXWqH7QkRyfJcBNhf+3hrR7sdCvhLBG0dZoPSV7uc y0L2qLir7bXCFZIXNN9WDq+yx2+/7C8gyed7Iz275UXtkafQN93rEhuKufav qNhoj5e7RPjOZ5E8svZUyjM1e/yXfkpiHel/vPpNx79Q7PFDj7E7xY8NIwna e+G8PT68Unr8igLJT+uEM0Iu2eOGDrdH38m8FnSL+fBKoT0+m08VNJdiw0xP /nLeUnvcw8hhssRIHpJb8qC9xh7L6xaSTQXZoNbaucS51x6757wH5SdZcMTz xpakQXu8QmMrpbBY8OhrvGvVsD3aeyQmskl+MBXTvrmObY8qwO9V+YkFLoH5 lIF5e8wxvJjrQOolellA8d4NDngmoP3Zw/sseFKEL85LOWC3cddt5Xss4NVa /6N1swOKJd3NK7jNgrNenVbKqg746I1B4slrLCgp1/r6xcgBv7P1TvtdYMEE rhCXMnVArv5nWZ+yWaDynmFKsXTAH1W3C+nnWFD179L5+w4OSLv1so56mgVt jlzGkbscsH/MdMEpmgVCY337ynwdcOFxqnBPBAsokQ8y+/Y5oAOzbqPrERac X362btkBB0zdH7il7zAL+ov3jRsedsCU0/J6uw6yQEobhQ8dcUD+tpM4HsiC ve0S+kWRDpgwIWl9wJ8FN71/7Hl93AG5R0/Y/thD5o9vr85wxTtgU4Ou5LVc ArROllZrJDugzeGEe58yCTgmET/ke9oBg+WUXMXPErDETEvreaYDtr2oeZ95 kgCRnEv9qVcc8NyzzcUZEQQse7/2Tdh1B5zmMZddTfIEl1hGm9dNBxRq+56Z e5iAL/mJVVsrHTDocuq2okACWv87kPGmyQEDTsYFPPYk17tvbCYx7IC33y8P kwMCgmce6nOPO2B2Nyux2pCAvbqa2zhMBwxzzI+y1ieAWqcg2TDlgFaX14gF k36u0rJy1mfRAdl6qQKtmwn49GbkZtkmR+Q3uxNZIkDAu7XeJVmyjugV+7ce +AjocP1wIVrBEQ2Cc4eHlhBQ09eRZK/miPdaTF/I/mFD5siDnd+MHXGKunbl A5LvT21Wc+kzdURuMSV7D4INMf5lti2Wjni+tXsfF5Ps7+wCvVwH8v3Xp7So ZH2ZfT+5Wn+nI7aXbJX5R/KKvhaXgMweRzx68bTprdekno9GLwj6O2JYW6cR /RUbNswHcwYOOuIGg+ctNc/J/GvIHnkW4ohnJV/bB7SQ9RDr13sn3BFvRIZV iD9hw0Ljp64Lxxxxe4rXl456sn646M/jYhxR8L4uzwkyPxBmPfWB8Y6o9o1x wugTB4aT7e9Tkx3RmJGedquPAx9aW8sMTjtif69NvATZ3zsFTIs3pzti23jT 7tQeDjyzrT8vlEnu3+Wy0u8uDtSl66T/zHHElCsn+g+85EDpKpWotsvkc97v X9RnHFBjeMzxljjiziVlbVFNHHhYnxppdo0cb/7oxn+POdC+j320odwRnROM L/6q4gDxuCzsQYMjllSdVbx7nQNb9yseLB4ix/uX3nZI4UBVs9zuyM1O2JVl YEqzI3k9TMpS8bYTXopk79rzgYDfP6cyJe85YVKCzdqlbwnQjmoaXP3ACZ9m LBbeeU1AWdye8L91Tlj4UVvnXzvZ/9OvXn3T4YRWnxf2lJK84VOqyB1DOGHw 7bLD0lcIWJy8uJslQsGrBSL6lQdJPlWL5xtbR0G72982hZL8qx8SePuTOAUp 3oE9GvsICPuh/6tHkoJnV/0rrCZ5mDHfl9EgR0Hz1uQnrc5knuSXbMzWpuCS L52EMMkjRdIlksYuFLxuXz2kzU/6eZpG+1Y3Cro/fHpnIw8BcT9ajmyik//z luktJf3ap3WiY9GLgsQsI3aQ5A/Zg1uiWvwo+G7m56tzpB5LH9a8tz5CwSij WEOJ96Qfy9gk6B+lYGLmxxsrSL2lpPWpKkdSsPUx6yU3qbfAnX+Tlh2nYIuY qsEUmT9VeMw0OxMp6PxRrqz7MRvuOnZmOGeT672uzKom8+amR7sMzHMpaFjl 6FVN9odzMt8mtC5Q0HbZf73VJB+HzKwxFs2noNbSkC+P8sg8mE/nfLxCwXU5 L4+1pZN8w0NcaL9KQbWTxn2vUtmw9tBxs9rrFPTvD+H0kPw8A0WX8m9SsISy WW4kng01E2PWOysp6LL1xxAfmWcVnI7+cHhAQQ21222rSB66+Ii/2KSagrFP dXdLkvwsIJtnu+0hBfWr6KVKB9lw7IzyrFQt+b1jbwt09rOBNVN3ZVU9BRnU A2bmJF977LJ3WNJAwUvrRy9Qyf7U0fZp7nsjBWUj/lzy8WGDgcbha6NNFEwO ELc8vJsDt/K5KG9bKMij1yVv4c2BDbzZf54+o2CFm06LhAcH/n6ocr7eTsGU LWu3tjlzoCHmN1dgNwW34M+nKlZkPrvH+JbYQ0Ghrsk/TWYcUB/rGS58R0Gl luPCdODAtR23m972UnB8rXjLaX0OpK3zjocRCqp3eXvOqHDAraJhcd00BYON twnMrOTA1Fj8wvO1VNR++VU5p58AJbFDX4dFqfh4gU/C4iOZx2w9Pv8RI59T Wnp/kvXwoUKjUUOSig1pv9q9Ogl4HDsaWyhHRa1tX/w0mgiSZyz+hetQMXbG x5SnlAAZu6V/N7tT8Wl0dzqEkfX03rxnvQcVg92+LCLp31a748tWe1HRq/mM tDlZH0FH5l0Wd1Hx2sc9+3eQ9VB1mXOnfx8Vv/UKrN1F+rnV5OvdWRHk+17W OTfMCKBHCOmePkbFmyIbnz4g/T2Ia4dQXDQVq/J6CpqMCDgn0vLo4AkqekvN 2Q/qEtBrVLXa5hQVZfO+XdqwhXz/bN7ThfPkeHf+6tq1BMSIvb/08yIVN0kb BnaTvJNxZXXI5CUq9j1oa2auIOBBdZpkfyEVaXcEA8RJ///7KeZo9XUqLvGX Dk/4S+a9wFq78htUbHLldikk60tm+qfM1ZtULA5P6K2dZYMV/+GuzDtUnG06 3jXzjdS/2h7Fg9VUPJXsHxg2Qer7UeE/34dU9NmiE5AzSvK/Wf9bj1oqSsZ/ EageInnq1bpblHoq7tpNd/g4yIZeN1q8dQMVXzSA9u8+0p+Hz7mZPKEi68ah ho1kvv0X9EpVp5mKqsnjdTNPOLDqpwCP6lMqDstGKI2R/ikbZ9kn+5yK/dvu m/fUckBbMPGeRBsVP63fLdRSwwGrnMaTq15QUfqQeeL9Bxw4cENPc+EVFQU4 r8LP3yH99LXymb535Hz2V4P9rnAgc3Pz9d8fqPjdiLJFrIh8P5LetKGPimN/ gitf5pPrSaX83PmJiimtI+J6uRw4Fzy+e3SCime3PbUXI/05aEWxNmeWigq/ JZb9O0iuv0fXSWiein/v7DNq2M8BmerO/Vv/UPHYuiqtE/s40Ov9t+jwIhVt XLeHcPtwwLLcQ3BmqTOG/HCUEKFxQNpO5PNfcWcszdg45bWdrK+i23MbNzjj EmKaoqTLgY/TZmthozMeWxl15KcmBzLyQ20SZJyRrXx6PkuVA3/YXff5VJxR pNyO+50U2d+M93UqqDqjWAr6lkpy4H7WP6a1mjNK23TER0lwIHC76sY0TWfs HMmck1nLAYuzT/VuaztjsKEN9RdZb1Ijns6vdJ1xOiY1oFOInO90aoqwoTPu XlXy8jg/Od+g9H/bjJ1RbfCbuAsPB86qP3pMAWdMT2qR3cpFzp/s9DHU1Bnb SsvzPD5PgkUv43u2uTPOjOv/+9M/CVKqJ4SqLMnxWbkqxR8n4XecqOJ7a2ds jIuSNn83CZWKFt5i9s5IEW/be7ZzEtKPD0ToOzojt/C1+1odkxD4OizLg+KM 2z9Nt/W3TsKmyCutl12c0YW323pLE/l+64K69E5nnNr3M/f9/UnAUIbGxt3O uNaHEV53bxJmNnRprt/jjEc9h7lKyifBO7RQW8TfGWlqqyQPlU7CVkkjfYFD zph9wdZjZf4kdIVGwbcYZzTgfdt4JGESVm2ccWgqcMa6bMdHdZRJyDnCDvIZ dEY46dis850D662iQ2mfnVFplqfJ+SsH/hNffsxqmNx/pJd7CIc8vwbVk6rj zvjsppbTnQkOdC8NKZ7jOGPEJt9dav0cEC6YfZv5xxkHRZvf2D8l89czHuPm 9TQMHGxqnz9P1sfFXPMqSRpq/buYoJzDgYv75W1vbKLhmzKHTo9Mkk+Erd3P ytKwWPSK5OM0Djynp4V6qNBwKJLnQkocB7i/rCr9vp2GsjEvX20n9Rojumml rAcNd4U1rltmTPJQpaAneNEwVMh5zyoDDmxy/HnNeycNxYSNncX0OPDk1CuD i3toeDMJFBQ1yPnmovcJBdGwX2BplqM8B1L6PzbMRtOw2THc7PEKUv8RTwVE Ymn4XEel79UyDiitvUfTiKNh3IaBNZ+XcqDD7hT7QBINZ2Y9grm5OSDUoC06 coaGn2P4mpxnCcguzjr4soCGPD9USlYPETBmGPuQVUTDq1TCQXWQ9OveQG7+ KzTca7/7snUfAe9XYR5ep2FB92WReLIfiCd+fVp9h4YRfE3Rc20E7N/UL/z2 Hg2T89OlxZ8TUFf33ONbJQ0hLnyvfgsBXj8KplRqaLj9Qcfz6Mdk3jx32sDm EQ2fRbwdLagl/XRL+En/OhomhKkWPqkhwKF9d3fiYxp+WXd1ZvQByTt77TaU NNJQg+Bl81cSMMWlt6+hiTzP9J2fNI+QeiyUrexvoSH1weMsxZBJyNwu/PfX Mxq+Otc1KXloEkbez1uJttFw4NbOr2uCJkEzbCJL8wUNna9pXxAMmIRE4TeD Ti/J89bcNM61dxLkrMvC0l7T0MfLJfT7zkkIH8tpuPGGhpbvdCsIz0l4Hhcn 8PwtDceK3XPH3Sdh3yO3osWPNKyciLfrp07CTWW+jvBhGnatqTjcaTkJPZKm fw6N0tAB0mUWzSbh78pY1YBxGi5x/LJHAyfBcXYmw4NFw77U3LMXDch6ahmn mXwj7/NQ75mgbeT3eT/7tJTLBdPUwhdVJCahNyPpe76UC17951gi8oXUS+IT 2VwZF7x+ZvSNO8GBLUf/0M5udsEOxa70y0wOnPA6UhOn6IIbVISK5EY5IKfk d3zvNhfsV2xQNv7IgcPNZnxq4IKVPD9bUpo5wD+zRKJ5lwuuejDPTLjAgbmK vIxxHxekJTY8KyDrg3NoG6+Anwtuqvxn9Iisj26m95RjgAuqF21b/EbWR/7A w+eDh11wuRXf8/1kfag9PRQ2F++CflxiqscCSX+O52VtSHLBAOXhmwX+HFhr fHknnHTBgjLppmZfcr2adptTqS6or7CjesVODrTc2iwlku2CyQP8DeVUkmey +15uu+qC8zc54ksNOWDjFGJKu+6CJwoXl+qQ/GMotPRhxA1yv82X0v10yPVO af/XcNsFJ+ZKXVu2cWCN+UuxkTvkeRxsuDRN+j0fl+9Z3gpyfFdJ2GaSl4io c8fsqlxw7bTo6Ck5DgzqKnwNrnHBpNt2x2plOPD6x2O/7EcueNriwn+Tm8j9 VdD6qutc8B6rzUea7A9VhwjHvscuePjD/fsuZH8oVUl49reRXG+3cl7qOg5c YooZSDeT32+88PxFG+mv1+7eM3/qgsfO17N6nk3CiT2W8gHPXbDcq/7GYPMk hGwazE9rc8Eoaic3s3ES/AbCVt194YI69s3z3+snwca15M9Mpwt+EDhXJ1gz CWt2/HmT+MEFlX4nJeKtSbihXnmiiOmCHl8VuF9mT0Kw6Pf5h2wXfNGbc33y 3CQJEepH33BcsOaw/6Dw2UloelpxgPcbqR+rkzyuKaTe3CroQXMu2D07osk6 Pknmx3uauoKu2K5aMKXsT/aPF3cYnSquqPxgRaWE/iQo+95y/HfIFUfvpi+/ MkTmtUKDiunDrvh62UUZUTI/7uvrWM0KdcXuF1V3U0l/vkbhvOs56opSgmVb w9+T9wWqXmWxrvjGcajOkcyH6yTvBtDOumLSS8tZiYek3j9Uxt8sd8WnLxZW CZzjwJXVZqNFd13xxGbll2npHECHHvPcClecIfbPrSD1GPtsmj+uyhWV5O/f Fj1J6uu+1lmXx64oHvQrVOU4B76eq760+NIVr83Y+u4P4MDAjtr7rhxXHBhY +tcQOWDmdI1+9Isral397plH+vktl3MLuVOuGLKz3Ogn6efRu/1t3/1wxR9d f1MqSL2tP7p61PmvK8r0T2zfuoUD9JL9qykr3PDVUoJtQt5/03WXh4dXuiE7 WmfvVZIXlG7DznOr3fDW8vldAqvJ/VWL3uwSdcOdO1zev11O9qOXzeiwyQ3T b1KaQ5ZwYKG7nHFQ2g1zJJwN+xYI2PfhYnq6rBsKFV/TNvtLgO7Iod6XCm5Y FXbrmugvkt9nJUJst7lhpYBhRMskASZ/edcFabjhvrOtDDWCgNIl3+pTtdxQ +Frc+8tMMk8uHdhzU8cNJ9abmQlOEBAh1Lr0hZ4bzneyVSNHCfi8uvIOa7sb brnhfH6C7B9WYgU0ASM3lCuiH3f5RMBdyZR5RRM3pDz6+PkpmS9EZcOKrdEN s0WIc25HJyFGcadlgJkbFhLtScVhkzCuasM5ZeGGbe+2/2UdnoQqvU16rTZu uNHOIDqW9GsXh44uC6ob/r6bU1q+exIeO1eH76W54d17w3Xz3qRf00vWJ7u6 IQ9/trM16c8zvhH7nnq44bHxM8vHXUieOCa7YOrrhvX9rcWbbUk/vhq9FY6Q +88fUK/XJuuFq6bW4KgbahxofWysOQk07++WupHkfW3Srm0i/fedSOCurcfd kCopw9OuMgkfT7qe25Dkhg2m3L0D0pMwGKD+/Ve2G9J+CR4UXzEJE1sYVRX3 yfN+lR0yTvLI3AOqkey0G74Q6brRnMeBxUdh1aeC3fGflOtnJPlvkP/+mf9C 3FFYsy26h+S/OpfvexrD3PH91i0pe8n7Dv92WHg2wh21lClTqeT9shQPBfjH uWN0zNP5vmkCei4ESFhkumOAx8ZPGeR9XA/3jl1yn5w/y1DYjuyviS2XaRur 3NHjqOFhguyvPqsGlLfXuON8x3GjtCoC1pd7fAipc0drL9sNL++R+WfMbdtw izve1ZhnUMk8d8yZOtL41h371DMLj+QQYKduZRnz0x1PnLJp5g8mgOv9+yXh v9yxVX8LDBwgoCbKv/HAvDvuWG0iXrGfANmnyXpe/9zx6ZH8AU9/An67PlU2 4KOjK7X+WpU3AbeOo/CcCB0p/NJbo+zI/Ul3d0ytoyNXyTkabQcB657vTmGK 0zHt1su3W63J7xGO4/ooSccQWerIGJkHPa80TFfL0fFSyRY1FwMCVlk53Luj QMeerDxpDX0CWonBA9eV6LivS/agMJkHNbX/jueq0lF3k75whwYBgm0GH49o 03HChT/GUpmAxgMdOQd06Vh4+5+2vCIB4as8KX76dEz6uteKT54AlWq2kJcB Hb2zFComZAkY9oh64WxER7bw1rBWaQIuLAicsjWh4yTLN/3GJgLsr+aZmSEd e0MpFZ/JfMRto7S43YyOT5tpclcKOPBo8mG9hgUdz8p7/fQj81JwlvUxZSs6 Biw4bVYk9SKn+1FbxoaOH6o23CVIXs2Mm72zyp6OMgmf+sKyyHywRqdkikbH tqLclJTTJF8+fObNdKWjp37HJYdTHHjn5SIx5E5H+C0rIJJM+uP1I9ldXnTU KB2fu0L2Z3H9+8l3/Oh45q++UksEB9p2btt/4AgdqeJNt9aS/XmNX2B94VE6 2p6MGSwk+/OuwCsruiPpuKjuEKdE5q/ZsLX3tWPI+VMrxcCL3O/pX7//JdNx ebx2ZijZr+PvP0nPvEDHr1q1JzmkfxospVRU15Lf61xUqSnGgVNCqdysevI8 Ux++7BDhwJvVLS7rG+kYfGkLzW8N+X2S2vMnWuh4sv/ezfMk/17UEDezeUnu X/dv6CJZLzNew2/7B8nzLvNxY34jAPdIKKwYoqO8Zp7+qa8EnNnnfAxG6Pjq 7M5T8qT/yYY+k7w2Qcdfn6T2+pN+Rz1V5n/oK3kfCwHyBOlfBWdGHhZ/I8/z +7RP+gBZb5nrl/VM07F+QWnpNpKH4y+n39X9RcfsNvmco+8IeFXynGv/PB1b 7auOSfQQIFa64Hz5Dx1TT8S2N7wmwPe23vXOf+R+Pf0TfTtJf6wI+bW4SJ4H w6l06UsC/gcw6Quz "]], LineBox[{{3.0168032878799167`, 0.4830425703497043}, { 3.0268509143494526`, 0.5919549789300242}, {3.0601004391680906`, 0.5855230914300176}, {3.0933499639867286`, 0.579229472929996}, { 3.159849013624004, 0.5670395836961529}, {3.2928471128985555`, 0.5441368541556258}, {3.3260966377171934`, 0.5386973574098547}, { 3.3593461625358314`, 0.5333655367851492}, {3.4258452121731073`, 0.5230123832978119}, {3.5588433114476588`, 0.5034668043587474}, { 3.5920928362662963`, 0.49880655954606423`}, {3.6253423610849342`, 0.4942317968258992}, {3.69184141072221, 0.4853294792198414}, { 3.7098643410752623`, 0.4830425703497043}}]}, Annotation[#, "Charting`Private`Tag$104937#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.4830425703497043}, 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, 100}, {0.4830425703497043, 0.9021423322603476}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7705081563832636`*^9}, CellLabel->"Out[150]=", CellID->452348721] }, Open ]] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ChebyshevTheta | 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->"bd23492f-070f-40f9-901b-c30c3940f066", CellID->904125756], Cell[798, 32, 370, 12, 70, "Text",ExpressionUUID->"2b5f2c4d-6409-4dc2-b32c-2c64650c0100", CellID->39262419], Cell[CellGroupData[{ Cell[1193, 48, 7185, 180, 70, "Input",ExpressionUUID->"814decb9-580f-4bf8-941e-c85b47c296a4", CellID->904993352], Cell[8381, 230, 544, 15, 70, "Output",ExpressionUUID->"638e2c16-94f0-45e3-881e-ba5adb94a270", CellID->987420070] }, Open ]], Cell[CellGroupData[{ Cell[8962, 250, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"93c31c31-11ef-4703-a87d-278c2d0bfd2b", CellID->224031726], Cell[9109, 256, 152, 3, 70, "Text",ExpressionUUID->"97021433-b17a-4698-9af4-9ee133cebd44", CellID->894779090], Cell[CellGroupData[{ Cell[9286, 263, 7405, 183, 70, "Input",ExpressionUUID->"363596d1-f969-4d1d-bdd0-1a16144f0ec6", CellID->924775364], Cell[16694, 448, 152, 4, 70, "Output",ExpressionUUID->"8d95b5ee-56a0-4917-8223-3c48f4a578ea", CellID->417692855] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16895, 458, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"5ba054a8-fa84-4b72-93b3-1a5f7b8a1937", CellID->224031727], Cell[17042, 464, 348, 13, 70, "Text",ExpressionUUID->"cd01bb51-c839-487f-bd17-864f82bc6be9", CellID->34930538], Cell[CellGroupData[{ Cell[17415, 481, 7670, 187, 70, "Input",ExpressionUUID->"7ff3bc3d-5093-4221-b1be-c6b340f5c902", CellID->60113479], Cell[25088, 670, 4065, 88, 70, "Output",ExpressionUUID->"66e21511-4564-4598-b1fe-6a38aca61332", CellID->125066802] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29202, 764, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"cb85b590-4293-427f-b173-2fa3352b4633", CellID->224031728], Cell[29349, 770, 822, 31, 70, "Text",ExpressionUUID->"14953366-82e8-4f4c-952a-2605d147f4bb", CellID->940973135], Cell[CellGroupData[{ Cell[30196, 805, 16860, 395, 70, "Input",ExpressionUUID->"aa2d31c6-e00e-4f22-9813-9a9c222a0b55", CellID->443096490], Cell[47059, 1202, 29796, 571, 70, "Output",ExpressionUUID->"17d79d1b-8f18-43e4-8cff-467a1a1a9232", CellID->726678041] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76904, 1779, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"dabcfd1f-9863-431a-9eff-9e6ed1534108", CellID->224031729], Cell[77051, 1785, 291, 11, 70, "Text",ExpressionUUID->"cb4030ad-8d7a-46a8-98c4-0d78ee1676e6", CellID->473269201], Cell[CellGroupData[{ Cell[77367, 1800, 7922, 192, 70, "Input",ExpressionUUID->"20022bbe-5707-4d9a-b9b6-7e6e69170710", CellID->151425471], Cell[85292, 1994, 21283, 369, 70, "Output",ExpressionUUID->"76cbfa98-4f4a-43b8-ad65-3f46770f31f8", CellID->452348721] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)