(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 21905, 608] NotebookOptionsPosition[ 16588, 491] NotebookOutlinePosition[ 16915, 507] CellTagsIndexPosition[ 16872, 504] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Basic usage:", "Text", CellChangeTimes->{{3.751799498108254*^9, 3.751799500508151*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "1"}], ";", RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RepeatUntil\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RepeatUntil"], BoxID -> "RepeatUntil"], "[", RowBox[{ RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"Print", "[", "i", "]"}], ";", RowBox[{"i", "<", "5"}]}]}], "]"}], ";", "i"}]], "Input", CellChangeTimes->{{3.7517200493635674`*^9, 3.7517200805314074`*^9}, { 3.751734959317404*^9, 3.751734970106811*^9}, 3.751735018966023*^9}, CellLabel->"In[4]:=", CellID->1583856258], Cell[CellGroupData[{ Cell[BoxData["2"], "Print", CellChangeTimes->{{3.7517991280068407`*^9, 3.7517991985399847`*^9}, 3.752326898383081*^9}, CellLabel->"During evaluation of In[4]:=", CellID->460836216], Cell[BoxData["3"], "Print", CellChangeTimes->{{3.7517991280068407`*^9, 3.7517991985399847`*^9}, 3.752326898395376*^9}, CellLabel->"During evaluation of In[4]:=", CellID->1448251230], Cell[BoxData["4"], "Print", CellChangeTimes->{{3.7517991280068407`*^9, 3.7517991985399847`*^9}, 3.752326898407432*^9}, CellLabel->"During evaluation of In[4]:=", CellID->1178767512], Cell[BoxData["5"], "Print", CellChangeTimes->{{3.7517991280068407`*^9, 3.7517991985399847`*^9}, 3.75232689841474*^9}, CellLabel->"During evaluation of In[4]:=", CellID->1008930609] }, Open ]], Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.751720056120654*^9, 3.751720090975312*^9, 3.751721393223549*^9, { 3.751734953105679*^9, 3.751734974548649*^9}, {3.751735008136426*^9, 3.751735021885228*^9}, 3.7517350959612503`*^9, 3.751747742759535*^9, 3.7517480312777157`*^9, 3.751748066296857*^9, {3.751797505242442*^9, 3.751797515696889*^9}, 3.7517976103438873`*^9, 3.7517980324612722`*^9, 3.751798063290258*^9, 3.75179822147154*^9, {3.7517982569923153`*^9, 3.751798259194521*^9}, {3.751799135327921*^9, 3.751799198578302*^9}, 3.752326898421913*^9}, CellLabel->"Out[4]=", CellID->565868751] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->20767984], Cell["Number of iterations to get an approximation:", "Text", CellChangeTimes->{{3.7517994669082336`*^9, 3.7517994708533707`*^9}, { 3.7518000960980577`*^9, 3.751800099843545*^9}, {3.7518029891215773`*^9, 3.751803005768976*^9}, {3.751803853154045*^9, 3.751803858882004*^9}}, CellID->232306920], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "1.0"}], ";", RowBox[{"n", "=", "1"}], ";", RowBox[{"r", "=", "1.0"}], ";"}], "\n", RowBox[{ RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RepeatUntil\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RepeatUntil"], BoxID -> "RepeatUntil"], "[", RowBox[{ RowBox[{ RowBox[{"r", "=", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", FractionBox["x", "n"]}], ")"}], "n"]}], ";", RowBox[{"n", "++"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "-", "r"}], ">", SuperscriptBox["10", RowBox[{"-", "6"}]]}], ",", "True", ",", RowBox[{"Break", "[", "]"}]}], "]"}]}], "]"}], ";", RowBox[{"{", RowBox[{"r", ",", "n"}], "}"}]}]}], "Input", CellChangeTimes->{{3.751801892641758*^9, 3.751801895943272*^9}, { 3.751801951230051*^9, 3.7518020333199577`*^9}, {3.7518021346189528`*^9, 3.751802137800497*^9}, {3.751802172451178*^9, 3.7518022721855173`*^9}, { 3.751802315240395*^9, 3.751802327459959*^9}, {3.751802417855686*^9, 3.7518024736380453`*^9}, 3.751802553236546*^9, 3.751802601315921*^9, 3.7518029580989733`*^9, {3.751803156876729*^9, 3.7518032085768948`*^9}, { 3.7518032838059893`*^9, 3.7518033413607883`*^9}, {3.751803600412047*^9, 3.751803651891007*^9}}, CellLabel->"In[10]:=", CellID->750827712], Cell[BoxData[ RowBox[{"{", RowBox[{"2.7182808285894713`", ",", "1358404"}], "}"}]], "Output", CellChangeTimes->{{3.751803202326063*^9, 3.751803209237132*^9}, { 3.7518032912929487`*^9, 3.751803333230585*^9}, 3.751803526176826*^9, { 3.751803628946721*^9, 3.751803656486924*^9}, {3.752326921429267*^9, 3.7523269483973913`*^9}}, CellLabel->"Out[11]=", CellID->1426022118] }, Open ]], Cell["Searching sequences of primes:", "Text", CellChangeTimes->{{3.7517994669082336`*^9, 3.7517994708533707`*^9}, { 3.7518000960980577`*^9, 3.751800099843545*^9}}, CellID->463524566], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", RowBox[{"-", "1"}]}], ";"}], "\n", RowBox[{ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"RepeatUntil\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["RepeatUntil"], BoxID -> "RepeatUntil"], "[", RowBox[{ RowBox[{"k", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Print", "[", "#", "]"}], ";", RowBox[{"PrimeQ", "[", "#", "]"}]}], ")"}], "&"}], "[", RowBox[{ RowBox[{"4180566390", " ", "k"}], "+", "8297644387"}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.75179988774951*^9, 3.75180001247206*^9}, { 3.75180004886063*^9, 3.7518000835572844`*^9}}, CellLabel->"In[5]:=", CellID->1226448843], Cell[CellGroupData[{ Cell[BoxData["8297644387"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269072643957`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1974516790], Cell[BoxData["12478210777"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907274808*^9}, CellLabel->"During evaluation of In[5]:=", CellID->638892439], Cell[BoxData["16658777167"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907284443*^9}, CellLabel->"During evaluation of In[5]:=", CellID->446987273], Cell[BoxData["20839343557"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907289578*^9}, CellLabel->"During evaluation of In[5]:=", CellID->617300105], Cell[BoxData["25019909947"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.75232690729462*^9}, CellLabel->"During evaluation of In[5]:=", CellID->469366078], Cell[BoxData["29200476337"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269072999783`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->928237515], Cell[BoxData["33381042727"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907305274*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1566702797], Cell[BoxData["37561609117"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907310495*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1276913312], Cell[BoxData["41742175507"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269073156557`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1277950313], Cell[BoxData["45922741897"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907320834*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1526956944], Cell[BoxData["50103308287"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907329185*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1135776158], Cell[BoxData["54283874677"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907337594*^9}, CellLabel->"During evaluation of In[5]:=", CellID->7749323], Cell[BoxData["58464441067"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269073459063`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1393852841], Cell[BoxData["62645007457"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269073539352`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1733077211], Cell[BoxData["66825573847"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907361114*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1507981016], Cell[BoxData["71006140237"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269073683653`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->34934018], Cell[BoxData["75186706627"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907373715*^9}, CellLabel->"During evaluation of In[5]:=", CellID->873004895], Cell[BoxData["79367273017"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907378798*^9}, CellLabel->"During evaluation of In[5]:=", CellID->984993961], Cell[BoxData["83547839407"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.752326907383995*^9}, CellLabel->"During evaluation of In[5]:=", CellID->1989551451], Cell[BoxData["87728405797"], "Print", CellChangeTimes->{ 3.7518000130542603`*^9, {3.751800057960848*^9, 3.7518000839402523`*^9}, 3.7523269073891277`*^9}, CellLabel->"During evaluation of In[5]:=", CellID->2070853167] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->461307998], Cell["Equivalent structure using While:", "Text", CellChangeTimes->{{3.7517994669082336`*^9, 3.7517994708533707`*^9}, { 3.751799586906804*^9, 3.7517995990224113`*^9}}, CellID->1942798380], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "1"}], ";", RowBox[{"While", "[", RowBox[{ RowBox[{"i", "++"}], ";", RowBox[{"Print", "[", "i", "]"}], ";", RowBox[{"i", "<", "5"}]}], "]"}], ";", "i"}]], "Input", CellChangeTimes->{{3.7517200493635674`*^9, 3.7517200805314074`*^9}, { 3.751734959317404*^9, 3.751734970106811*^9}, 3.751735018966023*^9, { 3.751799563172282*^9, 3.751799571886848*^9}}, CellLabel->"In[7]:=", CellID->237184234], Cell[CellGroupData[{ Cell[BoxData["2"], "Print", CellChangeTimes->{3.7517995726008177`*^9, 3.752326910969303*^9}, CellLabel->"During evaluation of In[7]:=", CellID->1008544113], Cell[BoxData["3"], "Print", CellChangeTimes->{3.7517995726008177`*^9, 3.752326910980274*^9}, CellLabel->"During evaluation of In[7]:=", CellID->512481420], Cell[BoxData["4"], "Print", CellChangeTimes->{3.7517995726008177`*^9, 3.752326910991106*^9}, CellLabel->"During evaluation of In[7]:=", CellID->1865801470], Cell[BoxData["5"], "Print", CellChangeTimes->{3.7517995726008177`*^9, 3.752326910998723*^9}, CellLabel->"During evaluation of In[7]:=", CellID->969092796] }, Open ]], Cell[BoxData["5"], "Output", CellChangeTimes->{{3.751799564896226*^9, 3.7517995726336517`*^9}, 3.752326911005744*^9}, CellLabel->"Out[7]=", CellID->1026643524] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (December 12, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"dec4d9d0-7990-432e-aba8-ae4be064d172", CellID->285421464], Cell[639, 25, 114, 2, 70, "Text",ExpressionUUID->"a3cbbeff-834b-434d-8587-dae4b7866129", CellID->221583938], Cell[CellGroupData[{ Cell[778, 31, 2048, 50, 70, "Input",ExpressionUUID->"c334b04d-2f8a-44e0-b5a1-4b3405a84930", CellID->1583856258], Cell[CellGroupData[{ Cell[2851, 85, 187, 4, 70, "Print",ExpressionUUID->"e9643b93-eb12-471d-8a71-4794aac897f9", CellID->460836216], Cell[3041, 91, 188, 4, 70, "Print",ExpressionUUID->"fcb81556-1499-4212-8a26-6dee494d5cd2", CellID->1448251230], Cell[3232, 97, 188, 4, 70, "Print",ExpressionUUID->"f9af4122-18d9-4e80-8313-5fa7a2c97a80", CellID->1178767512], Cell[3423, 103, 187, 4, 70, "Print",ExpressionUUID->"0a0ab994-0e22-4b93-ae39-e9ee4677f6bf", CellID->1008930609] }, Open ]], Cell[3625, 110, 625, 11, 70, "Output",ExpressionUUID->"3718d95c-0c5e-421c-ab98-921dbf9ff173", CellID->565868751] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4299, 127, 53, 1, 70, "Subsection",ExpressionUUID->"6c0927c6-8617-4b7b-8545-561506fecf9b", CellID->20767984], Cell[4355, 130, 299, 4, 70, "Text",ExpressionUUID->"d0fb82c3-2812-4b34-b398-a7c37b08f806", CellID->232306920], Cell[CellGroupData[{ Cell[4679, 138, 2912, 72, 70, "Input",ExpressionUUID->"a22c3009-a94a-497d-8e20-a6ae29c7ccf1", CellID->750827712], Cell[7594, 212, 384, 8, 70, "Output",ExpressionUUID->"14556fb4-ec25-4745-938f-a54f3b3fac08", CellID->1426022118] }, Open ]], Cell[7993, 223, 187, 3, 70, "Text",ExpressionUUID->"1ed5f102-1bac-4a6e-a003-c0658b5641f0", CellID->463524566], Cell[CellGroupData[{ Cell[8205, 230, 2159, 57, 70, "Input",ExpressionUUID->"bc6b7a86-089f-4892-ada5-002f9d2151f1", CellID->1226448843], Cell[CellGroupData[{ Cell[10389, 291, 224, 5, 70, "Print",ExpressionUUID->"aefe8dae-0979-4558-adc4-cfafca37023f", CellID->1974516790], Cell[10616, 298, 222, 5, 70, "Print",ExpressionUUID->"28f45bb4-e045-48ca-a05d-4a14786abd72", CellID->638892439], Cell[10841, 305, 222, 5, 70, "Print",ExpressionUUID->"5feaf7a0-299a-4292-8639-b3029b6bffb2", CellID->446987273], Cell[11066, 312, 222, 5, 70, "Print",ExpressionUUID->"e424d0eb-6d01-4ab1-bed2-a2d165d924a3", CellID->617300105], Cell[11291, 319, 221, 5, 70, "Print",ExpressionUUID->"cf8155ea-480d-4b0c-b1b4-d5b88e6ad8cb", CellID->469366078], Cell[11515, 326, 224, 5, 70, "Print",ExpressionUUID->"7ed27929-914b-4afe-af91-81cfc2670621", CellID->928237515], Cell[11742, 333, 223, 5, 70, "Print",ExpressionUUID->"b1187ca7-af66-49d4-8658-e1adb8be700d", CellID->1566702797], Cell[11968, 340, 223, 5, 70, "Print",ExpressionUUID->"477566bb-54d7-40bd-ad6e-7cee06567f2d", CellID->1276913312], Cell[12194, 347, 225, 5, 70, "Print",ExpressionUUID->"aa0d125f-ab90-4f4c-9f7c-e301ec726143", CellID->1277950313], Cell[12422, 354, 223, 5, 70, "Print",ExpressionUUID->"48e69ff5-ebb1-4b59-a3f7-679abeb2eac7", CellID->1526956944], Cell[12648, 361, 223, 5, 70, "Print",ExpressionUUID->"8edf5df3-0670-4bbb-b15c-8df4f4676ed5", CellID->1135776158], Cell[12874, 368, 220, 5, 70, "Print",ExpressionUUID->"97d29c54-1332-4f51-a051-d9e533e61b7a", CellID->7749323], Cell[13097, 375, 225, 5, 70, "Print",ExpressionUUID->"f675d0d8-6fae-40be-b789-96876ada434e", CellID->1393852841], Cell[13325, 382, 225, 5, 70, "Print",ExpressionUUID->"fd74fd4b-bf93-4251-a4a2-bf487393d6da", CellID->1733077211], Cell[13553, 389, 223, 5, 70, "Print",ExpressionUUID->"ef1b60e9-ec39-42ee-a0a8-fadc17018dad", CellID->1507981016], Cell[13779, 396, 223, 5, 70, "Print",ExpressionUUID->"49dbc634-f635-4eab-adbf-e2138d3609d7", CellID->34934018], Cell[14005, 403, 222, 5, 70, "Print",ExpressionUUID->"bb219270-3d54-419e-bddc-f47cd81cfdcd", CellID->873004895], Cell[14230, 410, 222, 5, 70, "Print",ExpressionUUID->"f5c25262-f2ac-4e26-98be-fdde9fec6ba7", CellID->984993961], Cell[14455, 417, 223, 5, 70, "Print",ExpressionUUID->"08397f5e-9ab0-4600-ab91-2e3e2589835f", CellID->1989551451], Cell[14681, 424, 225, 5, 70, "Print",ExpressionUUID->"d6138c5e-964c-4d66-8717-e7d990a15cfb", CellID->2070853167] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14967, 436, 66, 1, 70, "Subsection",ExpressionUUID->"684417d9-0d63-4692-8fae-597a7ba906ce", CellID->461307998], Cell[15036, 439, 191, 3, 70, "Text",ExpressionUUID->"f0d657e0-5311-41e3-9946-22c7f20f4abc", CellID->1942798380], Cell[CellGroupData[{ Cell[15252, 446, 463, 12, 70, "Input",ExpressionUUID->"82b0b9fd-5408-4d4f-b0a9-119f511da7ae", CellID->237184234], Cell[CellGroupData[{ Cell[15740, 462, 158, 3, 70, "Print",ExpressionUUID->"10b4c4a1-be05-4e20-a148-be9c5020421f", CellID->1008544113], Cell[15901, 467, 157, 3, 70, "Print",ExpressionUUID->"8375338f-89fb-4ee4-82ba-3eda4784da53", CellID->512481420], Cell[16061, 472, 158, 3, 70, "Print",ExpressionUUID->"318ed7bc-c2d6-479c-a2f8-1ca1df0079fc", CellID->1865801470], Cell[16222, 477, 157, 3, 70, "Print",ExpressionUUID->"6e32b6fb-c496-40df-9805-4112afea3f9b", CellID->969092796] }, Open ]], Cell[16394, 483, 166, 4, 70, "Output",ExpressionUUID->"70abbb59-7463-418f-91e6-66139b265318", CellID->1026643524] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)