(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 19959, 753] NotebookOptionsPosition[ 15270, 583] NotebookOutlinePosition[ 15891, 607] CellTagsIndexPosition[ 15804, 602] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Regras, lacunas e fun\[CCedilla]\[OTilde]es", "Title", CellChangeTimes->{{3.668267192189511*^9, 3.6682671996256123`*^9}}], Cell[CellGroupData[{ Cell["Regras e como aplic\[AAcute]-las", "Section", CellChangeTimes->{{3.668267212564773*^9, 3.6682672209579387`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"raiz", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"7", "x"}], "+", "10"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.668267267484804*^9, 3.6682673022009773`*^9}, { 3.668267335761394*^9, 3.668267337136464*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.66826730616993*^9, 3.6682673380739737`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"raiz", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.668267344045724*^9, 3.6682673467958755`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "2"}], "}"}]], "Output", CellChangeTimes->{3.668267347561528*^9}] }, Open ]], Cell["A aplica\[CCedilla]\[ATilde]o da regra \[EAcute] efetuada pelo operador \ /.", "Text", CellChangeTimes->{{3.6682673649494715`*^9, 3.668267385977591*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "x"}], "/.", RowBox[{"raiz", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6682673941186237`*^9, 3.668267430017144*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{{3.668267403696227*^9, 3.668267431267168*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", " ", "x"}], "]"}], "/.", RowBox[{"raiz", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6682674369393344`*^9, 3.6682674493220825`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.668267450118964*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"x", "^", "2"}]}], "]"}]}], "\[Equal]", "0.3"}], ",", RowBox[{"{", RowBox[{"x", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.668267493021902*^9, 3.668267540698879*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.3446084764412851`"}], "}"}]], "Output", CellChangeTimes->{{3.6682675171444654`*^9, 3.668267541136388*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"32", ",", RowBox[{"Cos", "[", "x", "]"}]}], "]"}], "/.", RowBox[{"x", "\[Rule]", "2."}]}]], "Input", CellChangeTimes->{{3.6682675721918693`*^9, 3.6682676146110764`*^9}}], Cell[BoxData["0.02718225397484275`"], "Output", CellChangeTimes->{{3.668267598598512*^9, 3.6682676154860816`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LegendreP", "[", RowBox[{"32", ",", RowBox[{"Cos", "[", "2.", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6682675884104905`*^9, 3.6682675894418325`*^9}, { 3.6682676247280087`*^9, 3.668267627415634*^9}}], Cell[BoxData["0.027182253975388454`"], "Output", CellChangeTimes->{3.6682676280093794`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"32", ",", RowBox[{"Cos", "[", "x", "]"}]}], "]"}], "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"x", "^", "2"}]}], "]"}]}], "\[Equal]", "0.3"}], ",", RowBox[{"{", RowBox[{"x", ",", "0"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6682676782166524`*^9, 3.668267684723708*^9}}], Cell[BoxData[ RowBox[{"-", "0.13427472114562988`"}]], "Output", CellChangeTimes->{{3.668267679513582*^9, 3.668267685333079*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"x", "^", "2"}]}], "]"}]}], "\[Equal]", "0.3"}], ",", RowBox[{"{", RowBox[{"x", ",", "0"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.3446084764412851`"}], "}"}]], "Output", CellChangeTimes->{3.6682677500208793`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"32", ",", RowBox[{"Cos", "[", "x", "]"}]}], "]"}], "/.", "%"}]], "Input", CellChangeTimes->{3.6682677645775595`*^9}], Cell[BoxData[ RowBox[{"-", "0.13427472114562988`"}]], "Output", CellChangeTimes->{3.6682677653588395`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rule", "[", RowBox[{"x", ",", RowBox[{"7", "/", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.668267794804448*^9, 3.668267822677224*^9}}], Cell[BoxData[ RowBox[{"x", "\[Rule]", FractionBox["7", "2"]}]], "Output", CellChangeTimes->{3.6682678233647127`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", " ", "x"}], "]"}], "/.", RowBox[{"Rule", "[", RowBox[{"x", ",", RowBox[{"7", "/", "2"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.668267864401752*^9, 3.668267876324274*^9}}], Cell[BoxData[ RowBox[{"-", "1"}]], "Output", CellChangeTimes->{3.668267877058652*^9}] }, Open ]], Cell[BoxData[ RowBox[{"u", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"x", "^", "2"}]}], "]"}]}], "\[Equal]", "0.3"}], ",", RowBox[{"{", RowBox[{"x", ",", "0"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6682679467365723`*^9, 3.6682679471897182`*^9}}], Cell[BoxData[ RowBox[{"{", "xx", "}"}]], "Input", CellChangeTimes->{{3.6682680915918765`*^9, 3.668268093107542*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "b", "]"}]], "Input", CellChangeTimes->{{3.6682680446886034`*^9, 3.6682680493607473`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"z", "/.", "u"}]}]], "Input", CellChangeTimes->{{3.668267957971484*^9, 3.668268012194594*^9}, { 3.6682680540172367`*^9, 3.668268054267248*^9}}], Cell[BoxData["z"], "Output", CellChangeTimes->{{3.668267964530381*^9, 3.668268013804017*^9}, 3.6682680551578846`*^9}] }, Open ]], Cell[BoxData["x"], "Input", CellChangeTimes->{3.668268017413575*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Lacunas (blanks)", "Section", CellChangeTimes->{{3.6682678949814587`*^9, 3.668267901676292*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "2"}]}]], "Input", CellChangeTimes->{{3.6682679209707365`*^9, 3.668267922392728*^9}, { 3.6682680978109465`*^9, 3.668268104239974*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.668268128004079*^9, 3.668268129597942*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{{3.6682681299572983`*^9, 3.668268159204215*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "d", "]"}]], "Input", CellChangeTimes->{{3.668268160935158*^9, 3.66826816957626*^9}}], Cell[BoxData[ SuperscriptBox["d", "2"]], "Output", CellChangeTimes->{{3.668268162185218*^9, 3.6682681703262625`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.6682681755296535`*^9, 3.6682681801049767`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "9"}], "}"}]], "Output", CellChangeTimes->{3.6682681807768493`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.6682681879803505`*^9, 3.6682681975433493`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"121", ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{"441", ",", "484"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.668268198512133*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.668268204425203*^9, 3.6682682104255433`*^9}}], Cell[BoxData[ SuperscriptBox["\<\"texto\"\>", "2"]], "Output", CellChangeTimes->{3.6682682115818167`*^9}] }, Open ]], Cell[":= \[EAcute] o operador de atribui\[CCedilla]\[ATilde]o retardada", \ "Text", CellChangeTimes->{{3.668268254047186*^9, 3.6682682652627687`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "3"}]], "Input", CellChangeTimes->{{3.668268277763383*^9, 3.6682682814426813`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.668268278654047*^9, 3.6682682820051746`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], "=", RowBox[{"x", "^", "2"}]}]], "Input", CellChangeTimes->{{3.6682682856928644`*^9, 3.668268295005877*^9}}], Cell[BoxData["9"], "Output", CellChangeTimes->{3.6682682957871275`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"a", "+", RowBox[{"Sin", "[", "b", "]"}]}]}]], "Input", CellChangeTimes->{{3.668268413597743*^9, 3.668268425269129*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"2", ",", RowBox[{"Pi", "/", "6"}]}], "]"}]], "Input", CellChangeTimes->{{3.6682684317225723`*^9, 3.6682684384885807`*^9}}], Cell[BoxData[ FractionBox["5", "2"]], "Output", CellChangeTimes->{3.6682684395979753`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.6682684408917875`*^9, 3.6682684418293357`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.66826844246999*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_Integer", "]"}], ":=", RowBox[{"Prime", "[", "x", "]"}]}]], "Input", CellChangeTimes->{{3.668268478593625*^9, 3.668268498126647*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "2.5", "]"}]], "Input", CellChangeTimes->{{3.6682685019043546`*^9, 3.6682685043263845`*^9}}], Cell[BoxData["6.25`"], "Output", CellChangeTimes->{3.6682685048576264`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.668268506467081*^9, 3.6682685074358935`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.66826850807654*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Input", CellChangeTimes->{{3.668268510092269*^9, 3.6682685183583536`*^9}}], Cell[BoxData["11"], "Output", CellChangeTimes->{3.6682685187333364`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Prime", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.668268537413221*^9, 3.6682685392883167`*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.6682685398821*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "f"}]], "Input", CellChangeTimes->{{3.6682685546004257`*^9, 3.668268556772444*^9}}], Cell[CellGroupData[{ Cell["Global`f", "Print", "PrintUsage", CellChangeTimes->{3.668268557475565*^9}, CellTags->"Info503668257757-2427505"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"f", "[", "x_Integer", "]"}], ":=", RowBox[{"Prime", "[", "x", "]"}]}]}, {" "}, { RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", SuperscriptBox["x", "2"]}]}, {" "}, { RowBox[{ RowBox[{"f", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"a", "+", RowBox[{"Sin", "[", "b", "]"}]}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`f], Editable->False]], "Print", CellChangeTimes->{3.6682685575068164`*^9}, CellTags->"Info503668257757-2427505"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"produtoEscalar", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"a", ".", "b"}]}]], "Input", CellChangeTimes->{{3.6682686078591404`*^9, 3.6682686209804983`*^9}, { 3.668268771909284*^9, 3.6682688087579184`*^9}, {3.668268886821497*^9, 3.6682688874309025`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"produtoEscalar", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.668268641113309*^9, 3.668268654457779*^9}}], Cell[BoxData["50"], "Output", CellChangeTimes->{ 3.6682686551765304`*^9, 3.668268776847001*^9, 3.668268812742462*^9, { 3.6682688786997147`*^9, 3.668268890743538*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"h", "[", RowBox[{"fun_", ",", "x_"}], "]"}], ":=", RowBox[{"fun", "[", "x", "]"}]}]], "Input", CellChangeTimes->{{3.668268672751813*^9, 3.668268684243853*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "[", RowBox[{"Sin", ",", RowBox[{"Pi", "/", "6"}]}], "]"}]], "Input", CellChangeTimes->{{3.6682686925254946`*^9, 3.6682686988071027`*^9}}], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.668268699557103*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "[", RowBox[{"Cos", ",", RowBox[{"Pi", "/", "6"}]}], "]"}]], "Input", CellChangeTimes->{{3.66826871266311*^9, 3.668268714350659*^9}}], Cell[BoxData[ FractionBox[ SqrtBox["3"], "2"]], "Output", CellChangeTimes->{3.668268715194452*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "[", RowBox[{"Tan", ",", RowBox[{"Pi", "/", "6"}]}], "]"}]], "Input", CellChangeTimes->{{3.668268719866603*^9, 3.6682687214602337`*^9}}], Cell[BoxData[ FractionBox["1", SqrtBox["3"]]], "Output", CellChangeTimes->{3.668268722272771*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1024, 685}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>1.8 Inherited, FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info503668257757-2427505"->{ Cell[12030, 464, 120, 2, 72, "Print", CellTags->"Info503668257757-2427505"], Cell[12153, 468, 1148, 35, 149, "Print", CellTags->"Info503668257757-2427505"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info503668257757-2427505", 15613, 594} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 128, 1, 256, "Title"], Cell[CellGroupData[{ Cell[733, 27, 119, 1, 112, "Section"], Cell[CellGroupData[{ Cell[877, 32, 347, 10, 54, "Input"], Cell[1227, 44, 248, 7, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1512, 56, 148, 3, 54, "Input"], Cell[1663, 61, 121, 3, 52, "Output"] }, Open ]], Cell[1799, 67, 160, 2, 53, "Text"], Cell[CellGroupData[{ Cell[1984, 73, 191, 5, 54, "Input"], Cell[2178, 80, 94, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2309, 86, 230, 6, 54, "Input"], Cell[2542, 94, 70, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2649, 100, 368, 11, 54, "Input"], Cell[3020, 113, 165, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3222, 121, 243, 6, 54, "Input"], Cell[3468, 129, 115, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3620, 135, 239, 5, 54, "Input"], Cell[3862, 142, 92, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3991, 148, 496, 15, 89, "Input"], Cell[4490, 165, 130, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4657, 172, 302, 10, 54, "Input"], Cell[4962, 184, 141, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5140, 192, 187, 5, 54, "Input"], Cell[5330, 199, 108, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5475, 206, 170, 4, 54, "Input"], Cell[5648, 212, 121, 3, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5806, 220, 251, 7, 54, "Input"], Cell[6060, 229, 87, 2, 52, "Output"] }, Open ]], Cell[6162, 234, 404, 12, 54, "Input"], Cell[6569, 248, 118, 2, 54, InheritFromParent], Cell[6690, 252, 128, 2, 54, "Input"], Cell[CellGroupData[{ Cell[6843, 258, 190, 4, 54, "Input"], Cell[7036, 264, 122, 2, 52, "Output"] }, Open ]], Cell[7173, 269, 69, 1, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7279, 275, 103, 1, 112, "Section"], Cell[7385, 278, 221, 5, 54, "Input"], Cell[CellGroupData[{ Cell[7631, 287, 120, 2, 54, "Input"], Cell[7754, 291, 96, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7887, 297, 119, 2, 54, "Input"], Cell[8009, 301, 119, 2, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8165, 308, 171, 4, 54, "Input"], Cell[8339, 314, 117, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8493, 322, 277, 8, 54, "Input"], Cell[8773, 332, 221, 7, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9031, 344, 134, 2, 54, "Input"], Cell[9168, 348, 107, 2, 54, "Output"] }, Open ]], Cell[9290, 353, 151, 2, 53, "Text"], Cell[CellGroupData[{ Cell[9466, 359, 117, 2, 54, "Input"], Cell[9586, 363, 96, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9719, 369, 169, 4, 54, "Input"], Cell[9891, 375, 72, 1, 52, "Output"] }, Open ]], Cell[9978, 379, 224, 6, 54, "Input"], Cell[CellGroupData[{ Cell[10227, 389, 172, 4, 54, "Input"], Cell[10402, 395, 92, 2, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10531, 402, 124, 2, 54, "Input"], Cell[10658, 406, 69, 1, 52, "Output"] }, Open ]], Cell[10742, 410, 184, 4, 54, "Input"], Cell[CellGroupData[{ Cell[10951, 418, 126, 2, 54, "Input"], Cell[11080, 422, 76, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11193, 428, 122, 2, 54, "Input"], Cell[11318, 432, 69, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11424, 438, 122, 2, 54, "Input"], Cell[11549, 442, 73, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11659, 448, 126, 2, 54, "Input"], Cell[11788, 452, 68, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11893, 458, 112, 2, 54, "Input"], Cell[CellGroupData[{ Cell[12030, 464, 120, 2, 72, "Print", CellTags->"Info503668257757-2427505"], Cell[12153, 468, 1148, 35, 149, "Print", CellTags->"Info503668257757-2427505"] }, Open ]] }, Open ]], Cell[13328, 507, 312, 7, 54, "Input"], Cell[CellGroupData[{ Cell[13665, 518, 256, 7, 54, "Input"], Cell[13924, 527, 172, 3, 85, "Output"] }, Open ]], Cell[14111, 533, 202, 5, 54, "Input"], Cell[CellGroupData[{ Cell[14338, 542, 174, 4, 54, "Input"], Cell[14515, 548, 90, 2, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14642, 555, 169, 4, 54, "Input"], Cell[14814, 561, 102, 3, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14953, 569, 172, 4, 54, "Input"], Cell[15128, 575, 102, 3, 83, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)