(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 577356, 16315] NotebookOptionsPosition[ 550388, 15709] NotebookOutlinePosition[ 552137, 15760] CellTagsIndexPosition[ 552094, 15757] WindowTitle->IntegrateAlgebraic | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell["This is a well-known pseudo-elliptic integral:", "Text", TaggingRules->{}, CellChangeTimes->{{3.802936573162331*^9, 3.802936591190785*^9}, { 3.802936639584029*^9, 3.802936691695425*^9}, {3.802936741910345*^9, 3.802936751313043*^9}}, CellID->101223932], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8243544627199707`*^9, 3.824354467032691*^9}}, CellID->510560218], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SqrtBox["2"], " ", "x"}], SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]], "]"}], SqrtBox["2"]]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.824354467901186*^9, 3.824437772859085*^9}, CellID->596100267] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Some integrals are expressed as a rational function of ", StyleBox["x", FontSlant->"Italic"], " and the radicals in the integrand:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.802941069724991*^9, 3.802941116443109*^9}, { 3.8029429106936398`*^9, 3.802942912285473*^9}, {3.802943146992947*^9, 3.802943148427404*^9}}, CellID->214676016], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "3"], "-", "1"}], RowBox[{ SuperscriptBox["x", "6"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.824354426549515*^9, 3.824354444854282*^9}}, CellID->542326382], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"52360", " ", SuperscriptBox["x", "7"]}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"2", "/", "3"}]], " ", RowBox[{"(", RowBox[{"9240", "-", RowBox[{"9900", " ", "x"}], "+", RowBox[{"10800", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"31785", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"38142", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"57213", " ", SuperscriptBox["x", "5"]}]}], ")"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.82435443452808*^9, 3.824354445592857*^9}, 3.824437775510655*^9}, CellID->904402061] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "Other integrals can be expressed in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Log", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Log", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArcTan", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ArcTan", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["ArcTanh", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ArcTanh", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ":"}]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "Text", TaggingRules->{}, CellID->347738977], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "2"}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"4", "x"}], "+", "3"}], ")"}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8226739628915453`*^9, {3.822674020456264*^9, 3.822674037176428*^9}}, CellID->985111207], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"2", "/", "3"}]]}], RowBox[{"1", "+", "x"}]], "+", RowBox[{ FractionBox["7", "4"], " ", SqrtBox["3"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"1", "-", "x", "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{ SqrtBox["3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "]"}]}], "-", RowBox[{ FractionBox["7", "4"], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", "x", "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}]}], "+", RowBox[{ FractionBox["7", "8"], " ", RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.822674008410119*^9, 3.8226740381247063`*^9}, 3.8244377782986403`*^9}, CellID->86726190] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["The following is an Abelian integral:", "Text", TaggingRules->{}, CellChangeTimes->{{3.802937605146007*^9, 3.80293763372423*^9}}, CellID->559540838], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"3", " ", "x"}], "+", "1"}], SqrtBox[ RowBox[{ SuperscriptBox["x", "4"], "-", RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"5", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"4", " ", "x"}], "-", "1"}]]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8029326991183167`*^9, 3.802932707320471*^9}, { 3.802936265266103*^9, 3.802936267614797*^9}, {3.8029367808724413`*^9, 3.802936795057226*^9}, {3.802937575832919*^9, 3.802937578997745*^9}}, CellID->733998830], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"Log", "[", RowBox[{"11", "-", RowBox[{"4", " ", "x"}], "-", RowBox[{"24", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"16", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"38", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"16", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"18", " ", "x"}], "-", RowBox[{"30", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"14", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["x", "4"]}]}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"4", " ", "x"}], "-", RowBox[{"5", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "4"]}]]}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.802937587405363*^9, 3.802989598874464*^9, 3.802989741358186*^9, 3.802991013732984*^9, 3.802993322460381*^9, 3.802995055680332*^9, 3.8034222752101603`*^9, 3.822674007551993*^9, 3.824437830101077*^9}, CellID->708242308] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(15)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can integrate all integrands in ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{"\[DoubleStruckCapitalQ]", "(", RowBox[{ StyleBox["x", "TI"], ",", SuperscriptBox[ RowBox[{"(", RowBox[{ StyleBox[ RowBox[{"a", "x"}], "TI"], "+", StyleBox["b", "TI"]}], ")"}], RowBox[{ SubscriptBox[ StyleBox["m", "TI"], StyleBox["1", "TR"]], "/", SubscriptBox[ StyleBox["n", "TI"], StyleBox["1", "TR"]]}]], ",", SuperscriptBox[ RowBox[{"(", RowBox[{ StyleBox[ RowBox[{"a", "x"}], "TI"], "+", StyleBox["b", "TI"]}], ")"}], RowBox[{ SubscriptBox[ StyleBox["m", "TI"], StyleBox["2", "TR"]], "/", SubscriptBox[ StyleBox["n", "TI"], StyleBox["2", "TR"]]}]], ",", "\[Ellipsis]"}], ")"}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], " regardless of their size or complexity:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.80299831485618*^9, 3.802998355897956*^9}, { 3.802998479879837*^9, 3.802998483958748*^9}, {3.802998647390498*^9, 3.8029986538136177`*^9}, {3.802998757715599*^9, 3.802998802806863*^9}, { 3.803085881833886*^9, 3.803085885696781*^9}, 3.824368438252605*^9, { 3.825496948031592*^9, 3.8254969597692003`*^9}}, CellID->283827590], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{ SuperscriptBox["x", "3"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "x"}], "+", "5"}], ")"}], RowBox[{"2", "/", "3"}]]}], "-", RowBox[{ SuperscriptBox["x", "3"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "x"}], "+", "5"}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{"1", "-", RowBox[{"x", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "x"}], "+", "5"}], ")"}], RowBox[{"1", "/", "2"}]]}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802999867803042*^9, 3.8029999320289297`*^9}, { 3.803422344723374*^9, 3.80342242241518*^9}, {3.803422470339808*^9, 3.8034224954859533`*^9}}, CellID->744150817], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["3", "64"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"4", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["9", "32"]}], "+", FractionBox[ RowBox[{"3", " ", "x"}], "20"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"2", "/", "3"}]]}], "+", RowBox[{ FractionBox["3", "748"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"5", "/", "6"}]], " ", RowBox[{"(", RowBox[{"45", "-", RowBox[{"30", " ", "x"}], "+", RowBox[{"22", " ", SuperscriptBox["x", "2"]}]}], ")"}]}], "+", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], " ", RowBox[{"(", RowBox[{"4583", "-", RowBox[{"150", " ", "x"}], "+", RowBox[{"70", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"728", " ", SuperscriptBox["x", "3"]}]}], ")"}]}], "6916"], "-", RowBox[{"3", " ", RowBox[{"Log", "[", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"RootSum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "-", SuperscriptBox["#1", "3"], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ RowBox[{"-", SuperscriptBox["#1", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "5"]}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], "-", "#1"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], "-", "#1"}], "]"}], " ", "#1"}], "-", RowBox[{"8", " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], "-", "#1"}], "]"}], " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], "-", "#1"}], "]"}], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{ RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], "-", "#1"}], "]"}], " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "x"}]}], ")"}], RowBox[{"1", "/", "6"}]], "-", "#1"}], "]"}], " ", SuperscriptBox["#1", "5"]}]}], ")"}]}], "&"}]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.803422514824133*^9, 3.822674048107049*^9, 3.82443785299568*^9}, CellID->559289451] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can integrate all integrands in ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{"\[DoubleStruckCapitalQ]", "(", RowBox[{ StyleBox["x", "TI"], ",", SqrtBox[ RowBox[{ StyleBox[ RowBox[{"a", "x"}], "TI"], "+", StyleBox["b", "TI"]}]], ",", SqrtBox[ RowBox[{ StyleBox[ RowBox[{"c", "x"}], "TI"], "+", StyleBox["d", "TI"]}]]}], ")"}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.80299831485618*^9, 3.802998355897956*^9}, { 3.802998479879837*^9, 3.802998483958748*^9}, {3.802998647390498*^9, 3.8029986538136177`*^9}, {3.802998757715599*^9, 3.802998802806863*^9}, { 3.803017693453977*^9, 3.803017720955885*^9}, {3.823756631378642*^9, 3.823756631378721*^9}, {3.823757649511014*^9, 3.823757650479375*^9}, 3.82375815912579*^9, {3.8254969713178177`*^9, 3.825496971317889*^9}}, CellID->275575763], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], SqrtBox[ RowBox[{ RowBox[{"4", "x"}], "-", "3"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", "x"}]}], ")"}], SqrtBox[ RowBox[{ RowBox[{"2", "x"}], "-", "1"}]]}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.803017778320641*^9, 3.803017780249846*^9}}, CellID->286795877], Cell[BoxData[ RowBox[{"-", RowBox[{"RootSum", "[", RowBox[{ RowBox[{ RowBox[{"5", "-", RowBox[{"10", " ", "#1"}], "+", RowBox[{"6", " ", SuperscriptBox["#1", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"12", " ", SuperscriptBox["#1", "4"]}], "-", RowBox[{"40", " ", SuperscriptBox["#1", "5"]}], "+", RowBox[{"40", " ", SuperscriptBox["#1", "6"]}]}], "&"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}]], "+", "#1", "-", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]], " ", "#1"}]}], "]"}], "+", RowBox[{"6", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], "]"}], " ", "#1"}], "-", RowBox[{"6", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}]], "+", "#1", "-", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]], " ", "#1"}]}], "]"}], " ", "#1"}], "-", RowBox[{"12", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], "]"}], " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"12", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}]], "+", "#1", "-", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]], " ", "#1"}]}], "]"}], " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"12", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], "]"}], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"12", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}]], "+", "#1", "-", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]], " ", "#1"}]}], "]"}], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"4", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], "]"}], " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"4", " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}]], "+", "#1", "-", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]], " ", "#1"}]}], "]"}], " ", SuperscriptBox["#1", "4"]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"6", " ", "#1"}], "-", RowBox[{"6", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"100", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"120", " ", SuperscriptBox["#1", "5"]}]}], ")"}]}], "&"}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.803017780730958*^9, 3.803017801750839*^9}, 3.803020970844266*^9, 3.803078521569017*^9, 3.8034225220949717`*^9, 3.822674051832419*^9, 3.824437856219173*^9}, CellID->854850624] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can integrate all integrands in ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{"\[DoubleStruckCapitalQ]", "(", RowBox[{ StyleBox["x", "TI"], ",", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ StyleBox[ RowBox[{"a", "x"}], "TI"], "+", StyleBox["b", "TI"]}], RowBox[{ StyleBox[ RowBox[{"c", "x"}], "TI"], "+", StyleBox["d", "TI"]}]], ")"}], RowBox[{ SubscriptBox[ StyleBox["m", "TI"], StyleBox["1", "TR"]], "/", SubscriptBox[ StyleBox["n", "TI"], StyleBox["1", "TR"]]}]], ",", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ StyleBox[ RowBox[{"a", "x"}], "TI"], "+", StyleBox["b", "TI"]}], RowBox[{ StyleBox[ RowBox[{"c", "x"}], "TI"], "+", StyleBox["d", "TI"]}]], ")"}], RowBox[{ SubscriptBox[ StyleBox["m", "TI"], StyleBox["2", "TR"]], "/", SubscriptBox[ StyleBox["n", "TI"], StyleBox["2", "TR"]]}]], ",", "\[Ellipsis]"}], ")"}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.80299831485618*^9, 3.802998355897956*^9}, { 3.802998479879837*^9, 3.802998483958748*^9}, {3.802998647390498*^9, 3.8029986538136177`*^9}, {3.802998757715599*^9, 3.802998802806863*^9}, { 3.803017693453977*^9, 3.803017720955885*^9}, {3.80302582746793*^9, 3.80302582746801*^9}, {3.824368309078115*^9, 3.824368324016984*^9}, { 3.825496981433984*^9, 3.825496989968133*^9}}, CellID->472899898], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"x", "-", "1"}], RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}]], ")"}], RowBox[{"1", "/", "4"}]], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"x", "-", "1"}], RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}]], ")"}], RowBox[{"3", "/", "4"}]]}]}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.803020685056746*^9, 3.803020690998855*^9}, { 3.8030213984916077`*^9, 3.803021405907023*^9}, {3.803021609685478*^9, 3.803021640289915*^9}, {3.803022041893022*^9, 3.803022049002611*^9}, { 3.8030227858594313`*^9, 3.80302281123267*^9}}, CellID->879718097], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"6", "+", RowBox[{"6", " ", "x"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], ")"}], RowBox[{"3", "/", "4"}]]}], RowBox[{"2", "+", RowBox[{"2", " ", "x"}]}]], "-", RowBox[{ FractionBox["1", "72"], " ", SqrtBox[ RowBox[{"24420", "+", RowBox[{"55819", " ", SqrtBox["2"]}]}]], " ", RowBox[{"ArcTan", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], ")"}], RowBox[{"1", "/", "4"}]], SuperscriptBox["2", RowBox[{"1", "/", "4"}]]], "]"}]}], "-", RowBox[{ FractionBox["2", "9"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}]]}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], ")"}], RowBox[{"1", "/", "4"}]]}]], "]"}]}], "+", RowBox[{ FractionBox["1", "72"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "24420"}], "+", RowBox[{"55819", " ", SqrtBox["2"]}]}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], ")"}], RowBox[{"1", "/", "4"}]], SuperscriptBox["2", RowBox[{"1", "/", "4"}]]], "]"}]}], "+", RowBox[{ FractionBox["10", "9"], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}], "+", FractionBox["x", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]]}]]}]}]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.803020691421523*^9, {3.803020909892293*^9, 3.8030209110624113`*^9}, 3.803020957955307*^9, 3.803021190734975*^9, 3.803021312204859*^9, 3.8030214063652267`*^9, 3.803021505371236*^9, {3.803021572012438*^9, 3.803021640703134*^9}, 3.803021687077963*^9, {3.803022042911482*^9, 3.8030220494255238`*^9}, {3.803022788522843*^9, 3.803022811838253*^9}, 3.8030258300728817`*^9, 3.80307852427964*^9, 3.803422526234133*^9, 3.8226740556943207`*^9, 3.824437859850794*^9}, CellID->236180757] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can integrate all integrands in ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{"\[DoubleStruckCapitalQ]", "(", RowBox[{ StyleBox["x", "TI"], ",", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["a", "TI"], SuperscriptBox[ StyleBox["x", "TI"], "2"]}], "+", StyleBox[ RowBox[{"b", "x"}], "TI"], "+", StyleBox["c", "TI"]}], ")"}], RowBox[{ SubscriptBox[ StyleBox["m", "TI"], StyleBox["1", "TR"]], "/", "2"}]], ",", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox["a", "TI"], SuperscriptBox[ StyleBox["x", "TI"], "2"]}], "+", StyleBox[ RowBox[{"b", "x"}], "TI"], "+", StyleBox["c", "TI"]}], ")"}], RowBox[{ SubscriptBox[ StyleBox["m", "TI"], StyleBox["2", "TR"]], "/", "2"}]], ",", "\[Ellipsis]"}], ")"}], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], ", as these are converted to rational functions via Euler\[CloseCurlyQuote]s \ substitution:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.80299831485618*^9, 3.802998355897956*^9}, { 3.802998479879837*^9, 3.802998483958748*^9}, {3.802998647390498*^9, 3.8029986538136177`*^9}, 3.802998757715599*^9, {3.802998795281472*^9, 3.802998835223989*^9}, {3.823756677146233*^9, 3.823756677146339*^9}, { 3.8237576352315197`*^9, 3.823757636463997*^9}, 3.823758218185198*^9, { 3.825497004581003*^9, 3.825497004581114*^9}}, CellID->389969378], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}], "+", "1"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], RowBox[{"3", "/", "2"}]]}], RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}], "+", "1"}]], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], RowBox[{"5", "/", "2"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}], "+", "1"}], ")"}], RowBox[{"3", "/", "2"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.8029986079562063`*^9, 3.804464051627222*^9}, CellID->766152817], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"RootSum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"17", " ", SuperscriptBox["#1", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["#1", "3"]}], "+", SuperscriptBox["#1", "4"]}], "&"}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{"x", "-", "#1"}], "]"}]}], "-", RowBox[{"4", " ", RowBox[{"Log", "[", RowBox[{"x", "-", "#1"}], "]"}], " ", "#1"}], "+", RowBox[{ RowBox[{"Log", "[", RowBox[{"x", "-", "#1"}], "]"}], " ", SuperscriptBox["#1", "2"]}]}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"17", " ", "#1"}], "-", RowBox[{"12", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "3"]}]}]], "&"}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.82433094172589*^9, 3.824437884147753*^9}, CellID->676405605] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell[TextData[{ "For the following integral, ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " uses the substitution ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["u", "TI"], "=", FractionBox[ RowBox[{ StyleBox["x", "TI"], "+", "1"}], RowBox[{ StyleBox["x", "TI"], "-", "1"}]]}], TraditionalForm]]], " to reduce the integral to ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"-", "1"}], RadicalBox["2", "3"]], RowBox[{"\[Integral]", FractionBox[ RowBox[{"\[DifferentialD]", StyleBox["u", "TI"]}], RowBox[{ StyleBox["u", "TI"], RadicalBox[ RowBox[{ RowBox[{"-", RowBox[{"3", SuperscriptBox[ StyleBox["u", "TI"], "2"]}]}], "-", "1"}], "3"]}]]}]}], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.802936573162331*^9, 3.802936591190785*^9}, { 3.802936639584029*^9, 3.802936691695425*^9}, {3.8030266006312227`*^9, 3.803026601129197*^9}, {3.804241999008471*^9, 3.8042420001134377`*^9}, { 3.80424205720096*^9, 3.804242105195058*^9}, {3.8042423319827547`*^9, 3.804242351311014*^9}, {3.823756688002016*^9, 3.823756694779627*^9}, { 3.823757627719728*^9, 3.823757628592144*^9}, 3.8237582245410547`*^9}, CellID->925921170], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804242021898611*^9, 3.8042420222573633`*^9}, 3.804242052376177*^9, {3.8042421652041388`*^9, 3.804242211950432*^9}}, CellID->622404467], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox["3"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], "-", RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{ SqrtBox["3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "]"}]}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]]}], "+", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]], "-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]], RowBox[{"Log", "[", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.804242167080409*^9, {3.8042422099010153`*^9, 3.8042422140400333`*^9}, 3.822674077108177*^9, 3.8244378877475*^9}, CellID->108905475] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[TextData[{ "For the following integral, ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " uses the substitution ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["u", "TI"], "=", FractionBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "3"], "+", "1"}], SuperscriptBox[ StyleBox["x", "TI"], "2"]]}], TraditionalForm]]], " to reduce the integral to ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox[ SqrtBox[ RowBox[{ StyleBox["u", "TI"], "-", "1"}]], SuperscriptBox[ StyleBox["u", "TI"], "2"]], RowBox[{"\[DifferentialD]", StyleBox["u", "TI"]}]}]}], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.802936573162331*^9, 3.802936591190785*^9}, { 3.802936639584029*^9, 3.802936691695425*^9}, {3.8030266006312227`*^9, 3.803026601129197*^9}, {3.804241988576747*^9, 3.8042419969475327`*^9}, { 3.823756712194552*^9, 3.8237567184430723`*^9}, {3.823757624032126*^9, 3.823757625200341*^9}, 3.8237582341016073`*^9}, CellID->121325491], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["x", "3"]}], ")"}], " ", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "3"]}], ")"}], "2"]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.824330925521555*^9, 3.824330932767673*^9}}, CellID->910022964], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}]]}], RowBox[{"1", "+", SuperscriptBox["x", "3"]}]]}], "+", RowBox[{"ArcTan", "[", FractionBox[ SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}]], "x"], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.824330933293055*^9, 3.824437890327284*^9}, CellID->191827145] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107570], Cell[TextData[{ "For the following integral, ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " uses the substitution ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["u", "TI"], "=", FractionBox[ RowBox[{ RowBox[{"3", SqrtBox["3"], StyleBox["x", "TI"]}], "-", RowBox[{"10", SqrtBox["3"]}]}], RowBox[{"3", RadicalBox[ RowBox[{ RowBox[{"3", SuperscriptBox[ StyleBox["x", "TI"], "2"]}], "+", "4"}], "3"]}]]}], TraditionalForm]]], " to reduce the integral to ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ StyleBox["u", "TI"], "3"], "+", FractionBox["196", RowBox[{"3", SqrtBox["3"]}]]}]], RowBox[{"\[DifferentialD]", StyleBox["u", "TI"]}]}]}], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.803026596423365*^9, 3.803026647231947*^9}, { 3.803026682943511*^9, 3.803026698784116*^9}, {3.8030773050706997`*^9, 3.803077325383304*^9}, {3.804241976872264*^9, 3.8042419777154408`*^9}, { 3.804242354183381*^9, 3.804242354389491*^9}, {3.8237567273333178`*^9, 3.823756738327931*^9}, {3.823757613359659*^9, 3.823757614784327*^9}, 3.8237582398086443`*^9}, CellID->977582620], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"3", " ", "x"}], "+", "2"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"52", " ", "x"}], "-", "12"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", "4"}], ")"}], RowBox[{"1", "/", "3"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.803026347117786*^9, 3.803026366636533*^9}, { 3.8030265011766987`*^9, 3.8030265872707157`*^9}, {3.803026705274027*^9, 3.8030267056388073`*^9}, 3.8030773386796*^9}, CellID->99210977], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox["3"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"10", " ", SuperscriptBox["14", RowBox[{"1", "/", "3"}]]}], "-", RowBox[{"3", " ", SuperscriptBox["14", RowBox[{"1", "/", "3"}]], " ", "x"}], "+", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{"7", " ", SqrtBox["3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "]"}]}], RowBox[{"14", " ", SuperscriptBox["14", RowBox[{"1", "/", "3"}]]}]]}], "+", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{ SuperscriptBox["14", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", RowBox[{"3", " ", "x"}]}], ")"}]}], "+", RowBox[{"14", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}], RowBox[{"14", " ", SuperscriptBox["14", RowBox[{"1", "/", "3"}]]}]], "-", RowBox[{ FractionBox["1", RowBox[{"28", " ", SuperscriptBox["14", RowBox[{"1", "/", "3"}]]}]], RowBox[{"Log", "[", RowBox[{ RowBox[{ SuperscriptBox["14", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{"140", "-", RowBox[{"42", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{"196", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], RowBox[{"2", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox["14", RowBox[{"2", "/", "3"}]], " ", RowBox[{"(", RowBox[{"100", "-", RowBox[{"60", " ", "x"}], "+", RowBox[{"9", " ", SuperscriptBox["x", "2"]}]}], ")"}]}]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.803026367204364*^9, {3.803026505127376*^9, 3.8030265536171513`*^9}, 3.8030265886956577`*^9, 3.803026657077977*^9, 3.803026706709084*^9, 3.803077339866153*^9, 3.8030773816172237`*^9, 3.803078533859483*^9, 3.80342253568329*^9, 3.82267410078191*^9, 3.824437893061339*^9}, CellID->817219771] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107571], Cell["\<\ Some integrals will introduce algebraic numbers that are not present in the \ integrand:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.803028998941436*^9, 3.803029028324339*^9}}, CellID->753075163], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "5"]}]}], ")"}], " ", SqrtBox[ RowBox[{"x", "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]]}], RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "-", SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "4"], "+", RowBox[{"2", " ", SuperscriptBox["x", "5"]}], "-", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "-", SuperscriptBox["x", "8"], "+", SuperscriptBox["x", "10"]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.803028790883889*^9, 3.803028798866358*^9}, { 3.803028833130412*^9, 3.803028833413251*^9}, {3.8030861660828667`*^9, 3.803086183030787*^9}}, CellID->552567911], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ FractionBox["2", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["5"]}], ")"}]}]]}], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SqrtBox[ FractionBox["2", RowBox[{"1", "+", SqrtBox["5"]}]]], " ", "x", " ", SqrtBox[ RowBox[{"x", "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]]}], RowBox[{"1", "-", "x", "+", SuperscriptBox["x", "5"]}]], "]"}]}], "-", RowBox[{ SqrtBox[ RowBox[{ FractionBox["2", "5"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["5"]}], ")"}]}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", FractionBox[ SqrtBox["5"], "2"]}]], " ", SqrtBox[ RowBox[{"x", "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]]}], SuperscriptBox["x", "2"]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.803028835154174*^9, 3.8030785373636913`*^9, {3.803086168394847*^9, 3.8030861846706533`*^9}, 3.803422540130172*^9, 3.822674108399053*^9, 3.824437903526629*^9}, CellID->361819197] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107572], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " works with radicals other than square roots:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8029370023548527`*^9, 3.8029370312105207`*^9}, { 3.80293718099333*^9, 3.802937181170883*^9}, {3.802937390055525*^9, 3.8029373906946297`*^9}, {3.823757605768318*^9, 3.823757607744657*^9}, 3.8237582475938253`*^9}, CellID->399109046], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "3"], "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8029326991183167`*^9, 3.802932707320471*^9}, { 3.802936265266103*^9, 3.802936267614797*^9}, {3.802936991671446*^9, 3.802936994313327*^9}, {3.80293703647418*^9, 3.8029370424825907`*^9}, { 3.802937102403201*^9, 3.80293711058619*^9}}, CellID->842840825], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "-", FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{ SqrtBox["3"], " ", "x"}]], "]"}], RowBox[{"3", " ", SqrtBox["3"]}]], "+", RowBox[{ FractionBox["1", "9"], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "-", RowBox[{ FractionBox["1", "18"], " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}], RowBox[{"2", "/", "3"}]]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.824330605996592*^9, 3.824437907140827*^9}, CellID->640388047] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107573], Cell[TextData[{ "Some integrals will be expressed in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["RootSum", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/RootSum", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " expressions:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.802938196696109*^9, 3.802938214520651*^9}, { 3.823757596328401*^9, 3.8237576038027697`*^9}}, CellID->375482035], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "8"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{ SuperscriptBox["x", "6"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "8"]}], ")"}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.802938195429142*^9}, CellID->410200190], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"5", "/", "4"}]], RowBox[{"5", " ", SuperscriptBox["x", "5"]}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"RootSum", "[", RowBox[{ RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", SuperscriptBox["#1", "4"]}], "+", SuperscriptBox["#1", "8"]}], "&"}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Log", "[", "x", "]"}]}], " ", "#1"}], "+", RowBox[{ RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]], "-", RowBox[{"x", " ", "#1"}]}], "]"}], " ", "#1"}]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["#1", "4"]}]], "&"}]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80293821601478*^9, 3.803025857380184*^9, 3.803078542546825*^9, 3.803422545141713*^9, 3.822674113608037*^9, 3.8244379097179403`*^9}, CellID->799108979] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107574], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can often work with parameters in the integrand:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8029386958518963`*^9, 3.802938704669242*^9}, { 3.823757590536599*^9, 3.823757592049037*^9}, 3.823758255394046*^9}, CellID->494663948], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "c"}], "-", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", "c"}]]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "3"}], ")"}], " ", SuperscriptBox["x", "2"]}], "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "2"}], ")"}], " ", SuperscriptBox["x", "2"]}], "+", "c"}], ")"}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8029386727739143`*^9, 3.802938683086995*^9}, 3.802940474148776*^9}, CellID->358044142], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["2"], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ SqrtBox["2"], " ", "x"}], SqrtBox[ RowBox[{"c", "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}]]], "]"}]}], "+", RowBox[{"2", " ", SqrtBox["3"], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "x"}], SqrtBox[ RowBox[{"c", "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}]]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.802938683605377*^9, 3.802940475321802*^9, 3.803025859928615*^9, 3.803078544402322*^9, 3.803422547474023*^9, 3.822674117092277*^9, 3.824330612411175*^9, 3.82443791354902*^9}, CellID->414065798] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107575], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " has a limited ability to integrate nested radicals:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.824330614415551*^9, 3.824330615245603*^9}}, CellID->254855619], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], "+", "1"}]], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805264905663496*^9, 3.805264914886437*^9}, { 3.824330659369923*^9, 3.8243307347952127`*^9}, {3.8243308247818727`*^9, 3.824330829499877*^9}}, CellID->609080838], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["2"]}], ")"}]}]]}], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ FractionBox["x", SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]]}]]], "-", SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]]}]]}], SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]]], "]"}]}], "+", RowBox[{ SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ FractionBox["x", SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]]}]]], "-", SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}]]}]]}], SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["2"]}], ")"}]}]]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.824330661915262*^9, 3.824330735551594*^9}, 3.8243308309806137`*^9, 3.8244266025540237`*^9, 3.824437917335821*^9}, CellID->413025266] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107576], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can succeed on some integrals where the Risch-Bronstein-Trager algorithm \ struggles:" }], "Text", TaggingRules->{}, CellID->860137811], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox["x", "9"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["x", "6"]}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{"4", "+", SuperscriptBox["x", "6"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}]}], ")"}], " ", SqrtBox[ RowBox[{"32", "-", RowBox[{"14", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"32", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "12"]}]}]]}]}], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8052649852217073`*^9, 3.805264993605331*^9}}, CellID->223816116], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "32"}], "+", RowBox[{"23", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"16", " ", SuperscriptBox["x", "6"]}]}], ")"}], " ", SqrtBox[ RowBox[{"32", "-", RowBox[{"14", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"32", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "12"]}]}]]}], RowBox[{"32", " ", SuperscriptBox["x", "8"]}]], "+", RowBox[{"2", " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SqrtBox["2"]}], "+", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["x", "6"]}], "-", SqrtBox[ RowBox[{"32", "-", RowBox[{"14", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"32", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "12"]}]}]]}], RowBox[{"2", " ", SuperscriptBox["x", "4"]}]], "]"}]}], "-", FractionBox[ RowBox[{"65", " ", RowBox[{"Log", "[", "x", "]"}]}], RowBox[{"32", " ", SqrtBox["2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"128", " ", SqrtBox["2"]}]], RowBox[{"65", " ", RowBox[{"Log", "[", RowBox[{"32", "-", RowBox[{"7", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"16", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"4", " ", SqrtBox["2"], " ", SqrtBox[ RowBox[{"32", "-", RowBox[{"14", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"32", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "12"]}]}]]}]}], "]"}]}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8052649957744904`*^9, 3.8226741344588223`*^9, 3.8244379378010597`*^9}, CellID->533453302] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107577], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can handle many otherwise difficult integrals involving parameters:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.803037233117927*^9, 3.803037247256672*^9}, { 3.805264939148835*^9, 3.805264956844595*^9}, {3.805265007921866*^9, 3.805265013582118*^9}, {3.805265101364089*^9, 3.8052651193707848`*^9}, { 3.823757572937518*^9, 3.823757574569257*^9}, 3.823758273796212*^9}, CellID->803848604], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"4", "c"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"4", "c"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"b", " ", SuperscriptBox["x", "2"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8052649852217073`*^9, 3.805264993605331*^9}, { 3.805265040471923*^9, 3.805265081766817*^9}}, CellID->130835613], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox["3"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["a", RowBox[{"1", "/", "3"}]], " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{ SqrtBox["3"], " ", SuperscriptBox["a", RowBox[{"1", "/", "3"}]], " ", "x"}]], "]"}]}], RowBox[{ SuperscriptBox["a", RowBox[{"1", "/", "3"}]], " ", "d"}]]}], "-", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["a", RowBox[{"1", "/", "3"}]]}], " ", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}], RowBox[{ SuperscriptBox["a", RowBox[{"1", "/", "3"}]], " ", "d"}]], "+", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{ SuperscriptBox["a", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["a", RowBox[{"1", "/", "3"}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}], ")"}], RowBox[{"2", "/", "3"}]]}], "]"}], RowBox[{"2", " ", SuperscriptBox["a", RowBox[{"1", "/", "3"}]], " ", "d"}]], "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", "d"}]], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"RootSum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", "c"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", "d"}], "-", RowBox[{"8", " ", "a", " ", "c", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"4", " ", "c", " ", SuperscriptBox["#1", "6"]}]}], "&"}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Log", "[", "x", "]"}]}], "+", RowBox[{"Log", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"a", " ", SuperscriptBox["x", "3"]}]}], ")"}], RowBox[{"1", "/", "3"}]], "-", RowBox[{"x", " ", "#1"}]}], "]"}]}], "#1"], "&"}]}], "]"}]}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.805265049282939*^9, 3.805265082649846*^9}, 3.822674139078334*^9, 3.824437961100666*^9}, CellID->914290589] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->588151534], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can handle many integrals when the radicand is a rational function:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.803037233117927*^9, 3.803037247256672*^9}, { 3.805264939148835*^9, 3.805264956844595*^9}, {3.805265007921866*^9, 3.805265013582118*^9}, {3.805265101364089*^9, 3.8052651193707848`*^9}, { 3.823757572937518*^9, 3.823757574569257*^9}, 3.823758273796212*^9, { 3.8375784485190983`*^9, 3.837578461536269*^9}, {3.837578526981995*^9, 3.837578527697609*^9}}, CellID->195604797], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "x", "+", SuperscriptBox["x", "2"]}], ")"}]}], RowBox[{ SuperscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x", "+", SuperscriptBox["x", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.83757834974741*^9, 3.837578437574832*^9}, CellID->1968012932], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x", "-", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"2", "/", "3"}]]}], SuperscriptBox["x", "2"]], "-", RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", RowBox[{"ArcTan", "[", RowBox[{ FractionBox["1", SqrtBox["3"]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]]}], SuperscriptBox["3", RowBox[{"5", "/", "6"}]]]}], "]"}]}], "+", FractionBox[ RowBox[{"7", " ", RowBox[{"ArcTan", "[", RowBox[{ FractionBox["1", SqrtBox["3"]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]]}], SqrtBox["3"]]}], "]"}]}], SqrtBox["3"]], "+", RowBox[{ FractionBox["7", "3"], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{ SuperscriptBox["6", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}]}], SuperscriptBox["3", RowBox[{"1", "/", "3"}]]], "-", RowBox[{ FractionBox["7", "6"], " ", RowBox[{"Log", "[", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"2", "/", "3"}]]}], "]"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", RowBox[{"Log", "[", RowBox[{"3", "+", RowBox[{ SuperscriptBox["6", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{"2", " ", SuperscriptBox["6", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", "x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], RowBox[{"1", "-", "x", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}]}]], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}]}], SuperscriptBox["3", RowBox[{"1", "/", "3"}]]]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8375784095900717`*^9}, CellLabel->"Out[2493]=", CellID->850217030] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "36"}], "-", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "3"]}], "+", SuperscriptBox["x", "6"]}], ")"}], "/", RowBox[{"(", RowBox[{"x", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}], ")"}], " ", RowBox[{"(", RowBox[{"36", "-", RowBox[{"90", " ", "x"}], "+", RowBox[{"122", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"96", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"51", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"26", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"15", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"6", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"6", "+", SuperscriptBox["x", "3"]}], RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}]], ")"}], RowBox[{"1", "/", "6"}]]}], ")"}]}], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.837578500905024*^9}, CellLabel->"In[2494]:=", CellID->930310424], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], " ", RowBox[{"ArcTan", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"6", "+", SuperscriptBox["x", "3"]}], RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}]], ")"}], RowBox[{"1", "/", "6"}]], RowBox[{ RowBox[{"-", "1"}], "+", "x"}]], "]"}]}], "-", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}], "-", SuperscriptBox["x", "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"6", "+", SuperscriptBox["x", "3"]}], RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}]], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"6", "+", SuperscriptBox["x", "3"]}], RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}]], ")"}], RowBox[{"1", "/", "6"}]]}]], "]"}]}], "+", FractionBox[ RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["3"]}], "+", RowBox[{ SqrtBox["3"], " ", "x"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"6", "+", SuperscriptBox["x", "3"]}], RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}]], ")"}], RowBox[{"1", "/", "6"}]]}], RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"6", "+", SuperscriptBox["x", "3"]}], RowBox[{ RowBox[{"-", "6"}], "+", SuperscriptBox["x", "3"]}]], ")"}], RowBox[{"1", "/", "3"}]]}]], "]"}], RowBox[{"2", " ", SqrtBox["3"]}]]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.837578508874942*^9}, CellLabel->"Out[2494]=", CellID->1434342923] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(9)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell[TextData[{ "Expansion", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->182171908], Cell[TextData[{ "The option \"Expansion\" \[Rule] ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " specifies if the integrals is expanded and integrated term-by-term after \ exhausting all other possible methods. By default \"Expansion\" is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", as this method may require many time consuming recursive calls to ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.824433511065734*^9, 3.824433517363258*^9}}, CellID->137671976], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.824444032433655*^9, 3.8244440362074947`*^9}}, CellID->620604581], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}]], ",", "x"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8244440413885193`*^9}, CellID->763509480] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}]], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.824444032433655*^9, 3.8244440362074947`*^9}, { 3.824444086586853*^9, 3.8244440917337303`*^9}}, CellID->240894885], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"ArcTan", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]], "x"], "]"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}]]}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}]], "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"ArcTanh", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]], "x"], "]"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}]]}]}]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8244441144568663`*^9}, CellID->783692263] }, Open ]], Cell[TextData[{ "With \"Expansion\" \[Rule] ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " may return partial results:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.824433522371991*^9, 3.824433526674959*^9}}, CellID->484043346], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}]], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.805493760011528*^9, 3.805493893640687*^9, {3.805495275779854*^9, 3.805495299861693*^9}, {3.823758351756897*^9, 3.823758359987698*^9}, { 3.8237584487323914`*^9, 3.823758449898555*^9}, 3.823759991050322*^9, 3.824444047462553*^9}, CellID->431786635], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"ArcTan", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]], "x"], "]"}]}], "-", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}]]}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}]], "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"ArcTanh", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]], "x"], "]"}]}], "-", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}]]}]}]], "]"}]}], "+", 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]], RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}]]}], ",", "x"}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.823758457017147*^9, 3.824444114369157*^9}, CellID->561177690] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "DegreeBound", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->68614031], Cell["The default for \"DegreeBound\" is 8:", "Text", TaggingRules->{}, CellChangeTimes->{{3.802947711415207*^9, 3.8029477220553093`*^9}, { 3.802947769601367*^9, 3.802947770194902*^9}, {3.8237219995779343`*^9, 3.823722003029245*^9}}, CellID->612249005], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["x", SqrtBox[ RowBox[{ RowBox[{"-", "71"}], "-", RowBox[{"96", " ", "x"}], "+", RowBox[{"10", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}]]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802947728662981*^9, 3.802947744774501*^9}}, CellID->182619755], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "10001"}], "-", RowBox[{"3124", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"1408", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"54", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"128", " ", SuperscriptBox["x", "5"]}], "-", RowBox[{"20", " ", SuperscriptBox["x", "6"]}], "-", SuperscriptBox["x", "8"], "+", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "71"}], "-", RowBox[{"96", " ", "x"}], "+", RowBox[{"10", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}]], " ", RowBox[{"(", RowBox[{"781", "-", RowBox[{"528", " ", "x"}], "+", RowBox[{"27", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"80", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"15", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "6"]}], ")"}]}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.802947754165172*^9, 3.8029934862724113`*^9, 3.80299412379471*^9, 3.802994345373362*^9, 3.80299448099369*^9, {3.8029946172175827`*^9, 3.802994618879229*^9}, 3.802994799614183*^9, 3.802994903878688*^9}, CellID->236613261] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107578], Cell["\<\ Increasing the degree bound can solve some large Abelian integrals:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.802947773050582*^9, 3.8029477926461573`*^9}}, CellID->759391563], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"29", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"18", " ", "x"}], "-", "3"}], SqrtBox[ RowBox[{ SuperscriptBox["x", "6"], "+", RowBox[{"4", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"12", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"33", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"16", " ", "x"}]}]]], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "30"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8029477973421288`*^9, 3.802947832406342*^9}, { 3.8029938545317707`*^9, 3.802993858691575*^9}, {3.8035562894707403`*^9, 3.803556290000758*^9}}, CellID->408460409], Cell[BoxData[ RowBox[{"-", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "134217728"}], "+", RowBox[{"150994944", " ", "x"}], "-", RowBox[{"528482304", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"279969792", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"638582784", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"916848640", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"2374631424", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"4834279424", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"6614046720", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"7944578304", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"8991685504", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"9056612528", " ", SuperscriptBox["x", "11"]}], "+", RowBox[{"8106250392", " ", SuperscriptBox["x", "12"]}], "+", RowBox[{"6677210721", " ", SuperscriptBox["x", "13"]}], "+", RowBox[{"5097069328", " ", SuperscriptBox["x", "14"]}], "+", RowBox[{"3548250712", " ", SuperscriptBox["x", "15"]}], "+", RowBox[{"2238714832", " ", SuperscriptBox["x", "16"]}], "+", RowBox[{"1288213884", " ", SuperscriptBox["x", "17"]}], "+", RowBox[{"675607056", " ", SuperscriptBox["x", "18"]}], "+", RowBox[{"317208072", " ", SuperscriptBox["x", "19"]}], "+", RowBox[{"129708992", " ", SuperscriptBox["x", "20"]}], "+", RowBox[{"45004902", " ", SuperscriptBox["x", "21"]}], "+", RowBox[{"12979632", " ", SuperscriptBox["x", "22"]}], "+", RowBox[{"3058536", " ", SuperscriptBox["x", "23"]}], "+", RowBox[{"578480", " ", SuperscriptBox["x", "24"]}], "+", RowBox[{"85820", " ", SuperscriptBox["x", "25"]}], "+", RowBox[{"9648", " ", SuperscriptBox["x", "26"]}], "+", RowBox[{"776", " ", SuperscriptBox["x", "27"]}], "+", RowBox[{"40", " ", SuperscriptBox["x", "28"]}], "+", SuperscriptBox["x", "29"], "+", RowBox[{ SqrtBox[ RowBox[{"x", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16"}], "+", RowBox[{"33", " ", "x"}], "-", RowBox[{"12", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "5"]}], ")"}]}]], " ", RowBox[{"(", RowBox[{"50331648", "-", RowBox[{"50331648", " ", "x"}], "-", RowBox[{"95420416", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"207618048", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"640024576", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"1097859072", " ", SuperscriptBox["x", "5"]}], "-", RowBox[{"1494073344", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"1939619840", " ", SuperscriptBox["x", "7"]}], "-", RowBox[{"2246693120", " ", SuperscriptBox["x", "8"]}], "-", RowBox[{"2257532160", " ", SuperscriptBox["x", "9"]}], "-", RowBox[{"2055647184", " ", SuperscriptBox["x", "10"]}], "-", RowBox[{"1731692416", " ", SuperscriptBox["x", "11"]}], "-", RowBox[{"1326830817", " ", SuperscriptBox["x", "12"]}], "-", RowBox[{"914354726", " ", SuperscriptBox["x", "13"]}], "-", RowBox[{"570906027", " ", SuperscriptBox["x", "14"]}], "-", RowBox[{"324386076", " ", SuperscriptBox["x", "15"]}], "-", RowBox[{"165196041", " ", SuperscriptBox["x", "16"]}], "-", RowBox[{"73265978", " ", SuperscriptBox["x", "17"]}], "-", RowBox[{"27506475", " ", SuperscriptBox["x", "18"]}], "-", RowBox[{"8550024", " ", SuperscriptBox["x", "19"]}], "-", RowBox[{"2161755", " ", SuperscriptBox["x", "20"]}], "-", RowBox[{"436794", " ", SuperscriptBox["x", "21"]}], "-", RowBox[{"68953", " ", SuperscriptBox["x", "22"]}], "-", RowBox[{"8220", " ", SuperscriptBox["x", "23"]}], "-", RowBox[{"699", " ", SuperscriptBox["x", "24"]}], "-", RowBox[{"38", " ", SuperscriptBox["x", "25"]}], "-", SuperscriptBox["x", "26"]}], ")"}]}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029942020708923`*^9, 3.802994224592157*^9}, 3.802994429754821*^9, 3.8029945619506207`*^9, 3.802994968810114*^9}, CellID->456874121] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"39", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"9", " ", "x"}], "-", "1"}], SqrtBox[ RowBox[{ SuperscriptBox["x", "6"], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"10", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"4", " ", "x"}], "+", "1"}]]], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "40"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8029477973421288`*^9, 3.802947832406342*^9}, { 3.802948060354516*^9, 3.802948079312271*^9}}, CellID->426544526], Cell[BoxData[ RowBox[{"-", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1332179"}], "+", RowBox[{"1856467", " ", "x"}], "-", RowBox[{"7163724", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"27825546", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"39445718", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"123527844", " ", SuperscriptBox["x", "5"]}], "-", RowBox[{"231510907", " ", SuperscriptBox["x", "6"]}], "-", RowBox[{"303058869", " ", SuperscriptBox["x", "7"]}], "-", RowBox[{"479086914", " ", SuperscriptBox["x", "8"]}], "-", RowBox[{"621760542", " ", SuperscriptBox["x", "9"]}], "-", RowBox[{"637517772", " ", SuperscriptBox["x", "10"]}], "-", RowBox[{"734205504", " ", SuperscriptBox["x", "11"]}], "-", RowBox[{"732820904", " ", SuperscriptBox["x", "12"]}], "-", RowBox[{"607070900", " ", SuperscriptBox["x", "13"]}], "-", RowBox[{"563317218", " ", SuperscriptBox["x", "14"]}], "-", RowBox[{"459151006", " ", SuperscriptBox["x", "15"]}], "-", RowBox[{"308665185", " ", SuperscriptBox["x", "16"]}], "-", RowBox[{"250442895", " ", SuperscriptBox["x", "17"]}], "-", RowBox[{"166484056", " ", SuperscriptBox["x", "18"]}], "-", RowBox[{"92551930", " ", SuperscriptBox["x", "19"]}], "-", RowBox[{"69411762", " ", SuperscriptBox["x", "20"]}], "-", RowBox[{"37199924", " ", SuperscriptBox["x", "21"]}], "-", RowBox[{"16147329", " ", SuperscriptBox["x", "22"]}], "-", RowBox[{"13853079", " ", SuperscriptBox["x", "23"]}], "-", RowBox[{"4131222", " ", SuperscriptBox["x", "24"]}], "-", RowBox[{"2213274", " ", SuperscriptBox["x", "25"]}], "-", RowBox[{"1761084", " ", SuperscriptBox["x", "26"]}], "-", RowBox[{"158320", " ", SuperscriptBox["x", "27"]}], "-", RowBox[{"201028", " ", SuperscriptBox["x", "28"]}], "-", RowBox[{"233880", " ", SuperscriptBox["x", "29"]}], "+", RowBox[{"129138", " ", SuperscriptBox["x", "30"]}], "-", RowBox[{"113386", " ", SuperscriptBox["x", "31"]}], "+", RowBox[{"48249", " ", SuperscriptBox["x", "32"]}], "-", RowBox[{"21881", " ", SuperscriptBox["x", "33"]}], "+", RowBox[{"6636", " ", SuperscriptBox["x", "34"]}], "-", RowBox[{"1986", " ", SuperscriptBox["x", "35"]}], "+", RowBox[{"406", " ", SuperscriptBox["x", "36"]}], "-", RowBox[{"80", " ", SuperscriptBox["x", "37"]}], "+", RowBox[{"9", " ", SuperscriptBox["x", "38"]}], "-", SuperscriptBox["x", "39"], "+", RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", "x"}], "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "6"]}]], " ", RowBox[{"(", RowBox[{"1856467", "+", RowBox[{"2380755", " ", "x"}], "+", RowBox[{"10352370", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"28237903", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"40244337", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"74411808", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"117823332", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"129775188", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"167241762", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"191230470", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"167242404", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"169319118", " ", SuperscriptBox["x", "11"]}], "+", RowBox[{"154404118", " ", SuperscriptBox["x", "12"]}], "+", RowBox[{"106641612", " ", SuperscriptBox["x", "13"]}], "+", RowBox[{"94270020", " ", SuperscriptBox["x", "14"]}], "+", RowBox[{"68810088", " ", SuperscriptBox["x", "15"]}], "+", RowBox[{"38292357", " ", SuperscriptBox["x", "16"]}], "+", RowBox[{"31511637", " ", SuperscriptBox["x", "17"]}], "+", RowBox[{"18519986", " ", SuperscriptBox["x", "18"]}], "+", RowBox[{"7398477", " ", SuperscriptBox["x", "19"]}], "+", RowBox[{"7667343", " ", SuperscriptBox["x", "20"]}], "+", RowBox[{"2305452", " ", SuperscriptBox["x", "21"]}], "+", RowBox[{"1154628", " ", SuperscriptBox["x", "22"]}], "+", RowBox[{"1154952", " ", SuperscriptBox["x", "23"]}], "+", RowBox[{"93210", " ", SuperscriptBox["x", "24"]}], "+", RowBox[{"93834", " ", SuperscriptBox["x", "25"]}], "+", RowBox[{"205056", " ", SuperscriptBox["x", "26"]}], "-", RowBox[{"123754", " ", SuperscriptBox["x", "27"]}], "+", RowBox[{"100878", " ", SuperscriptBox["x", "28"]}], "-", RowBox[{"44364", " ", SuperscriptBox["x", "29"]}], "+", RowBox[{"20000", " ", SuperscriptBox["x", "30"]}], "-", RowBox[{"6228", " ", SuperscriptBox["x", "31"]}], "+", RowBox[{"1875", " ", SuperscriptBox["x", "32"]}], "-", RowBox[{"393", " ", SuperscriptBox["x", "33"]}], "+", RowBox[{"78", " ", SuperscriptBox["x", "34"]}], "-", RowBox[{"9", " ", SuperscriptBox["x", "35"]}], "+", SuperscriptBox["x", "36"]}], ")"}]}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029940306874113`*^9, 3.802994035837688*^9}}, CellID->640659200] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Elementary", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->245652668], Cell[TextData[{ "\"Elementary\" specifies if the solution should be composed of elementary \ functions only. By default \"Elementary\" is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.824435547982625*^9, 3.824435554135605*^9}}, CellID->867157800], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"6", SuperscriptBox["x", "8"]}], "+", "1"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", SuperscriptBox["x", "8"]}], "-", "1"}], ")"}], RadicalBox[ RowBox[{ RowBox[{"4", SuperscriptBox["x", "16"]}], "+", RowBox[{"2", SuperscriptBox["x", "10"]}], "-", RowBox[{"4", SuperscriptBox["x", "8"]}], "-", SuperscriptBox["x", "4"], "-", SuperscriptBox["x", "2"], "+", "1"}], "4"]}]], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "]"}], "//", "Simplify"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802948517270776*^9, 3.802948623026977*^9}, { 3.802949117858533*^9, 3.802949188647766*^9}, {3.802949227806076*^9, 3.802949240789835*^9}}, CellID->830907765], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["5"]}], ")"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "8"]}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "8"]}]}]], ")"}], RowBox[{"1", "/", "4"}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", SqrtBox["5"]}], ")"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "8"]}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "8"]}]}]], ")"}], RowBox[{"1", "/", "4"}]], " ", RowBox[{"AppellF1", "[", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "4"], ",", FractionBox["1", "4"], ",", FractionBox["3", "2"], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", SqrtBox["5"]}], ")"}], " ", SuperscriptBox["x", "2"]}], RowBox[{"2", "-", RowBox[{"4", " ", SuperscriptBox["x", "8"]}]}]], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["5"]}], ")"}], " ", SuperscriptBox["x", "2"]}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", SuperscriptBox["x", "8"]}]}]]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox["2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["x", "4"], "-", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "16"]}]}], ")"}], RowBox[{"1", "/", "4"}]]}], ")"}]}], ")"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.802949225849221*^9, 3.8029492418875847`*^9}, 3.803026003389371*^9}, CellID->256041286] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SingleStepTimeConstraint", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.802948235338847*^9, 3.802948238507975*^9}, 3.8244315326094007`*^9}, CellID->836809054], Cell[TextData[{ "The option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " specifies the time in seconds that ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " spends in various computationally-intensive routines. The default for ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " is 0.25. Increasing this time constraint may solve some integrals that \ otherwise return unevaluated:" }], "Text", TaggingRules->{}, CellID->115606986], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "4"]}], ")"}], "2"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}], "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8244315398711357`*^9, 3.824431543295187*^9}}, CellID->848244658], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "4"]}], ")"}], "2"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}], "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}]], ",", "x"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.82443459289353*^9}, CellID->638846443] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "4"]}], ")"}], "2"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}], "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}]], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "0.5"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.824431541438513*^9, {3.8244345037087383`*^9, 3.8244345038491373`*^9}, { 3.824434604603201*^9, 3.824434605242228*^9}}, CellID->772957314], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", SuperscriptBox["x", "4"]}], ")"}], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}]}]]}], "+", FractionBox[ RowBox[{"x", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", SuperscriptBox["x", "4"]}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "4"]}], ")"}]}]], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox["7", "2"], "+", FractionBox["5", SqrtBox["2"]]}]], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SqrtBox[ FractionBox["2", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["2"]}]]], " ", "x", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}], RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox["7", "2"], "+", FractionBox["5", SqrtBox["2"]]}]], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SqrtBox[ FractionBox["2", RowBox[{"1", "+", SqrtBox["2"]}]]], " ", "x", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}], RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]], "]"}]}], "+", FractionBox[ RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}], RowBox[{ SqrtBox["2"], " ", "x", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}]], "]"}], SqrtBox["2"]], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox["7", "2"]}], "+", FractionBox["5", SqrtBox["2"]]}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}], RowBox[{ SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["2"]}], ")"}]}]], " ", "x", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}]], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox["7", "2"]}], "+", FractionBox["5", SqrtBox["2"]]}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}], RowBox[{ SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["2"]}], ")"}]}]], " ", "x", " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}]]}]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.82443154848632*^9, 3.824434511907661*^9, 3.82443460898929*^9}, CellID->522669842] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "SubstitutionSize", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.824427220101667*^9, 3.824427222908723*^9}}, CellID->586480611], Cell[TextData[{ "The option \"SubstitutionSize\" determines the number of rational \ substitutions tried within ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". By default \"SubstitutionSize\" is \"Small\". Other settings are \"Medium\ \" and \"Large\". By default, the Laurent polynomial substitution code \ considers a polynomial with 3 terms only:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.803028219736082*^9, 3.803028226279825*^9}, { 3.803028429409417*^9, 3.803028476354621*^9}, {3.803028526842409*^9, 3.803028594692546*^9}, {3.803028804314858*^9, 3.803028825877595*^9}, { 3.8237582983530912`*^9, 3.823758306506433*^9}, {3.823874669267605*^9, 3.823874703859172*^9}, {3.824427230469349*^9, 3.824427249644463*^9}, { 3.824435413076064*^9, 3.82443545400213*^9}}, CellID->289261054], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "4"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ")"}]}], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.824434894922606*^9, 3.8244349272688017`*^9}, 3.8244349902654533`*^9, 3.824435025332387*^9, 3.824435100355406*^9, { 3.824435132097969*^9, 3.824435146443248*^9}, 3.824435183304881*^9, { 3.824435336782399*^9, 3.8244353851710663`*^9}}, CellID->151960352], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "4"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ")"}]}], ",", "x"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.824434904196053*^9, 3.824434927579113*^9}, 3.8244349916110697`*^9, 3.8244350258844967`*^9, 3.824435101808887*^9, { 3.824435133365625*^9, 3.824435147393671*^9}, 3.8244351850134287`*^9, { 3.8244353391584167`*^9, 3.824435385977223*^9}}, CellID->394698931] }, Open ]], Cell["\<\ With \"SubstitutionSize\"\[Rule]\"Medium\", we use a Laurent polynomial \ substitution with 4 terms:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.8244354616259937`*^9, 3.824435501000313*^9}}, CellID->469905754], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "4"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ")"}]}], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.824434894922606*^9, 3.824434946526116*^9}, 3.824434994201157*^9, 3.82443502825107*^9, {3.824435103588908*^9, 3.824435108732752*^9}, 3.824435187477703*^9, {3.824435363267088*^9, 3.824435388395911*^9}}, CellID->727514747], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{"1", "-", "x", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "4"]}], ")"}]}], SqrtBox[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}]]], "]"}]}], SqrtBox["2"]]}], "+", RowBox[{"2", " ", RowBox[{"ArcTanh", "[", FractionBox[ SqrtBox[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "8"]}]], RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "4"]}]], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8244349423159103`*^9, 3.8244349524267397`*^9}, 3.8244349951304502`*^9, 3.82443502935907*^9, {3.824435105015704*^9, 3.824435111686777*^9}, 3.824435188831296*^9, {3.8244353691771517`*^9, 3.8244353902364883`*^9}}, CellID->381957898] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "VerifySolutions", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.802948235338847*^9, 3.802948238507975*^9}}, CellID->460388021], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["VerifySolutions", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/VerifySolutions", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " numerically verifies the solution obtained by ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". By default this is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". Verifying the solution will increase the runtime of ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->606420927], Cell[CellGroupData[{ Cell[BoxData[{ 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ SqrtBox[ RowBox[{ SuperscriptBox["x", "3"], "+", "1"}]], "x"], ",", "x", ",", RowBox[{"VerifySolutions", "\[Rule]", "False"}]}], "]"}], "//", "Timing"}], "//", "First"}], "\[IndentingNewLine]", 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ SqrtBox[ RowBox[{ SuperscriptBox["x", "3"], "+", "1"}]], "x"], ",", "x", ",", RowBox[{"VerifySolutions", "\[Rule]", "True"}]}], "]"}], "//", "Timing"}], "//", "First"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.802948309862009*^9, 3.802948359403695*^9}, { 3.802949326656378*^9, 3.802949328413113*^9}, {3.824428130463694*^9, 3.82442813447968*^9}}, CellID->290267338], Cell[BoxData["0.024378`"], "Output", TaggingRules->{}, CellChangeTimes->{3.802948361477029*^9, 3.802948396194972*^9, 3.8029493289767036`*^9}, CellID->601567774], Cell[BoxData["0.051676`"], "Output", TaggingRules->{}, CellChangeTimes->{3.802948361477029*^9, 3.802948396194972*^9, 3.802949329024873*^9}, CellID->831147064] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->605265931], Cell["\<\ If the integral is continuous, then the definite integral can be computed \ using Newton\[Dash]Leibniz:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.824426574028309*^9, 3.824426577337874*^9}, { 3.825497054724921*^9, 3.8254970554921513`*^9}}, CellID->225822610], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "-", "1"}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}], "2"]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellID->732022005], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}]}]]}], "-", FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "x"}], SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]], "]"}], RowBox[{"2", " ", SqrtBox["3"]}]]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80294523611051*^9, 3.802945322598037*^9}, 3.802945391192635*^9, 3.803025981408692*^9, 3.8034330463033133`*^9, { 3.822674166878497*^9, 3.822674205749838*^9}}, CellID->415782554] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"%", "/.", RowBox[{"x", "\[Rule]", "1"}]}], ")"}], " ", "-", " ", RowBox[{"(", RowBox[{"%", "/.", RowBox[{"x", "\[Rule]", "0"}]}], ")"}]}]], "Input", TaggingRules->{}, CellID->474459833], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"5", " ", SqrtBox["2"]}]]}], "-", FractionBox[ RowBox[{"ArcTan", "[", SqrtBox[ FractionBox["3", "2"]], "]"}], RowBox[{"2", " ", SqrtBox["3"]}]]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80294523611051*^9, 3.802945322598037*^9}, 3.802945391192635*^9, 3.803025981408692*^9, 3.8034330463033133`*^9, { 3.822674166878497*^9, 3.822674205752084*^9}}, CellID->249017862] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", RowBox[{"NIntegrate", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "-", "1"}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}], "2"]], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellID->408457401], Cell[BoxData[ RowBox[{"-", "1.8540724511240114`*^-14"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80294523611051*^9, 3.802945322598037*^9}, 3.802945391192635*^9, 3.803025981408692*^9, 3.8034330463033133`*^9, { 3.822674166878497*^9, 3.8226742057537613`*^9}}, CellID->171614148] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " uses ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SolveAlways", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/SolveAlways", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to determine if a rational substitution can simplify a radical. Consider \ the integral ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", SuperscriptBox[ StyleBox["x", "TI"], "4"]}], "-", "1"}], ")"}], SqrtBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "8"], "+", RowBox[{"2", SuperscriptBox[ StyleBox["x", "TI"], "4"]}], "+", SuperscriptBox[ StyleBox["x", "TI"], "2"], "+", "1"}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "4"], "-", StyleBox["x", "TI"], "+", "1"}], ")"}], "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "4"], "+", StyleBox["x", "TI"], "+", "1"}], ")"}]}]], RowBox[{"\[DifferentialD]", StyleBox["x", "TI"]}]}]}], TraditionalForm]]], " and a candidate substitution of the form ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["u", "TI"], "=", FractionBox[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox["c", "TI"], StyleBox["0", "TR"]], SuperscriptBox[ StyleBox["x", "TI"], "4"]}], "+", SubscriptBox[ StyleBox["c", "TI"], StyleBox["1", "TR"]]}], StyleBox["x", "TI"]]}], TraditionalForm]]], ". The following computation shows that we can reduce ", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "8"], "+", RowBox[{"2", SuperscriptBox[ StyleBox["x", "TI"], "4"]}], "+", SuperscriptBox[ StyleBox["x", "TI"], "2"], "+", "1"}]], TraditionalForm]]], " to ", Cell[BoxData[ FormBox[ FractionBox[ SqrtBox[ RowBox[{"1", "+", SuperscriptBox[ StyleBox["u", "TI"], "2"]}]], StyleBox["x", "TI"]], TraditionalForm]]], ", where ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["u", "TI"], "=", FractionBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "4"], "+", "1"}], StyleBox["x", "TI"]]}], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.80298598767549*^9, 3.802986096595549*^9}, { 3.8029863135721617`*^9, 3.802986336029521*^9}, {3.802986557105723*^9, 3.802986635391471*^9}, {3.823756858430889*^9, 3.823756865793366*^9}, { 3.8237573250159903`*^9, 3.823757368891748*^9}}, CellID->105756201], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Together", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["u", "2"]}], "+", RowBox[{"b", " ", "u"}], "+", "c"}], "/.", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"d", " ", SuperscriptBox["x", "4"]}], "+", "e"}], "x"]}]}], "]"}]], "Input", TaggingRules->{}, CellID->261897664], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"a", " ", SuperscriptBox["e", "2"]}], "+", RowBox[{"b", " ", "e", " ", "x"}], "+", RowBox[{"c", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", "a", " ", "d", " ", "e", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"b", " ", "d", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"a", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["x", "8"]}]}], SuperscriptBox["x", "2"]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029863844819603`*^9, 3.802986462499407*^9}, { 3.8029865139510927`*^9, 3.802986527592195*^9}, 3.802986681590353*^9, 3.803433054515005*^9, 3.822674236696521*^9}, CellID->637670353] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["x", "8"], "+", RowBox[{"2", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "2"], "+", "1"}], "\[Equal]", RowBox[{"Numerator", "[", "%", "]"}]}]], "Input", TaggingRules->{}, CellID->158451367], Cell[BoxData[ RowBox[{ RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "8"]}], "\[Equal]", RowBox[{ RowBox[{"a", " ", SuperscriptBox["e", "2"]}], "+", RowBox[{"b", " ", "e", " ", "x"}], "+", RowBox[{"c", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", "a", " ", "d", " ", "e", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"b", " ", "d", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"a", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["x", "8"]}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029863844819603`*^9, 3.802986462499407*^9}, { 3.8029865139510927`*^9, 3.802986527592195*^9}, 3.802986681590353*^9, 3.803433054515005*^9, 3.822674236699276*^9}, CellID->755306074] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SolveAlways", "[", RowBox[{"%", ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellID->134625508], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"b", "\[Rule]", "0"}], ",", RowBox[{"c", "\[Rule]", "1"}], ",", RowBox[{"d", "\[Rule]", RowBox[{"-", FractionBox["1", SqrtBox["a"]]}]}], ",", RowBox[{"e", "\[Rule]", RowBox[{"-", FractionBox["1", SqrtBox["a"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "\[Rule]", "0"}], ",", RowBox[{"c", "\[Rule]", "1"}], ",", RowBox[{"d", "\[Rule]", FractionBox["1", SqrtBox["a"]]}], ",", RowBox[{"e", "\[Rule]", FractionBox["1", SqrtBox["a"]]}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029863844819603`*^9, 3.802986462499407*^9}, { 3.8029865139510927`*^9, 3.802986527592195*^9}, 3.802986681590353*^9, 3.803433054515005*^9, 3.8226742367016373`*^9}, CellID->798337715] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["u", "2"]}], "+", RowBox[{"b", " ", "u"}], "+", "c"}], ",", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"d", " ", SuperscriptBox["x", "4"]}], "+", "e"}], "x"]}]}], "}"}], "/.", "%"}]], "Input", TaggingRules->{}, CellID->876529584], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"a", " ", SuperscriptBox["u", "2"]}]}], ",", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", FractionBox["1", SqrtBox["a"]]}], "-", FractionBox[ SuperscriptBox["x", "4"], SqrtBox["a"]]}], "x"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"a", " ", SuperscriptBox["u", "2"]}]}], ",", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ FractionBox["1", SqrtBox["a"]], "+", FractionBox[ SuperscriptBox["x", "4"], SqrtBox["a"]]}], "x"]}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029863844819603`*^9, 3.802986462499407*^9}, { 3.8029865139510927`*^9, 3.802986527592195*^9}, 3.802986681590353*^9, 3.803433054515005*^9, 3.822674236704316*^9}, CellID->937174081] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "/.", " ", RowBox[{"a", "\[Rule]", "1"}]}]], "Input", TaggingRules->{}, CellID->5707152], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SuperscriptBox["u", "2"]}], ",", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "-", SuperscriptBox["x", "4"]}], "x"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SuperscriptBox["u", "2"]}], ",", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{"1", "+", SuperscriptBox["x", "4"]}], "x"]}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8029863844819603`*^9, 3.802986462499407*^9}, { 3.8029865139510927`*^9, 3.802986527592195*^9}, 3.802986681590353*^9, 3.803433054515005*^9, 3.822674236706875*^9}, CellID->531146861] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107579], Cell[TextData[{ "Once the candidate substitution is known, ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["GroebnerBasis", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/GroebnerBasis", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Solve", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Solve", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " may be used to simplify the integral. For example, use the substitution ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["u", "TI"], "=", FractionBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "2"], "+", "1"}], StyleBox["x", "TI"]]}], TraditionalForm]]], " to evaluate the integral ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "2"], "-", StyleBox["x", "TI"], "+", "1"}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "2"], "-", "1"}], ")"}], SqrtBox[ RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], "3"], "+", StyleBox["x", "TI"]}]]}]], RowBox[{"\[DifferentialD]", StyleBox["x", "TI"]}]}]}], TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellID->263254314], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GroebnerBasis", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dt", "[", "y", "]"}], "==", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "3"], "+", "x"}]]}]], RowBox[{"Dt", "[", "x", "]"}]}]}], ",", RowBox[{"u", "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], "x"]}], ",", RowBox[{"Dt", "[", RowBox[{"u", "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], "x"]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", " ", RowBox[{"Dt", "[", "u", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Dt", "[", "x", "]"}], ",", " ", "x"}], "}"}], ",", " ", RowBox[{"MonomialOrder", " ", "\[Rule]", " ", "EliminationOrder"}], ",", " ", RowBox[{"Method", " ", "\[Rule]", " ", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellID->18426443], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Dt", "[", "u", "]"}], "2"]}], "+", RowBox[{"2", " ", "u", " ", SuperscriptBox[ RowBox[{"Dt", "[", "u", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["u", "2"], " ", SuperscriptBox[ RowBox[{"Dt", "[", "u", "]"}], "2"]}], "+", RowBox[{"16", " ", "u", " ", SuperscriptBox[ RowBox[{"Dt", "[", "y", "]"}], "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["u", "3"], " ", SuperscriptBox[ RowBox[{"Dt", "[", "y", "]"}], "2"]}], "+", RowBox[{ SuperscriptBox["u", "5"], " ", SuperscriptBox[ RowBox[{"Dt", "[", "y", "]"}], "2"]}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.802939795137452*^9, 3.802939802991035*^9}, { 3.802939893020114*^9, 3.802939924946157*^9}, {3.802939961635579*^9, 3.802939984975882*^9}, {3.802940025570389*^9, 3.802940033949543*^9}, { 3.802940114663747*^9, 3.802940133774692*^9}, 3.802985365855465*^9, 3.8034330573067293`*^9, {3.822674243909833*^9, 3.822674275821405*^9}}, CellID->211158631] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"%", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Equal]", "0"}], ",", RowBox[{"Dt", "[", "y", "]"}]}], "]"}], "//", "Factor"}], "//", "PowerExpand"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.824279481369144*^9}, CellID->975745049], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "u"}], ")"}], " ", RowBox[{"Dt", "[", "u", "]"}]}], RowBox[{ SqrtBox["u"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", SuperscriptBox["u", "2"]}], ")"}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "u"}], ")"}], " ", RowBox[{"Dt", "[", "u", "]"}]}], RowBox[{ SqrtBox["u"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", SuperscriptBox["u", "2"]}], ")"}]}]]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.802939795137452*^9, 3.802939802991035*^9}, { 3.802939893020114*^9, 3.802939924946157*^9}, {3.802939961635579*^9, 3.802939984975882*^9}, {3.802940025570389*^9, 3.802940033949543*^9}, { 3.802940114663747*^9, 3.802940133774692*^9}, 3.802985365855465*^9, 3.8034330573067293`*^9, {3.822674243909833*^9, 3.8226742758244143`*^9}}, CellID->761087356] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"%", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "/", RowBox[{"Dt", "[", "u", "]"}]}], ",", "u"}], "]"}], "/.", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], "x"]}]}]], "Input", TaggingRules->{}, CellID->509923405], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"ArcTan", "[", FractionBox[ SqrtBox[ FractionBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}], "x"]], SqrtBox["2"]], "]"}]}], "+", RowBox[{"ArcTanh", "[", FractionBox[ SqrtBox[ FractionBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"]}], "x"]], SqrtBox["2"]], "]"}]}], RowBox[{"2", " ", SqrtBox["2"]}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.802939795137452*^9, 3.802939802991035*^9}, { 3.802939893020114*^9, 3.802939924946157*^9}, {3.802939961635579*^9, 3.802939984975882*^9}, {3.802940025570389*^9, 3.802940033949543*^9}, { 3.802940114663747*^9, 3.802940133774692*^9}, 3.802985365855465*^9, 3.8034330573067293`*^9, {3.822674243909833*^9, 3.82267427582642*^9}}, CellID->334082269] }, Open ]], Cell[TextData[{ "This is essentially how ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " has computed the integral, except additional post-processing is done to \ express the integral in terms of the radicals in the integrand (which makes \ the solution valid for all ", Cell[BoxData[ FormBox[ StyleBox["x", "TI"], TraditionalForm]]], "):" }], "Text", TaggingRules->{}, CellID->680312581], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "3"], "+", "x"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellID->948231790], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"x", "+", SuperscriptBox["x", "3"]}]]}], RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}]}], RowBox[{"2", " ", SqrtBox["2"]}]]}], "-", FractionBox[ RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"x", "+", SuperscriptBox["x", "3"]}]]}], RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], "]"}], RowBox[{"2", " ", SqrtBox["2"]}]]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.802940150078804*^9, 3.803025948785242*^9, 3.8034330603617973`*^9}, CellID->448648093] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107580], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will often return an answer in terms of elementary functions when ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Integrate", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Integrate", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " will return an answer in terms of special functions:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.802938253547419*^9, 3.8029382752936277`*^9}, { 3.823756940532007*^9, 3.823756965147208*^9}}, CellID->772230828], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", "x", "+", "2"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], ")"}], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "4"], "+", "x"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802938252364797*^9, 3.802938252368278*^9}, { 3.802938293149037*^9, 3.802938293254321*^9}, {3.802938482507408*^9, 3.8029384872836514`*^9}, {3.802938532022769*^9, 3.8029385533407383`*^9}}, CellID->160872155], Cell[BoxData[ RowBox[{"2", " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", "x"}], SqrtBox[ RowBox[{"x", "+", SuperscriptBox["x", "4"]}]]], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80293848460987*^9, 3.802938487755755*^9}, { 3.802938532850995*^9, 3.802938554982708*^9}, 3.803025951417523*^9, 3.803433066659111*^9}, CellID->680343677] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", "x", "+", "2"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], ")"}], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "4"], "+", "x"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802938252364797*^9, 3.802938252368278*^9}, { 3.802938293149037*^9, 3.802938293254321*^9}, {3.802938482507408*^9, 3.8029384872836514`*^9}, {3.802938532022769*^9, 3.802938580453414*^9}}, CellID->591807682], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"3", " ", SqrtBox[ RowBox[{"x", "+", SuperscriptBox["x", "4"]}]]}]], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["x"], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "3"]}]], " ", RowBox[{"ArcSinh", "[", SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "]"}]}], "+", RowBox[{ SqrtBox["6"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], ")"}], " ", SuperscriptBox["x", "2"], " ", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", "x"}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], ")"}], " ", "x"}]]], " ", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}], "+", RowBox[{"2", " ", "x"}]}], ")"}]}], SuperscriptBox["x", "2"]]], " ", RowBox[{"EllipticF", "[", RowBox[{ RowBox[{"ArcSin", "[", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]]}], ")"}], " ", "x"}]]], "]"}], ",", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}]}], "-", RowBox[{ SqrtBox["6"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], ")"}], " ", SuperscriptBox["x", "2"], " ", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", "x"}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], ")"}], " ", "x"}]]], " ", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}], "+", RowBox[{"2", " ", "x"}]}], ")"}]}], SuperscriptBox["x", "2"]]], " ", RowBox[{"EllipticPi", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], ")"}]}], ",", RowBox[{"ArcSin", "[", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]]}], ")"}], " ", "x"}]]], "]"}], ",", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}]}]}], ")"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.802938582326666*^9, 3.803025957393485*^9, 3.8034330762743073`*^9}, CellID->666969978] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->158766396], Cell["Some integrals will take longer than others:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8239773524796743`*^9, 3.823977359573864*^9}}, CellID->500479290], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{"2", "+", "x"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "4"}]], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}]}]], ",", "x"}], "]"}], "//", "Timing"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8237639511779118`*^9, 3.823763975884362*^9}}, CellID->575278228], Cell[BoxData[ RowBox[{"{", RowBox[{"0.410885`", ",", RowBox[{ FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "4"}]], "-", RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "4"}]], " ", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "4"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "4"}]]], "]"}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "4"}]]}]], "-", FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", SuperscriptBox["2", RowBox[{"1", "/", "4"}]]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "4"}]], " ", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "4"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "4"}]]], "]"}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "4"}]]}]], "-", FractionBox[ RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "4"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "4"}]]}], RowBox[{ SqrtBox["2"], "-", RowBox[{"2", " ", SqrtBox["2"], " ", "x"}], "+", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"]}]]}]}]], "]"}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "4"}]]}]]}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.823763953353539*^9, 3.823763981137452*^9}}, CellID->937771136] }, Open ]], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "+", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}]], ",", "x"}], "]"}], "//", "Timing"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802938338754139*^9, 3.802938340924121*^9}, { 3.802938384863057*^9, 3.8029383941411467`*^9}, 3.802938433084887*^9}, CellID->642332141], Cell[BoxData[ RowBox[{"{", RowBox[{"1.419263`", ",", RowBox[{ FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "x"}], RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}]], "]"}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"3", "/", "4"}]]}]], "+", FractionBox[ RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "x"}], RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "4"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "4"}]]}]], "]"}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"3", "/", "4"}]]}]]}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.823757032071082*^9, 3.823763983421618*^9}, CellID->947385763] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107581], Cell[TextData[{ "Trager\[CloseCurlyQuote]s Hermite reduction will always find the rational \ (algebraic) part of the integral, whereas the methods used by ", Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will sometimes fail:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.802945544024597*^9, 3.80294563319875*^9}, { 3.802947453512076*^9, 3.802947455686393*^9}, {3.80298529336287*^9, 3.802985303035489*^9}, {3.823757007479843*^9, 3.8237570166993*^9}}, CellID->545833724], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802945831397176*^9, 3.80294583224328*^9}}, CellID->219713496], Cell[BoxData[ RowBox[{ SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]], " ", RowBox[{"(", RowBox[{"x", "-", FractionBox["x", RowBox[{"1", "+", SuperscriptBox["x", "2"]}]]}], ")"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.802945832968234*^9}, CellID->917803182] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802945767964375*^9, 3.8029457701377783`*^9}}, CellID->988617095], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"], " ", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "6"]}]]}]], ",", "x"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.82436581762512*^9}, CellID->628573162] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107582], Cell[TextData[{ Cell[BoxData[ StyleBox["IntegrateAlgebraic", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will fail to compute some algebraic integrals which possess elementary \ solutions:" }], "Text", TaggingRules->{}, CellID->431365593], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["x", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "3"], "+", "8"}], ")"}], SqrtBox[ RowBox[{ SuperscriptBox["x", "3"], "-", "1"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8237618337301702`*^9, 3.823761853026988*^9}}, CellID->510135160], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["x", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "3"]}]], " ", RowBox[{"(", RowBox[{"8", "+", SuperscriptBox["x", "3"]}], ")"}]}]], ",", "x"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.823761888672041*^9}, CellID->420409108] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "18"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}], RowBox[{"3", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "3"]}]]}]], "]"}]}], "+", RowBox[{ FractionBox["1", "18"], " ", RowBox[{"ArcTan", "[", RowBox[{ FractionBox["1", "3"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "3"]}]]}], "]"}]}], "+", FractionBox[ RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "3"]}]]}], RowBox[{"1", "+", "x", "+", SuperscriptBox["x", "2"]}]], "]"}], RowBox[{"6", " ", SqrtBox["3"]}]]}], ")"}]}], "//", "Simplify"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.82376186095339*^9, 3.823761891851128*^9}}, CellID->350843317], Cell[BoxData[ FractionBox["x", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "3"]}]], " ", RowBox[{"(", RowBox[{"8", "+", SuperscriptBox["x", "3"]}], ")"}]}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.823761864348391*^9, 3.823761892328991*^9}}, CellID->719978046] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["x", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"12", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}]}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.823760929114139*^9, 3.82376093327497*^9}}, CellID->656822909], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox["x", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"12", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}]}]]}]], ",", "x"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.823760948074991*^9}, CellID->320489324] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", "x", "}"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"1", "+", "x"}], "]"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"Log", "[", RowBox[{"43", "+", RowBox[{"258", " ", "x"}], "+", RowBox[{"612", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"772", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"624", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"360", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"112", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{ SqrtBox[ RowBox[{"1", "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"12", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "-", RowBox[{"22", " ", "x"}], "+", RowBox[{"30", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"92", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"52", " ", SuperscriptBox["x", "4"]}]}], ")"}]}]}], "]"}]}]}], ")"}]}], "//", "Simplify"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.823629846143434*^9, 3.823629848351008*^9}, { 3.823630073280015*^9, 3.823630074737129*^9}, {3.8237609200691843`*^9, 3.823760922994969*^9}}, CellID->769933401], Cell[BoxData[ FractionBox["x", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"8", " ", "x"}], "+", RowBox[{"12", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}]}]]}]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.823630070529814*^9, 3.8236300749116507`*^9}, 3.8237609232678432`*^9, 3.823761043534851*^9}, CellID->328626486] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->461278909], Cell[TextData[{ "Some integrals require many logarithms (including ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArcTan", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ArcTan", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ArcTanh", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ArcTanh", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8029418649646177`*^9, 3.802941887363456*^9}, { 3.802941981297532*^9, 3.802941982504781*^9}, {3.802942076437104*^9, 3.8029421005800343`*^9}, {3.823757118962134*^9, 3.823757123568584*^9}}, CellID->180958778], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "6"], "-", SuperscriptBox["x", "3"], "+", "1"}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "6"], "-", "1"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"1", "/", "3"}]]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.802947054857418*^9, 3.8029470777044573`*^9}}, CellID->549901412], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{ SqrtBox["3"], " ", "x"}]], "]"}], RowBox[{"2", " ", SqrtBox["3"]}]], "+", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["3"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{ SqrtBox["3"], " ", "x"}]], "]"}]}], "+", FractionBox[ RowBox[{ SqrtBox["3"], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{ SqrtBox["3"], " ", "x"}]], "]"}]}], RowBox[{"4", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"x", "+", RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], RowBox[{ SqrtBox["3"], " ", "x"}]], "]"}], RowBox[{"4", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SqrtBox["3"]}]], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "x"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "-", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"Log", "[", RowBox[{"x", "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x"}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}], RowBox[{"12", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]], "-", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{"2", " ", "x"}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}], RowBox[{"4", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]], "+", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"2", "/", "3"}]]}], "]"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"2", "/", "3"}]]}], "]"}]}], "+", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "-", RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}], RowBox[{"8", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]], "-", FractionBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "]"}], RowBox[{"24", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.802941891776959*^9, {3.8029470581910887`*^9, 3.802947078622655*^9}, 3.803025871033318*^9, 3.803433117112949*^9, 3.822674347423645*^9}, CellID->10494109] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107583], Cell["Some integrals introduce complicated algebraic numbers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.803115927168985*^9, 3.803115960465055*^9}}, CellID->791185557], 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["IntegrateAlgebraic", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["IntegrateAlgebraic", "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/IntegrateAlgebraic"}, "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], "IntegrateAlgebraic"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["IntegrateAlgebraic"], BoxID -> "IntegrateAlgebraic", Selectable->False], "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "4"], "-", "1"}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "+", "1"}], ")"}], RadicalBox[ RowBox[{ SuperscriptBox["x", "9"], "-", SuperscriptBox["x", "7"]}], "8"]}]], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.803113654200581*^9, 3.803113662954228*^9}, { 3.803113852508675*^9, 3.803113858093601*^9}, {3.80311415788144*^9, 3.8031141685346937`*^9}, {3.803114205733481*^9, 3.8031142095405416`*^9}, 3.803114286206411*^9, {3.8031143658598413`*^9, 3.803114377138298*^9}, { 3.803114465791868*^9, 3.803114490952504*^9}, {3.803114666423479*^9, 3.80311468910919*^9}, {3.803114739660556*^9, 3.8031147595185328`*^9}, { 3.803114799705493*^9, 3.8031148017671328`*^9}, {3.803114854472715*^9, 3.803114879286743*^9}, {3.8031149474342737`*^9, 3.803114970688245*^9}, 3.803115069815877*^9, {3.803115363842862*^9, 3.8031154679301023`*^9}, { 3.803115515060746*^9, 3.803115531782488*^9}, {3.80311561585947*^9, 3.8031156581604*^9}, {3.803115762770022*^9, 3.803115765704462*^9}, { 3.8248423087481813`*^9, 3.824842308895866*^9}}, CellID->295521180], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "28"}], "+", RowBox[{"35", " ", SqrtBox["2"]}], "-", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "-", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{"2", "-", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}], "+", RowBox[{ SqrtBox[ RowBox[{"4", "+", RowBox[{"2", " ", SqrtBox["2"]}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}], "-", SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]}], ")"}]}], ")"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"28", "+", RowBox[{"35", " ", SqrtBox["2"]}], "-", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "+", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", SqrtBox[ RowBox[{"2", "-", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"28", "+", RowBox[{"35", " ", SqrtBox["2"]}], "+", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "+", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", SqrtBox[ RowBox[{"2", "+", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "28"}], "+", RowBox[{"35", " ", SqrtBox["2"]}], "+", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "-", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{"2", "+", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}], "-", RowBox[{ SqrtBox[ RowBox[{"4", "+", RowBox[{"2", " ", SqrtBox["2"]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}], "+", SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]}], ")"}]}], ")"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"28", "+", RowBox[{"35", " ", SqrtBox["2"]}], "-", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "+", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", SqrtBox[ RowBox[{"2", "-", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"28", "+", RowBox[{"35", " ", SqrtBox["2"]}], "+", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "+", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", SqrtBox[ RowBox[{"2", "+", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "28"}], "+", RowBox[{"35", " ", SqrtBox["2"]}], "-", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "-", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTanh", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{"2", "-", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}], "+", RowBox[{ SqrtBox[ RowBox[{"4", "+", RowBox[{"2", " ", SqrtBox["2"]}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}], "-", SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]}], ")"}]}], ")"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "28"}], "+", RowBox[{"35", " ", SqrtBox["2"]}], "+", RowBox[{"8", " ", SqrtBox[ RowBox[{"50", "-", RowBox[{"31", " ", SqrtBox["2"]}]}]]}]}], ")"}], RowBox[{"1", "/", "8"}]], " ", RowBox[{"ArcTanh", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ SuperscriptBox["2", RowBox[{"7", "/", "8"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"15", "/", "16"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{"2", "+", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}], "-", RowBox[{ SqrtBox[ RowBox[{"4", "+", RowBox[{"2", " ", SqrtBox["2"]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"2", "+", SqrtBox["2"]}]]}], "+", SqrtBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]]}]], " ", "x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "7"]}], "+", SuperscriptBox["x", "9"]}], ")"}], RowBox[{"1", "/", "8"}]]}]}], ")"}]}], ")"}]}], "]"}]}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.803115897372445*^9, 3.822674394744863*^9}, CellID->512993228] }, Open ]] }, Open ]] }, Closed]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"IntegrateAlgebraic | Example Notebook", FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 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 -> "12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[631, 23, 168, 7, 70, "Subsection",ExpressionUUID->"c91f63a9-87ba-4c07-9463-8d64dbd78c92", CellID->904125756], Cell[802, 32, 265, 5, 70, "Text",ExpressionUUID->"2331b72f-a623-4f11-bf7b-b1bd597411cc", CellID->101223932], Cell[CellGroupData[{ Cell[1092, 41, 7473, 192, 70, "Input",ExpressionUUID->"ed9a4072-2c1d-4d97-9365-68ba2dbed641", CellID->510560218], Cell[8568, 235, 352, 13, 70, "Output",ExpressionUUID->"4c7dc280-795c-4d8d-81a3-2530d2b3e872", CellID->596100267] }, Open ]], Cell[CellGroupData[{ Cell[8957, 253, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2473aac5-c441-4d71-a8e6-cd31f6a9c870", CellID->14107562], Cell[9103, 259, 370, 10, 70, "Text",ExpressionUUID->"e3af3211-efee-4c99-85d6-e7aa5e7d30c6", CellID->214676016], Cell[CellGroupData[{ Cell[9498, 273, 7493, 192, 70, "Input",ExpressionUUID->"cae60a37-f159-4b3a-84f9-020b5138dcfc", CellID->542326382], Cell[16994, 467, 783, 26, 70, "Output",ExpressionUUID->"d88680ae-d72c-4067-96c2-c9b241883843", CellID->904402061] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17826, 499, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3f603c7b-18d3-4fad-8536-c7f747994760", CellID->14107563], Cell[17972, 505, 1575, 52, 70, "Text",ExpressionUUID->"14b2e2d1-0916-4fa3-96dc-9abd2a763a09", CellID->347738977], Cell[CellGroupData[{ Cell[19572, 561, 7588, 195, 70, "Input",ExpressionUUID->"a101c2ba-5c77-45d8-90ae-46db1f4c1d36", CellID->985111207], Cell[27163, 758, 1956, 69, 70, "Output",ExpressionUUID->"c3f60669-c6cd-4e53-9299-e917993341ae", CellID->86726190] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29168, 833, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"34a1bf53-2378-463e-9635-c6a8829c171e", CellID->14107564], Cell[29314, 839, 157, 3, 70, "Text",ExpressionUUID->"c1ef4e04-0a6e-446c-acd9-8e83e1a0fb2e", CellID->559540838], Cell[CellGroupData[{ Cell[29496, 846, 7656, 194, 70, "Input",ExpressionUUID->"42800b07-27cf-44bb-bfa7-dbdd8daf5a16", CellID->733998830], Cell[37155, 1042, 1343, 41, 70, "Output",ExpressionUUID->"c33c59ba-89ea-40db-a4db-fac22efc5758", CellID->708242308] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38559, 1090, 160, 7, 70, "Subsection",ExpressionUUID->"fb0bb3c2-3922-4d17-a940-e8e6445f1d3b", CellID->204653245], Cell[38722, 1099, 1604, 47, 70, "Text",ExpressionUUID->"1a09af83-0e09-4996-83c7-8682981bb7d3", CellID->283827590], Cell[CellGroupData[{ Cell[40351, 1150, 7914, 206, 70, "Input",ExpressionUUID->"6e72946b-c736-4f97-909a-8dc3661d048b", CellID->744150817], Cell[48268, 1358, 4160, 135, 70, "Output",ExpressionUUID->"dbeae5cf-8177-496c-ba1c-d07d9fba6b45", CellID->559289451] }, Open ]], Cell[CellGroupData[{ Cell[52465, 1498, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"39b90b7a-5fcd-4729-afd4-ebc6591ad022", CellID->14107565], Cell[52611, 1504, 1160, 32, 70, "Text",ExpressionUUID->"4bbac812-49a4-4eeb-b136-154d7970c7e6", CellID->275575763], Cell[CellGroupData[{ Cell[53796, 1540, 7557, 196, 70, "Input",ExpressionUUID->"5d482fa7-999f-4a02-bb3b-77bb1adb199c", CellID->286795877], Cell[61356, 1738, 4846, 148, 70, "Output",ExpressionUUID->"f584bb2d-c02d-4e02-b09c-3a5786bc703b", CellID->854850624] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66251, 1892, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"64bd6bf1-c081-4264-8615-fab7edbbb3da", CellID->14107566], Cell[66397, 1898, 1924, 58, 70, "Text",ExpressionUUID->"8926377e-a714-45b8-a2fb-c201acd97207", CellID->472899898], Cell[CellGroupData[{ Cell[68346, 1960, 8100, 210, 70, "Input",ExpressionUUID->"a2c6793b-f5a6-403f-b3b7-5852c2c95bc0", CellID->879718097], Cell[76449, 2172, 4279, 145, 70, "Output",ExpressionUUID->"cb49dc1b-a3ea-4b2c-8572-a762e63d83ce", CellID->236180757] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80777, 2323, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8d8e81f3-afd2-4102-a6c5-26c8e5d1c88e", CellID->14107567], Cell[80923, 2329, 1813, 51, 70, "Text",ExpressionUUID->"d5cd42de-7ca4-4eca-bbe4-3532f5f23e3b", CellID->389969378], Cell[CellGroupData[{ Cell[82761, 2384, 8032, 210, 70, "Input",ExpressionUUID->"83b6cb82-3a0b-479e-a091-3f7d7de7f803", CellID->766152817], Cell[90796, 2596, 1147, 37, 70, "Output",ExpressionUUID->"62232a36-1fba-4e83-8b41-ecbe77c63fa6", CellID->676405605] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[91992, 2639, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"43eb861c-eb3c-4c5f-9d95-d9e985e87d87", CellID->14107568], Cell[92138, 2645, 1412, 44, 70, "Text",ExpressionUUID->"261cb5cf-aaba-4665-bc9e-62e93be103f0", CellID->925921170], Cell[CellGroupData[{ Cell[93575, 2693, 7513, 191, 70, "Input",ExpressionUUID->"eac24f9e-0ea4-49c3-ab56-cd35549c11fd", CellID->622404467], Cell[101091, 2886, 2368, 82, 70, "Output",ExpressionUUID->"d337a958-34d8-421f-9c90-c6a5cc22a732", CellID->108905475] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[103508, 2974, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"217425ac-5820-425d-9359-5d9d57cefeed", CellID->14107569], Cell[103654, 2980, 1182, 37, 70, "Text",ExpressionUUID->"e1b3fcdc-0673-4deb-b0ca-91add7800b3c", CellID->121325491], Cell[CellGroupData[{ Cell[104861, 3021, 7568, 195, 70, "Input",ExpressionUUID->"453255ca-84f0-4b95-9619-b1edfb94645c", CellID->910022964], Cell[112432, 3218, 541, 19, 70, "Output",ExpressionUUID->"542a7579-ebac-404e-b750-d75382843c69", CellID->191827145] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[113022, 3243, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e89f1592-1796-44f5-9a8a-c44cbb8ce427", CellID->14107570], Cell[113168, 3249, 1428, 47, 70, "Text",ExpressionUUID->"a38cb381-5099-4679-b859-e92cb5627769", CellID->977582620], Cell[CellGroupData[{ Cell[114621, 3300, 7741, 198, 70, "Input",ExpressionUUID->"8e80de96-bf96-4681-b7cc-aa56191689fb", CellID->99210977], Cell[122365, 3500, 2858, 93, 70, "Output",ExpressionUUID->"99fd2155-c98d-4c5b-a7d0-4cba3e731cfb", CellID->817219771] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[125272, 3599, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b920c630-7ba7-4e55-98ac-d7d1f020b4d7", CellID->14107571], Cell[125418, 3605, 217, 6, 70, "Text",ExpressionUUID->"a3bb35c7-bbe9-41d9-9569-1289d1f4100a", CellID->753075163], Cell[CellGroupData[{ Cell[125660, 3615, 7992, 206, 70, "Input",ExpressionUUID->"8d3218c0-d9ef-4e32-a815-a477e3dc11db", CellID->552567911], Cell[133655, 3823, 1367, 50, 70, "Output",ExpressionUUID->"9867245e-c796-4d0d-8fbb-e69fa5066926", CellID->361819197] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[135071, 3879, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d3aea95f-f4e9-43b7-9637-f1550e9e599c", CellID->14107572], Cell[135217, 3885, 487, 11, 70, "Text",ExpressionUUID->"5d42e7f1-2f48-4ddf-9421-d8a36f1e8f78", CellID->399109046], Cell[CellGroupData[{ Cell[135729, 3900, 7550, 190, 70, "Input",ExpressionUUID->"08913641-2dba-4614-891d-36a0bcfb5ae1", CellID->842840825], Cell[143282, 4092, 1799, 65, 70, "Output",ExpressionUUID->"fd50eaf8-e584-4f10-bfa7-5fc4ec0d6218", CellID->640388047] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[145130, 4163, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4027bc36-000a-488c-af90-7cf9218e5754", CellID->14107573], Cell[145276, 4169, 724, 22, 70, "Text",ExpressionUUID->"d2d4c4a4-56cd-488a-8036-6084df63925f", CellID->375482035], Cell[CellGroupData[{ Cell[146025, 4195, 7623, 198, 70, "Input",ExpressionUUID->"e8bada53-7dea-4fd5-a8ee-bb1465e124c4", CellID->410200190], Cell[153651, 4395, 1329, 44, 70, "Output",ExpressionUUID->"03f370d6-26ca-4b97-86cc-998e52e0af71", CellID->799108979] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[155029, 4445, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"a14422a4-5c84-4214-bcd8-a9c4a27a7208", CellID->14107574], Cell[155175, 4451, 386, 9, 70, "Text",ExpressionUUID->"b976b959-2d27-4d56-b81a-582d0d55188d", CellID->494663948], Cell[CellGroupData[{ Cell[155586, 4464, 8084, 213, 70, "Input",ExpressionUUID->"8af2f1b8-f231-4131-bba3-a3717ae82664", CellID->358044142], Cell[163673, 4679, 937, 31, 70, "Output",ExpressionUUID->"8fd1e542-764c-45a8-9cbd-de5cc098969c", CellID->414065798] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[164659, 4716, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"614d4585-c338-422b-b4ff-0fc46a04758a", CellID->14107575], Cell[164805, 4722, 315, 8, 70, "Text",ExpressionUUID->"8d1f9117-59ce-4cd9-a293-c95ea58fecc2", CellID->254855619], Cell[CellGroupData[{ Cell[165145, 4734, 7580, 195, 70, "Input",ExpressionUUID->"0f1b60dc-28bc-4da9-825c-d4296ad23023", CellID->609080838], Cell[172728, 4931, 1523, 58, 70, "Output",ExpressionUUID->"4db46ee5-8839-41a4-997f-d8f5dbb6a5f9", CellID->413025266] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[174300, 4995, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2815ea63-335f-4329-a887-f4bb52426162", CellID->14107576], Cell[174446, 5001, 283, 8, 70, "Text",ExpressionUUID->"615705f8-59fd-4fe1-b3d1-ef0599045647", CellID->860137811], Cell[CellGroupData[{ Cell[174754, 5013, 8072, 211, 70, "Input",ExpressionUUID->"9861e67c-ada2-4078-bd04-cd794063f246", CellID->223816116], Cell[182829, 5226, 2443, 82, 70, "Output",ExpressionUUID->"11afc4f6-5c50-4924-ad01-9ab5c3b1e77d", CellID->533453302] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[185321, 5314, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"fd7629af-00be-49a6-86a3-1c2ebdc2bac6", CellID->14107577], Cell[185467, 5320, 551, 11, 70, "Text",ExpressionUUID->"de280e30-e7f8-4245-bc39-2d91be405536", CellID->803848604], Cell[CellGroupData[{ Cell[186043, 5335, 7732, 200, 70, "Input",ExpressionUUID->"b4ea0954-29e9-4c57-b66c-03d923d7a183", CellID->130835613], Cell[193778, 5537, 3512, 118, 70, "Output",ExpressionUUID->"a6dafce8-35c2-49b4-8cc9-15ec793c2482", CellID->914290589] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[197339, 5661, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"8ddb72f8-d5f6-4eff-afe7-12e06ac91f9a", CellID->588151534], Cell[197486, 5667, 653, 13, 70, "Text",ExpressionUUID->"fe58ea41-caf5-4506-bb01-db498b0f2914", CellID->195604797], Cell[CellGroupData[{ Cell[198164, 5684, 7897, 205, 70, "Input",ExpressionUUID->"d78aa5c5-fc8b-4e49-8b56-7546011ee931", CellID->1968012932], Cell[206064, 5891, 4897, 163, 70, "Output",ExpressionUUID->"d10de07f-acb6-43ce-90eb-53d4a2b01d46", CellID->850217030] }, Open ]], Cell[CellGroupData[{ Cell[210998, 6059, 8451, 222, 70, "Input",ExpressionUUID->"1f60ff8e-32fe-4242-88d4-bcde7d618538", CellID->930310424], Cell[219452, 6283, 2354, 84, 70, "Output",ExpressionUUID->"6b3c1f1b-64c0-462d-aaa9-636d9d92ac70", CellID->1434342923] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[221867, 6374, 161, 7, 70, "Subsection",ExpressionUUID->"ec11e9c6-e188-47b8-b3a4-b3ee518f0a53", CellID->890561554], Cell[CellGroupData[{ Cell[222053, 6385, 166, 7, 70, "Subsubsection",ExpressionUUID->"0e115a4f-8514-4b35-bfc6-f52ada279ac5", CellID->182171908], Cell[222222, 6394, 1461, 42, 70, "Text",ExpressionUUID->"71bfa11f-7b70-4c97-aae7-0fd580464882", CellID->137671976], Cell[CellGroupData[{ Cell[223708, 6440, 7644, 197, 70, "Input",ExpressionUUID->"a89a287c-a313-400d-91db-c25c399b7fca", CellID->620604581], Cell[231355, 6639, 7621, 197, 70, "Output",ExpressionUUID->"5a863318-a82f-41d2-8342-59c7f889a696", CellID->763509480] }, Open ]], Cell[CellGroupData[{ Cell[239013, 6841, 7754, 199, 70, "Input",ExpressionUUID->"50dfd86e-f1ae-43d5-a226-9722c25f6070", CellID->240894885], Cell[246770, 7042, 1918, 69, 70, "Output",ExpressionUUID->"8f962833-a816-4ea4-96df-0dcca333a672", CellID->783692263] }, Open ]], Cell[248703, 7114, 798, 25, 70, "Text",ExpressionUUID->"5b5994fd-193f-4cf8-87a8-f8c2bfcdbf3f", CellID->484043346], Cell[CellGroupData[{ Cell[249526, 7143, 7860, 201, 70, "Input",ExpressionUUID->"af0b4214-1c49-4842-95e8-8b35056fbb49", CellID->431786635], Cell[257389, 7346, 9536, 261, 70, "Output",ExpressionUUID->"c533bfe8-f71b-44e4-90a9-ec916f4200ac", CellID->561177690] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[266974, 7613, 167, 7, 70, "Subsubsection",ExpressionUUID->"b7e37b11-6554-4426-8695-2d5d564728bc", CellID->68614031], Cell[267144, 7622, 260, 5, 70, "Text",ExpressionUUID->"e3a30280-6226-48c4-8f42-87a086188bcd", CellID->612249005], Cell[CellGroupData[{ Cell[267429, 7631, 7416, 189, 70, "Input",ExpressionUUID->"19ff2e6d-d90d-4e06-ae55-ed854b7be999", CellID->182619755], Cell[274848, 7822, 1355, 41, 70, "Output",ExpressionUUID->"7e8175ff-7fe6-40b8-b221-74aa975421e9", CellID->236613261] }, Open ]], Cell[CellGroupData[{ Cell[276240, 7868, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"bb1f43a8-21e0-4c54-a86e-e0d21f4cbd6d", CellID->14107578], Cell[276386, 7874, 198, 5, 70, "Text",ExpressionUUID->"f6409bc7-1955-49c3-bbeb-5bf36e27dc0f", CellID->759391563], Cell[CellGroupData[{ Cell[276609, 7883, 7862, 201, 70, "Input",ExpressionUUID->"836fc8cc-0652-499c-a3bc-4fc9e6e3486a", CellID->408460409], Cell[284474, 8086, 4668, 130, 70, "Output",ExpressionUUID->"863721dd-5b3a-4097-ab0a-2b0626b3a02e", CellID->456874121] }, Open ]], Cell[CellGroupData[{ Cell[289179, 8221, 7750, 198, 70, "Input",ExpressionUUID->"294d1d9d-28d9-4b08-a49c-be0bdf65f592", CellID->426544526], Cell[296932, 8421, 5867, 166, 70, "Output",ExpressionUUID->"316c0d3f-7912-406f-99f3-c83aa10cd0e0", CellID->640659200] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[302860, 8594, 167, 7, 70, "Subsubsection",ExpressionUUID->"00e132c6-2abf-401a-a741-339189a81110", CellID->245652668], Cell[303030, 8603, 731, 22, 70, "Text",ExpressionUUID->"934f56a5-12fc-4167-a534-73534dca0e0b", CellID->867157800], Cell[CellGroupData[{ Cell[303786, 8629, 8159, 208, 70, "Input",ExpressionUUID->"b1a44ce3-0d94-432f-9520-a85c147de129", CellID->830907765], Cell[311948, 8839, 2626, 85, 70, "Output",ExpressionUUID->"ebe92adf-fb00-428b-af17-5267764256a3", CellID->256041286] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[314623, 8930, 275, 9, 70, "Subsubsection",ExpressionUUID->"27f13d45-cf8f-4745-8859-b3b927417f7c", CellID->836809054], Cell[314901, 8941, 637, 15, 70, "Text",ExpressionUUID->"4742fde4-a65c-4b1d-9698-e5ba8ba8129a", CellID->115606986], Cell[CellGroupData[{ Cell[315563, 8960, 7639, 198, 70, "Input",ExpressionUUID->"eb44b319-7f57-42b4-af27-31a9f952c2b2", CellID->848244658], Cell[323205, 9160, 7613, 198, 70, "Output",ExpressionUUID->"188d71b7-2081-4f17-a055-7a3c7522e55d", CellID->638846443] }, Open ]], Cell[CellGroupData[{ Cell[330855, 9363, 7792, 202, 70, "Input",ExpressionUUID->"367f9b06-ee82-4634-967e-ffb67835d0a0", CellID->772957314], Cell[338650, 9567, 4405, 170, 70, "Output",ExpressionUUID->"4589756c-dd6f-44ea-bf83-4cdb161604d1", CellID->522669842] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[343104, 9743, 239, 8, 70, "Subsubsection",ExpressionUUID->"20d67bc9-911b-4305-a14f-93877fd79772", CellID->586480611], Cell[343346, 9753, 892, 17, 70, "Text",ExpressionUUID->"dfc8b1d5-0474-4f69-89bc-bfc3621efaf5", CellID->289261054], Cell[CellGroupData[{ Cell[344263, 9774, 8939, 231, 70, "Input",ExpressionUUID->"29ce4897-bd69-4653-8989-b65e46aaa16d", CellID->151960352], Cell[353205, 10007, 8868, 230, 70, "Output",ExpressionUUID->"a83015ac-d04e-4253-8bb3-64f066e0b562", CellID->394698931] }, Open ]], Cell[362088, 10240, 231, 6, 70, "Text",ExpressionUUID->"e8b71dc2-4ae2-485d-9d38-53d977c659c1", CellID->469905754], Cell[CellGroupData[{ Cell[362344, 10250, 8986, 232, 70, "Input",ExpressionUUID->"97ae598e-2db7-42dd-8802-4dea61696044", CellID->727514747], Cell[371333, 10484, 1643, 49, 70, "Output",ExpressionUUID->"954f04a5-0646-41ad-8634-845c5aeff71e", CellID->381957898] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[373025, 10539, 238, 8, 70, "Subsubsection",ExpressionUUID->"4cdf0685-01ca-48bd-9022-0f2b1f395d91", CellID->460388021], Cell[373266, 10549, 1422, 43, 70, "Text",ExpressionUUID->"ad7df805-e692-4c76-b1d5-a05769f0b7b4", CellID->606420927], Cell[CellGroupData[{ Cell[374713, 10596, 15620, 385, 70, "Input",ExpressionUUID->"011ac334-5d92-4417-9989-7b298ae7ddde", CellID->290267338], Cell[390336, 10983, 166, 4, 70, "Output",ExpressionUUID->"9d8c1598-1bab-441a-8196-47334ba74952", CellID->601567774], Cell[390505, 10989, 164, 4, 70, "Output",ExpressionUUID->"815c780e-5c71-4521-82b5-47c336385f27", CellID->831147064] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[390730, 11000, 166, 7, 70, "Subsection",ExpressionUUID->"552b89d3-398b-4fb8-b393-eac1519373d0", CellID->605265931], Cell[390899, 11009, 283, 7, 70, "Text",ExpressionUUID->"eeafb819-1a66-4bfb-a193-63bc50d06d0e", CellID->225822610], Cell[CellGroupData[{ Cell[391207, 11020, 7508, 194, 70, "Input",ExpressionUUID->"1d8f13df-34d5-4ee4-a5a2-d4c4c58c5353", CellID->732022005], Cell[398718, 11216, 816, 28, 70, "Output",ExpressionUUID->"9733986f-8dd1-4521-9fda-9156aee5b009", CellID->415782554] }, Open ]], Cell[CellGroupData[{ Cell[399571, 11249, 256, 9, 70, "Input",ExpressionUUID->"34892c83-1866-4047-91d0-905b4128ad6c", CellID->474459833], Cell[399830, 11260, 487, 16, 70, "Output",ExpressionUUID->"ecea8406-c721-4888-8783-0ef159cca59d", CellID->249017862] }, Open ]], Cell[CellGroupData[{ Cell[400354, 11281, 600, 21, 70, "Input",ExpressionUUID->"aed624ee-2cf7-4dba-bffa-496e9490ab2f", CellID->408457401], Cell[400957, 11304, 296, 6, 70, "Output",ExpressionUUID->"60fba079-a547-4a48-97e8-ff3b8ec8843a", CellID->171614148] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[401302, 11316, 178, 7, 70, "Subsection",ExpressionUUID->"a90db72c-9464-42ab-8684-c716dfa412cc", CellID->232113220], Cell[401483, 11325, 3222, 111, 70, "Text",ExpressionUUID->"91ccc667-89c8-4a4b-90d3-46fcf7218d25", CellID->105756201], Cell[CellGroupData[{ Cell[404730, 11440, 370, 13, 70, "Input",ExpressionUUID->"1351142b-868b-48df-8fab-f73a90db1693", CellID->261897664], Cell[405103, 11455, 724, 20, 70, "Output",ExpressionUUID->"5a89f122-467d-4f57-9e94-eafdee660cd4", CellID->637670353] }, Open ]], Cell[CellGroupData[{ Cell[405864, 11480, 274, 9, 70, "Input",ExpressionUUID->"63fa3d6d-b465-42da-aed4-2f5ac8a681ca", CellID->158451367], Cell[406141, 11491, 852, 24, 70, "Output",ExpressionUUID->"d2b37eff-190f-449f-9197-fe75180d28a1", CellID->755306074] }, Open ]], Cell[CellGroupData[{ Cell[407030, 11520, 126, 4, 70, "Input",ExpressionUUID->"bad5cfb9-7c3b-4655-be4e-92ad05464cbe", CellID->134625508], Cell[407159, 11526, 914, 29, 70, "Output",ExpressionUUID->"e9272466-eb9a-4973-888a-c9cede403228", CellID->798337715] }, Open ]], Cell[CellGroupData[{ Cell[408110, 11560, 394, 15, 70, "Input",ExpressionUUID->"a45abb7e-a289-4f0f-8289-1e8d83e0fb5c", CellID->876529584], Cell[408507, 11577, 1006, 34, 70, "Output",ExpressionUUID->"8c89b163-9c4c-4809-ada8-4ec865589240", CellID->937174081] }, Open ]], Cell[CellGroupData[{ Cell[409550, 11616, 126, 4, 70, "Input",ExpressionUUID->"6a70f916-b1b4-4234-8119-a0ba338fd0cc", CellID->5707152], Cell[409679, 11622, 762, 24, 70, "Output",ExpressionUUID->"3d7f46d5-2071-49a5-9b1f-d6856d0a5618", CellID->531146861] }, Open ]], Cell[CellGroupData[{ Cell[410478, 11651, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3e53539c-b583-4a23-8bfd-f1e85c854bd3", CellID->14107579], Cell[410624, 11657, 1975, 68, 70, "Text",ExpressionUUID->"2aa1c4e0-298a-4c39-8d2d-ed56a0079542", CellID->263254314], Cell[CellGroupData[{ Cell[412624, 11729, 1225, 39, 70, "Input",ExpressionUUID->"194494a9-3758-4d22-b33f-c7b4194159f7", CellID->18426443], Cell[413852, 11770, 1106, 30, 70, "Output",ExpressionUUID->"c9645951-8fc9-4dd3-b893-a3b3f8fad398", CellID->211158631] }, Open ]], Cell[CellGroupData[{ Cell[414995, 11805, 374, 12, 70, "Input",ExpressionUUID->"3046356a-7c31-472c-84d1-ca12ca2580f4", CellID->975745049], Cell[415372, 11819, 1327, 40, 70, "Output",ExpressionUUID->"08c151fe-659e-42c7-8392-4946a869c8ac", CellID->761087356] }, Open ]], Cell[CellGroupData[{ Cell[416736, 11864, 439, 14, 70, "Input",ExpressionUUID->"415e85c8-6833-4f45-8f8b-13a11dee70b6", CellID->509923405], Cell[417178, 11880, 895, 27, 70, "Output",ExpressionUUID->"bee0c237-fa23-4e9f-ab77-d24febae038a", CellID->334082269] }, Open ]], Cell[418088, 11910, 483, 14, 70, "Text",ExpressionUUID->"ae5dc6a3-f9f1-420d-b9d1-f3e20c8ae10c", CellID->680312581], Cell[CellGroupData[{ Cell[418596, 11928, 7394, 190, 70, "Input",ExpressionUUID->"c8c47811-03f9-4f0f-b25b-2e0cb76d0460", CellID->948231790], Cell[425993, 12120, 817, 31, 70, "Output",ExpressionUUID->"fb456d5e-0856-483d-a9a4-18fc195923cc", CellID->448648093] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[426859, 12157, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5b691887-f98d-4b6e-b6a4-914610ebb1eb", CellID->14107580], Cell[427005, 12163, 917, 25, 70, "Text",ExpressionUUID->"ececd7be-4297-4198-a0cb-2a76f361aefc", CellID->772230828], Cell[CellGroupData[{ Cell[427947, 12192, 7634, 194, 70, "Input",ExpressionUUID->"97953e31-443b-4048-8661-2951cf4b404b", CellID->160872155], Cell[435584, 12388, 477, 15, 70, "Output",ExpressionUUID->"26c9b436-b70e-4b46-80c3-d839220ed178", CellID->680343677] }, Open ]], Cell[CellGroupData[{ Cell[436098, 12408, 624, 18, 70, "Input",ExpressionUUID->"cc14f366-489e-407a-b2ee-d94e7ec2d630", CellID->591807682], Cell[436725, 12428, 4611, 151, 70, "Output",ExpressionUUID->"11dfe2f0-f007-42b7-8069-8fcf04342def", CellID->666969978] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[441397, 12586, 169, 7, 70, "Subsection",ExpressionUUID->"55837cbc-b090-476a-8f6f-a6434cbeefb2", CellID->158766396], Cell[441569, 12595, 167, 3, 70, "Text",ExpressionUUID->"3fe4588c-7fc3-40b6-8847-3ab99e10404a", CellID->500479290], Cell[CellGroupData[{ Cell[441761, 12602, 7842, 200, 70, "Input",ExpressionUUID->"f09a7f45-bb14-4c69-a6f7-728c23e9ce62", CellID->575278228], Cell[449606, 12804, 2391, 79, 70, "Output",ExpressionUUID->"a4a0ac34-b834-4e6b-86a8-809b77d78093", CellID->937771136] }, Open ]], Cell[CellGroupData[{ Cell[452034, 12888, 7841, 198, 70, "Input",ExpressionUUID->"f5b97a52-1035-410e-a790-316704a53b56", CellID->642332141], Cell[459878, 13088, 1281, 42, 70, "Output",ExpressionUUID->"f8437c25-5414-44ff-8c9d-4c489c8d7f1d", CellID->947385763] }, Open ]], Cell[CellGroupData[{ Cell[461196, 13135, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"394f9931-7be2-4948-ae47-d1485f9f35d1", CellID->14107581], Cell[461342, 13141, 567, 12, 70, "Text",ExpressionUUID->"575baf8f-21e9-4c5c-b79c-02c87aa2dc38", CellID->545833724], Cell[CellGroupData[{ Cell[461934, 13157, 781, 26, 70, "Input",ExpressionUUID->"60182ed2-9370-4b1a-b1d8-eac3cdc72cb7", CellID->219713496], Cell[462718, 13185, 353, 13, 70, "Output",ExpressionUUID->"25c3002c-9f2c-4e56-b3fc-3ecffe187046", CellID->917803182] }, Open ]], Cell[CellGroupData[{ Cell[463108, 13203, 7792, 202, 70, "Input",ExpressionUUID->"53fa073f-52b0-4469-8692-dd2df489457e", CellID->988617095], Cell[470903, 13407, 7766, 202, 70, "Output",ExpressionUUID->"c3714ea9-d71b-42eb-a8f0-38a11ee0cb3f", CellID->628573162] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[478718, 13615, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3219580b-e5ee-4d5f-b958-301b0262e7d4", CellID->14107582], Cell[478864, 13621, 281, 8, 70, "Text",ExpressionUUID->"a8dfb4ab-c573-428a-84d9-23494a69828c", CellID->431365593], Cell[CellGroupData[{ Cell[479170, 13633, 7395, 189, 70, "Input",ExpressionUUID->"bf9ccdc9-1589-466c-8000-ffcf3fafdeb8", CellID->510135160], Cell[486568, 13824, 7398, 190, 70, "Output",ExpressionUUID->"3cd175cc-a057-4ca7-b43e-6e34372e19ec", CellID->420409108] }, Open ]], Cell[CellGroupData[{ Cell[494003, 14019, 1235, 42, 70, "Input",ExpressionUUID->"da554b69-a05f-4dd4-9a58-3b1308328cdd", CellID->350843317], Cell[495241, 14063, 338, 12, 70, "Output",ExpressionUUID->"a875ea7d-0011-4bfc-928c-763628891811", CellID->719978046] }, Open ]], Cell[CellGroupData[{ Cell[495616, 14080, 7572, 194, 70, "Input",ExpressionUUID->"97559ad9-56b9-45f1-ab95-657fb741dbfc", CellID->656822909], Cell[503191, 14276, 7550, 194, 70, "Output",ExpressionUUID->"5db7def0-7b6b-4b1b-b65a-a99bdf48443b", CellID->320489324] }, Open ]], Cell[CellGroupData[{ Cell[510778, 14475, 1681, 50, 70, "Input",ExpressionUUID->"794983c8-25c3-4a06-9d6b-5929f6c7a5ab", CellID->769933401], Cell[512462, 14527, 534, 17, 70, "Output",ExpressionUUID->"41afe2db-010a-4544-9237-52ef632f08e1", CellID->328626486] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[513057, 14551, 167, 7, 70, "Subsection",ExpressionUUID->"9873d150-ef58-46e9-8e1b-a712654a11d6", CellID->461278909], Cell[513227, 14560, 1297, 39, 70, "Text",ExpressionUUID->"f78ae2d5-da54-4ebc-a2b2-468eecc38197", CellID->180958778], Cell[CellGroupData[{ Cell[514549, 14603, 7587, 195, 70, "Input",ExpressionUUID->"78f47863-d324-4040-af29-7abb7cb097a6", CellID->549901412], Cell[522139, 14800, 6219, 220, 70, "Output",ExpressionUUID->"f0eb8717-6e35-429f-b162-54dfd3a0c9ac", CellID->10494109] }, Open ]], Cell[CellGroupData[{ Cell[528395, 15025, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"fd1dfc84-ef98-42e3-8505-6acaa4a7f555", CellID->14107583], Cell[528541, 15031, 176, 3, 70, "Text",ExpressionUUID->"593ea97e-bbeb-4e45-ae42-b4c086534da4", CellID->791185557], Cell[CellGroupData[{ Cell[528742, 15038, 8271, 203, 70, "Input",ExpressionUUID->"c77bedb2-5847-4a13-99f7-fac676edf788", CellID->295521180], Cell[537016, 15243, 13332, 461, 70, "Output",ExpressionUUID->"26728419-6171-4139-9ce7-0a66cc9d8d3d", CellID->512993228] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)