(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 51978, 1538] NotebookOptionsPosition[ 48504, 1447] NotebookOutlinePosition[ 50269, 1499] CellTagsIndexPosition[ 50226, 1496] WindowTitle->FormatFactorization | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Factor various numbers:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7596083604248066`*^9, 3.7596083736006413`*^9}}, CellID->822326770], 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["FormatFactorization", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["FormatFactorization", "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/1ab3561d-1eb0-4299-9e5d-4c3f777f7f4c/"}, "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], "FormatFactorization"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["FormatFactorization"], BoxID -> "FormatFactorization", Selectable->False], "[", RowBox[{"9", "!"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7596073318276305`*^9, 3.7596073449641333`*^9}, { 3.7596076298485184`*^9, 3.7596076347217*^9}}, CellLabel->"In[7]:=", CellID->438010852], Cell[BoxData[ TagBox[ RowBox[{ SuperscriptBox["2", "7"], " ", SuperscriptBox["3", "4"], " ", "5", " ", "7"}], HoldForm]], "Output", TaggingRules->{}, CellChangeTimes->{3.759607345442828*^9, 3.759607638969272*^9, 3.7596076851528783`*^9}, CellLabel->"Out[7]=", CellID->340201967] }, 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["FormatFactorization", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["FormatFactorization", "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/1ab3561d-1eb0-4299-9e5d-4c3f777f7f4c/"}, "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], "FormatFactorization"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["FormatFactorization"], BoxID -> "FormatFactorization", Selectable->False], "[", "3463199999", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7596079066971073`*^9, 3.759607925185647*^9}, { 3.759607963514941*^9, 3.759607976353208*^9}, 3.7596080393572874`*^9}, CellLabel->"In[18]:=", CellID->198493120], Cell[BoxData[ TagBox[ RowBox[{ SuperscriptBox["7", "5"], " ", SuperscriptBox["17", "2"], " ", "23", " ", "31"}], HoldForm]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7596079074712863`*^9, 3.759607925751172*^9}, { 3.7596079682123365`*^9, 3.7596079766164255`*^9}, 3.7596080400771255`*^9}, CellLabel->"Out[18]=", CellID->667380547] }, 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["FormatFactorization", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["FormatFactorization", "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/1ab3561d-1eb0-4299-9e5d-4c3f777f7f4c/"}, "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], "FormatFactorization"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["FormatFactorization"], BoxID -> "FormatFactorization", Selectable->False], "[", RowBox[{"3463199999", "+", "1"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7596080498414598`*^9, 3.7596081023409834`*^9}, { 3.7596081421953187`*^9, 3.759608171144055*^9}, 3.7596082069017115`*^9}, CellLabel->"In[26]:=", CellID->738419591], Cell[BoxData[ TagBox[ RowBox[{ SuperscriptBox["2", "8"], " ", SuperscriptBox["3", "2"], " ", SuperscriptBox["5", "5"], " ", "13", " ", "37"}], HoldForm]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7596080505445027`*^9, 3.7596081149879303`*^9}, 3.759608173167123*^9, 3.7596082078582745`*^9}, CellLabel->"Out[26]=", CellID->910498438] }, 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["FormatFactorization", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["FormatFactorization", "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/1ab3561d-1eb0-4299-9e5d-4c3f777f7f4c/"}, "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], "FormatFactorization"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["FormatFactorization"], BoxID -> "FormatFactorization", Selectable->False], "[", RowBox[{"3463199999", "+", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7596083966087847`*^9}, CellLabel->"In[31]:=", CellID->240307522], Cell[BoxData[ TagBox["3463200001", HoldForm]], "Output", TaggingRules->{}, CellChangeTimes->{3.759608397191399*^9}, CellLabel->"Out[31]=", CellID->637644616] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Make a factorization table:", "Text", TaggingRules->{}, CellChangeTimes->{{3.759608316560351*^9, 3.7596083225121593`*^9}}, CellID->167314532], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", 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["FormatFactorization", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["FormatFactorization", "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/1ab3561d-1eb0-4299-9e5d-4c3f777f7f4c/"}, "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], "FormatFactorization"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["FormatFactorization"], BoxID -> "FormatFactorization", Selectable->False], "/@", RowBox[{"Range", "[", "120", "]"}]}], ",", "12"}], "]"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7596082290064106`*^9, 3.759608290095625*^9}}, CellLabel->"In[30]:=", CellID->715786466], Cell[BoxData[ TagBox[GridBox[{ { TagBox["1", HoldForm], TagBox["2", HoldForm], TagBox["3", HoldForm], TagBox[ SuperscriptBox["2", "2"], HoldForm], TagBox["5", HoldForm], TagBox[ RowBox[{"2", " ", "3"}], HoldForm], TagBox["7", HoldForm], TagBox[ SuperscriptBox["2", "3"], HoldForm], TagBox[ SuperscriptBox["3", "2"], HoldForm], TagBox[ RowBox[{"2", " ", "5"}], HoldForm], TagBox["11", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "3"}], HoldForm]}, { TagBox["13", HoldForm], TagBox[ RowBox[{"2", " ", "7"}], HoldForm], TagBox[ RowBox[{"3", " ", "5"}], HoldForm], TagBox[ SuperscriptBox["2", "4"], HoldForm], TagBox["17", HoldForm], TagBox[ RowBox[{"2", " ", SuperscriptBox["3", "2"]}], HoldForm], TagBox["19", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "5"}], HoldForm], TagBox[ RowBox[{"3", " ", "7"}], HoldForm], TagBox[ RowBox[{"2", " ", "11"}], HoldForm], TagBox["23", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", "3"}], HoldForm]}, { TagBox[ SuperscriptBox["5", "2"], HoldForm], TagBox[ RowBox[{"2", " ", "13"}], HoldForm], TagBox[ SuperscriptBox["3", "3"], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "7"}], HoldForm], TagBox["29", HoldForm], TagBox[ RowBox[{"2", " ", "3", " ", "5"}], HoldForm], TagBox["31", HoldForm], TagBox[ SuperscriptBox["2", "5"], HoldForm], TagBox[ RowBox[{"3", " ", "11"}], HoldForm], TagBox[ RowBox[{"2", " ", "17"}], HoldForm], TagBox[ RowBox[{"5", " ", "7"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", SuperscriptBox["3", "2"]}], HoldForm]}, { TagBox["37", HoldForm], TagBox[ RowBox[{"2", " ", "19"}], HoldForm], TagBox[ RowBox[{"3", " ", "13"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", "5"}], HoldForm], TagBox["41", HoldForm], TagBox[ RowBox[{"2", " ", "3", " ", "7"}], HoldForm], TagBox["43", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "11"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["3", "2"], " ", "5"}], HoldForm], TagBox[ RowBox[{"2", " ", "23"}], HoldForm], TagBox["47", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "4"], " ", "3"}], HoldForm]}, { TagBox[ SuperscriptBox["7", "2"], HoldForm], TagBox[ RowBox[{"2", " ", SuperscriptBox["5", "2"]}], HoldForm], TagBox[ RowBox[{"3", " ", "17"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "13"}], HoldForm], TagBox["53", HoldForm], TagBox[ RowBox[{"2", " ", SuperscriptBox["3", "3"]}], HoldForm], TagBox[ RowBox[{"5", " ", "11"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", "7"}], HoldForm], TagBox[ RowBox[{"3", " ", "19"}], HoldForm], TagBox[ RowBox[{"2", " ", "29"}], HoldForm], TagBox["59", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "3", " ", "5"}], HoldForm]}, { TagBox["61", HoldForm], TagBox[ RowBox[{"2", " ", "31"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["3", "2"], " ", "7"}], HoldForm], TagBox[ SuperscriptBox["2", "6"], HoldForm], TagBox[ RowBox[{"5", " ", "13"}], HoldForm], TagBox[ RowBox[{"2", " ", "3", " ", "11"}], HoldForm], TagBox["67", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "17"}], HoldForm], TagBox[ RowBox[{"3", " ", "23"}], HoldForm], TagBox[ RowBox[{"2", " ", "5", " ", "7"}], HoldForm], TagBox["71", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", SuperscriptBox["3", "2"]}], HoldForm]}, { TagBox["73", HoldForm], TagBox[ RowBox[{"2", " ", "37"}], HoldForm], TagBox[ RowBox[{"3", " ", SuperscriptBox["5", "2"]}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "19"}], HoldForm], TagBox[ RowBox[{"7", " ", "11"}], HoldForm], TagBox[ RowBox[{"2", " ", "3", " ", "13"}], HoldForm], TagBox["79", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "4"], " ", "5"}], HoldForm], TagBox[ SuperscriptBox["3", "4"], HoldForm], TagBox[ RowBox[{"2", " ", "41"}], HoldForm], TagBox["83", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "3", " ", "7"}], HoldForm]}, { TagBox[ RowBox[{"5", " ", "17"}], HoldForm], TagBox[ RowBox[{"2", " ", "43"}], HoldForm], TagBox[ RowBox[{"3", " ", "29"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", "11"}], HoldForm], TagBox["89", HoldForm], TagBox[ RowBox[{"2", " ", SuperscriptBox["3", "2"], " ", "5"}], HoldForm], TagBox[ RowBox[{"7", " ", "13"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "23"}], HoldForm], TagBox[ RowBox[{"3", " ", "31"}], HoldForm], TagBox[ RowBox[{"2", " ", "47"}], HoldForm], TagBox[ RowBox[{"5", " ", "19"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "5"], " ", "3"}], HoldForm]}, { TagBox["97", HoldForm], TagBox[ RowBox[{"2", " ", SuperscriptBox["7", "2"]}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["3", "2"], " ", "11"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", SuperscriptBox["5", "2"]}], HoldForm], TagBox["101", HoldForm], TagBox[ RowBox[{"2", " ", "3", " ", "17"}], HoldForm], TagBox["103", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", "13"}], HoldForm], TagBox[ RowBox[{"3", " ", "5", " ", "7"}], HoldForm], TagBox[ RowBox[{"2", " ", "53"}], HoldForm], TagBox["107", HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", SuperscriptBox["3", "3"]}], HoldForm]}, { TagBox["109", HoldForm], TagBox[ RowBox[{"2", " ", "5", " ", "11"}], HoldForm], TagBox[ RowBox[{"3", " ", "37"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "4"], " ", "7"}], HoldForm], TagBox["113", HoldForm], TagBox[ RowBox[{"2", " ", "3", " ", "19"}], HoldForm], TagBox[ RowBox[{"5", " ", "23"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "2"], " ", "29"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["3", "2"], " ", "13"}], HoldForm], TagBox[ RowBox[{"2", " ", "59"}], HoldForm], TagBox[ RowBox[{"7", " ", "17"}], HoldForm], TagBox[ RowBox[{ SuperscriptBox["2", "3"], " ", "3", " ", "5"}], HoldForm]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.759608257703107*^9, 3.759608290298705*^9}}, CellLabel->"Out[30]=", CellID->30580807] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"FormatFactorization | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 168, 7, 70, "Subsection",ExpressionUUID->"c11de41b-b5d9-4b19-a118-10077dc1afdb", CellID->462042388], Cell[803, 32, 148, 3, 70, "Text",ExpressionUUID->"cc356896-d42b-4c7b-b346-1ed65dee6223", CellID->822326770], Cell[CellGroupData[{ Cell[976, 39, 7312, 184, 70, "Input",ExpressionUUID->"9e6db744-4098-40cc-8798-040ff8af4af1", CellID->438010852], Cell[8291, 225, 296, 10, 70, "Output",ExpressionUUID->"fea945ac-c4d1-4f3e-8c16-4a0d96ac15d0", CellID->340201967] }, Open ]], Cell[CellGroupData[{ Cell[8624, 240, 7327, 183, 70, "Input",ExpressionUUID->"6ae6d27e-952e-4f1c-ba06-234ce6899a16", CellID->198493120], Cell[15954, 425, 355, 10, 70, "Output",ExpressionUUID->"938e4baa-fce1-4b42-8277-de03f51a0471", CellID->667380547] }, Open ]], Cell[CellGroupData[{ Cell[16346, 440, 7354, 184, 70, "Input",ExpressionUUID->"0bbe7258-4fa8-4694-9891-05940d076ecc", CellID->738419591], Cell[23703, 626, 363, 11, 70, "Output",ExpressionUUID->"ab956563-3c3d-45f8-8c2a-3e0c6c9d0e2e", CellID->910498438] }, Open ]], Cell[CellGroupData[{ Cell[24103, 642, 7252, 183, 70, "Input",ExpressionUUID->"cc081928-3ac2-4c15-a305-76d6d92e0cdf", CellID->240307522], Cell[31358, 827, 164, 6, 70, "Output",ExpressionUUID->"7c30c60f-8232-4502-9b41-377ecab12f52", CellID->637644616] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31571, 839, 159, 7, 70, "Subsection",ExpressionUUID->"fc8c7302-bd91-48da-a253-73b508289d01", CellID->964056545], Cell[31733, 848, 150, 3, 70, "Text",ExpressionUUID->"535deccc-16ed-42fd-ad83-2d366d13d7af", CellID->167314532], Cell[CellGroupData[{ Cell[31908, 855, 8210, 198, 70, "Input",ExpressionUUID->"61a50cb2-63d9-4255-b2e5-e527ecf7112a", CellID->715786466], Cell[40121, 1055, 8355, 388, 70, "Output",ExpressionUUID->"c55278d2-3c01-4f15-a841-8958b7e95161", CellID->30580807] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)