(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 60107, 1367] NotebookOptionsPosition[ 57656, 1320] NotebookOutlinePosition[ 58002, 1335] CellTagsIndexPosition[ 57959, 1332] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "[", "t_", "]"}], ":=", RowBox[{ SubscriptBox["a", "0"], "+", RowBox[{ SubscriptBox["a", "1"], "*", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["b", "1"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["a", "2"], "*", RowBox[{"Cos", "[", RowBox[{"2", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["b", "2"], "*", RowBox[{"Sin", "[", RowBox[{"2", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["a", "3"], "*", RowBox[{"Cos", "[", RowBox[{"3", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["b", "3"], "*", RowBox[{"Sin", "[", RowBox[{"3", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["a", "4"], "*", RowBox[{"Cos", "[", RowBox[{"4", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["b", "4"], "*", RowBox[{"Sin", "[", RowBox[{"4", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["a", "5"], "*", RowBox[{"Cos", "[", RowBox[{"5", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["b", "5"], "*", RowBox[{"Sin", "[", RowBox[{"5", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["a", "6"], "*", RowBox[{"Cos", "[", RowBox[{"6", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["b", "6"], "*", RowBox[{"Sin", "[", RowBox[{"6", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["a", "7"], "*", RowBox[{"Cos", "[", RowBox[{"7", "*", "t"}], "]"}]}], "+", RowBox[{ SubscriptBox["b", "7"], "*", RowBox[{"Sin", "[", RowBox[{"7", "*", "t"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7033485236399813`*^9, 3.703348657409116*^9}, 3.7033493129192896`*^9, {3.703404475444063*^9, 3.703404480552825*^9}, { 3.703408086010833*^9, 3.703408107582266*^9}},ExpressionUUID->"a0ce0135-1c8c-43c6-88ff-\ 145dfab1b2ff"], Cell[BoxData[ RowBox[{ RowBox[{"termo", "=", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]", "+", RowBox[{"2", "*", "\[Epsilon]", "*", RowBox[{"Cos", "[", RowBox[{"2", "*", "t"}], "]"}]}]}], ")"}], "*", RowBox[{"x", "[", "t", "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.703348670243147*^9, 3.7033486986292515`*^9}, 3.703409464838171*^9},ExpressionUUID->"a6aeb94e-3e65-4a86-a94b-\ 644077ec2b75"], Cell[BoxData[ RowBox[{ RowBox[{"termo", "=", RowBox[{"TrigReduce", "[", "termo", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7033487362512827`*^9, 3.7033487468377233`*^9}, { 3.703348913165492*^9, 3.7033489196694727`*^9}, 3.7034094618049345`*^9},ExpressionUUID->"5131098d-e1ab-4003-9cda-\ e892ecca2860"], Cell[BoxData[ RowBox[{ RowBox[{"vel", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.703348956759598*^9, 3.7033490269730396`*^9}, { 3.703349079125716*^9, 3.703349134141242*^9}, {3.7033492479900413`*^9, 3.7033492802774396`*^9}, 3.7033493185899253`*^9, 3.7034094605651913`*^9},ExpressionUUID->"7e903a89-7a2a-48f4-9982-\ c539e165e410"], Cell[BoxData[ RowBox[{ RowBox[{"acel", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "t"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.703349056524835*^9, 3.703349066936635*^9}, { 3.7033491718217726`*^9, 3.7033491739179735`*^9}, {3.7033492617724333`*^9, 3.7033492664146175`*^9}, 3.7033493385030327`*^9, {3.7033494141434393`*^9, 3.7033494143914566`*^9}, 3.7034094597006264`*^9},ExpressionUUID->"2bb70182-638e-42bd-8b42-\ dee336f24049"], Cell[BoxData[ RowBox[{ RowBox[{"Equacao", "=", RowBox[{ RowBox[{"acel", "+", "termo"}], "\[Equal]", "0"}]}], ";"}]], "Input", CellChangeTimes->{{3.703349426587039*^9, 3.7033494366862125`*^9}, 3.703408478007078*^9},ExpressionUUID->"5ce4e926-5859-446a-a5bc-\ 325b6e7b48d2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{"Equacao", ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "_", "]"}], ",", RowBox[{"Cos", "[", "_", "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7033496193225594`*^9, 3.7033496275287857`*^9}, { 3.70334982732419*^9, 3.7033498438460484`*^9}, {3.7033499563321543`*^9, 3.7033499626251645`*^9}, 3.703349997256568*^9},ExpressionUUID->"b85afd05-bafa-41ad-a3b1-\ 4bc483e95720"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Delta]", " ", SubscriptBox["a", "0"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "2"]}], "+", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "1"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "1"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "3"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Epsilon]", " ", SubscriptBox["a", "0"]}], "-", RowBox[{"4", " ", SubscriptBox["a", "2"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "2"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "4"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"3", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "1"]}], "-", RowBox[{"9", " ", SubscriptBox["a", "3"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "3"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "5"]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]", " ", RowBox[{"Cos", "[", RowBox[{"8", " ", "t"}], "]"}], " ", SubscriptBox["a", "6"]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"6", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "4"]}], "-", RowBox[{"36", " ", SubscriptBox["a", "6"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "6"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"4", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "2"]}], "-", RowBox[{"16", " ", SubscriptBox["a", "4"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "4"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "6"]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]", " ", RowBox[{"Cos", "[", RowBox[{"9", " ", "t"}], "]"}], " ", SubscriptBox["a", "7"]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"7", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "5"]}], "-", RowBox[{"49", " ", SubscriptBox["a", "7"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"5", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "3"]}], "-", RowBox[{"25", " ", SubscriptBox["a", "5"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["a", "5"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "1"]}], "-", RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "1"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "3"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SubscriptBox["b", "2"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "2"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "4"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"3", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "1"]}], "-", RowBox[{"9", " ", SubscriptBox["b", "3"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "3"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "5"]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]", " ", RowBox[{"Sin", "[", RowBox[{"8", " ", "t"}], "]"}], " ", SubscriptBox["b", "6"]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"6", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "4"]}], "-", RowBox[{"36", " ", SubscriptBox["b", "6"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "6"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"4", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "2"]}], "-", RowBox[{"16", " ", SubscriptBox["b", "4"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "4"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "6"]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]", " ", RowBox[{"Sin", "[", RowBox[{"9", " ", "t"}], "]"}], " ", SubscriptBox["b", "7"]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"7", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "5"]}], "-", RowBox[{"49", " ", SubscriptBox["b", "7"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "7"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"5", " ", "t"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "3"]}], "-", RowBox[{"25", " ", SubscriptBox["b", "5"]}], "+", RowBox[{"\[Delta]", " ", SubscriptBox["b", "5"]}], "+", RowBox[{"\[Epsilon]", " ", SubscriptBox["b", "7"]}]}], ")"}]}]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{ 3.703405034248727*^9, 3.703405111067915*^9, {3.703406079500061*^9, 3.703406098561911*^9}, 3.7034061528263893`*^9, 3.703406267262041*^9, 3.703406317176869*^9, 3.7034063935262456`*^9, {3.7034065198904047`*^9, 3.703406561977192*^9}, 3.7034066160964174`*^9, 3.7034066658272204`*^9, { 3.703406798951977*^9, 3.7034068177403*^9}, 3.7034068938014207`*^9, 3.7034069882516284`*^9, 3.703407175747182*^9, 3.7034073009476357`*^9, 3.7034073657135453`*^9, {3.703407398833106*^9, 3.7034074106876216`*^9}, 3.7034075567834277`*^9, 3.7034078578370905`*^9, 3.703408123451222*^9, 3.7034084894895916`*^9, 3.703408636027363*^9, 3.7034087517831683`*^9, 3.703408815405443*^9, 3.703409181597364*^9, {3.70340923304307*^9, 3.7034092529187665`*^9}, 3.703409302240909*^9, 3.7034093901117973`*^9, 3.703409468190177*^9, {3.703409563744364*^9, 3.70340958255364*^9}, { 3.7034097065742826`*^9, 3.703409738744034*^9}, {3.703411338217737*^9, 3.703411350009411*^9}, 3.7034114273395414`*^9, {3.7034116433601522`*^9, 3.703411688214594*^9}, {3.703411788836151*^9, 3.703411817121972*^9}, 3.7034225922374907`*^9, 3.745740742789854*^9, 3.745741680334465*^9, 3.7457542476476727`*^9, 3.745754598013384*^9},ExpressionUUID->"d91a5c46-ec41-44e4-86a2-\ 172c0ebd1680"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Matriz", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "1"}], "+", "\[Delta]", "+", "\[Epsilon]"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "*", "\[Epsilon]"}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "4"}], "+", "\[Delta]"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "9"}], "+", "\[Delta]"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "36"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "16"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "49"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "25"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "9"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "1"}], "+", "\[Delta]", "-", "\[Epsilon]"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "4"}], "+", "\[Delta]"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "36"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "16"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "49"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]", ",", "0", ",", "0", ",", "0", ",", RowBox[{"\[Delta]", "-", "25"}], ",", "0", ",", "0", ",", "0", ",", "\[Epsilon]"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Matriz", "]"}]}], "Input", CellChangeTimes->{{3.70340590109195*^9, 3.7034059908870115`*^9}, { 3.7034060446688538`*^9, 3.70340609701729*^9}, {3.7034062631691294`*^9, 3.7034063923736897`*^9}, 3.703406553770708*^9, {3.703406656154743*^9, 3.7034066641859183`*^9}, {3.703406812971244*^9, 3.7034072111328907`*^9}, { 3.7034072705047894`*^9, 3.703407364130866*^9}, 3.703407396434393*^9, { 3.703407532792714*^9, 3.703407555014522*^9}, {3.703407833983616*^9, 3.703407843750611*^9}, {3.7034086294737487`*^9, 3.703408633590438*^9}, { 3.7034087123866897`*^9, 3.7034087482228117`*^9}, {3.703408806306079*^9, 3.7034088113395147`*^9}, {3.7034090684472923`*^9, 3.7034090718895473`*^9}, {3.703409139793335*^9, 3.7034091428378935`*^9}, { 3.7034091769009714`*^9, 3.703409179931293*^9}},ExpressionUUID->"ac963dab-2b67-4f07-b525-\ abad7f53461d"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Delta]", "0", "0", "\[Epsilon]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{ RowBox[{"-", "1"}], "+", "\[Delta]", "+", "\[Epsilon]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, { RowBox[{"2", " ", "\[Epsilon]"}], "0", "0", RowBox[{ RowBox[{"-", "4"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0", "0", "0", "0", "0"}, {"0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "9"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "36"}], "+", "\[Delta]"}], "0", "0", "0"}, {"0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "16"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "49"}], "+", "\[Delta]"}], "0"}, {"0", "0", "0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "25"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0"}, {"0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "9"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0", "0"}, {"0", "0", RowBox[{ RowBox[{"-", "1"}], "+", "\[Delta]", "-", "\[Epsilon]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", RowBox[{ RowBox[{"-", "4"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "36"}], "+", "\[Delta]"}], "0", "0"}, {"0", "0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "16"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", "49"}], "+", "\[Delta]"}]}, {"0", "0", "0", "0", "0", "0", "\[Epsilon]", "0", "0", "0", RowBox[{ RowBox[{"-", "25"}], "+", "\[Delta]"}], "0", "0", "0", "\[Epsilon]"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.703406798973486*^9, 3.703406817761312*^9}, 3.703406893823922*^9, 3.7034069882736607`*^9, 3.703407175769229*^9, 3.7034073009706526`*^9, 3.7034073657375636`*^9, {3.7034073988551226`*^9, 3.7034074107120404`*^9}, 3.703407556808608*^9, 3.7034078578631086`*^9, 3.7034081234707355`*^9, 3.703408489516117*^9, 3.7034086360393686`*^9, 3.7034087517966785`*^9, 3.7034088154179897`*^9, 3.703409181626384*^9, { 3.703409233054596*^9, 3.7034092529307747`*^9}, 3.703409302254419*^9, 3.7034093901268015`*^9, 3.7034094682036734`*^9, {3.703409563757655*^9, 3.7034095825679283`*^9}, {3.703409706589921*^9, 3.7034097387560425`*^9}, { 3.7034113382332473`*^9, 3.7034113500209293`*^9}, 3.703411427352625*^9, { 3.703411643376164*^9, 3.703411688226103*^9}, {3.7034117888491607`*^9, 3.7034118171339817`*^9}, 3.7034225922685146`*^9, 3.7457407428184395`*^9, 3.745741680347503*^9, 3.745754247663683*^9, 3.7457545980294604`*^9},ExpressionUUID->"f690f155-f7fb-489b-9111-\ 6cc54f9d591b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"determinante", "=", RowBox[{"Det", "[", "Matriz", "]"}]}]], "Input", CellChangeTimes->{{3.7034074019353642`*^9, 3.7034074095194664`*^9}},ExpressionUUID->"c3e38d35-0173-4f3d-bfee-\ b68d628e27e8"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", "49"}], "+", "\[Delta]"}], ")"}]}], " ", RowBox[{"(", RowBox[{"2304", "-", RowBox[{"784", " ", "\[Delta]"}], "+", RowBox[{"56", " ", SuperscriptBox["\[Delta]", "2"]}], "-", SuperscriptBox["\[Delta]", "3"], "-", RowBox[{"40", " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{"2", " ", "\[Delta]", " ", SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"225", "-", RowBox[{"259", " ", "\[Delta]"}], "+", RowBox[{"35", " ", SuperscriptBox["\[Delta]", "2"]}], "-", SuperscriptBox["\[Delta]", "3"], "+", RowBox[{"225", " ", "\[Epsilon]"}], "-", RowBox[{"34", " ", "\[Delta]", " ", "\[Epsilon]"}], "+", RowBox[{ SuperscriptBox["\[Delta]", "2"], " ", "\[Epsilon]"}], "-", RowBox[{"26", " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{"2", " ", "\[Delta]", " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", SuperscriptBox["\[Epsilon]", "3"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2304", " ", "\[Delta]"}], "-", RowBox[{"784", " ", SuperscriptBox["\[Delta]", "2"]}], "+", RowBox[{"56", " ", SuperscriptBox["\[Delta]", "3"]}], "-", SuperscriptBox["\[Delta]", "4"], "+", RowBox[{"1152", " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", RowBox[{"144", " ", "\[Delta]", " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[Delta]", "2"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["\[Epsilon]", "4"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11025"}], "+", RowBox[{"12916", " ", "\[Delta]"}], "-", RowBox[{"1974", " ", SuperscriptBox["\[Delta]", "2"]}], "+", RowBox[{"84", " ", SuperscriptBox["\[Delta]", "3"]}], "-", SuperscriptBox["\[Delta]", "4"], "+", RowBox[{"11025", " ", "\[Epsilon]"}], "-", RowBox[{"1891", " ", "\[Delta]", " ", "\[Epsilon]"}], "+", RowBox[{"83", " ", SuperscriptBox["\[Delta]", "2"], " ", "\[Epsilon]"}], "-", RowBox[{ SuperscriptBox["\[Delta]", "3"], " ", "\[Epsilon]"}], "+", RowBox[{"1283", " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", RowBox[{"134", " ", "\[Delta]", " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["\[Delta]", "2"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", RowBox[{"58", " ", SuperscriptBox["\[Epsilon]", "3"]}], "+", RowBox[{"2", " ", "\[Delta]", " ", SuperscriptBox["\[Epsilon]", "3"]}], "-", SuperscriptBox["\[Epsilon]", "4"]}], ")"}]}]], "Output", CellChangeTimes->{ 3.7034094682156935`*^9, {3.70340956376865*^9, 3.70340958257845*^9}, { 3.703409706589921*^9, 3.7034097387680535`*^9}, {3.7034113382482705`*^9, 3.703411350034949*^9}, 3.703411427365635*^9, {3.7034116433941956`*^9, 3.7034116882401223`*^9}, {3.7034117888621807`*^9, 3.7034118171454954`*^9}, 3.703422592281022*^9, 3.745740742833976*^9, 3.74574168036254*^9, 3.7457542476837363`*^9, 3.745754598046501*^9},ExpressionUUID->"e62a31dc-2e23-4912-9e83-\ b95f07edf025"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"raizes", "=", RowBox[{"determinante", "/.", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Roots", "[", RowBox[{ RowBox[{"raizes", "\[Equal]", "0"}], ",", "\[Delta]"}], "]"}]}], "Input", CellChangeTimes->{{3.703409284298094*^9, 3.7034093003517647`*^9}, 3.7034093756613045`*^9, {3.703409435616044*^9, 3.703409436510116*^9}},ExpressionUUID->"e9ebd5c3-4705-4819-b14f-\ 0154a9319cb3"], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]", "\[Equal]", "49"}], "||", RowBox[{"\[Delta]", "\[Equal]", "1"}], "||", RowBox[{"\[Delta]", "\[Equal]", "9"}], "||", RowBox[{"\[Delta]", "\[Equal]", "25"}], "||", RowBox[{"\[Delta]", "\[Equal]", "4"}], "||", RowBox[{"\[Delta]", "\[Equal]", "16"}], "||", RowBox[{"\[Delta]", "\[Equal]", "36"}], "||", RowBox[{"\[Delta]", "\[Equal]", "0"}], "||", RowBox[{"\[Delta]", "\[Equal]", "4"}], "||", RowBox[{"\[Delta]", "\[Equal]", "16"}], "||", RowBox[{"\[Delta]", "\[Equal]", "36"}], "||", RowBox[{"\[Delta]", "\[Equal]", "1"}], "||", RowBox[{"\[Delta]", "\[Equal]", "9"}], "||", RowBox[{"\[Delta]", "\[Equal]", "25"}], "||", RowBox[{"\[Delta]", "\[Equal]", "49"}]}]], "Output", CellChangeTimes->{ 3.7034094682256966`*^9, {3.7034095637801456`*^9, 3.703409582589445*^9}, { 3.7034097066055346`*^9, 3.703409738777076*^9}, {3.7034113382612567`*^9, 3.703411350045623*^9}, 3.7034114273751745`*^9, {3.7034116434106884`*^9, 3.7034116882512937`*^9}, {3.703411788873187*^9, 3.7034118171565037`*^9}, 3.7034225923025513`*^9, 3.7457407428577085`*^9, 3.745741680375549*^9, 3.7457542476978035`*^9, 3.745754598063552*^9},ExpressionUUID->"f70589bf-e410-4a4d-a7b6-\ eeaa76cdd590"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"determinante", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Delta]", ",", "\[Epsilon]"}], "}"}]}], ",", RowBox[{"FontSize", "\[Rule]", "22"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.703409250687533*^9, 3.7034092508554974`*^9}, { 3.7034095618149877`*^9, 3.7034095785912457`*^9}, {3.703409705253186*^9, 3.703409737094601*^9}, {3.7034113308146143`*^9, 3.703411348602557*^9}, { 3.7034114106382074`*^9, 3.703411425871601*^9}, {3.7034116399508057`*^9, 3.7034116866088963`*^9}, {3.7034117866303883`*^9, 3.703411805783388*^9}, { 3.745740699910243*^9, 3.745740737399536*^9}, {3.745741669955162*^9, 3.745741678328103*^9}},ExpressionUUID->"a6222f8c-657a-442f-ad09-\ 19d9a91f3e5d"], Cell[BoxData[ TemplateBox[{ "ContourPlot","optx", "\"Unknown option \\!\\(\\*RowBox[{\\\"FontSize\\\", \\\"\[Rule]\\\", \ \\\"22\\\"}]\\) in \\!\\(\\*RowBox[{\\\"ContourPlot\\\", \\\"[\\\", \ RowBox[{RowBox[{\\\"determinante\\\", \\\"\[Equal]\\\", \\\"0\\\"}], \ \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Delta]\\\", \\\",\\\", \\\"0\\\", \ \\\",\\\", \\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\ \"\[Epsilon]\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \ \\\",\\\", RowBox[{\\\"FrameLabel\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ RowBox[{\\\"\[Delta]\\\", \\\",\\\", \\\"\[Epsilon]\\\"}], \\\"}\\\"}]}], \ \\\",\\\", RowBox[{\\\"FontSize\\\", \\\"\[Rule]\\\", \\\"22\\\"}], \ \\\",\\\", RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"8\\\"}], \\\"}\\\ \"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ \\\"4\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"",2,82,3, 29573324483076917684,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.745741680414208*^9, 3.7457542477308936`*^9, 3.7457545980770917`*^9},ExpressionUUID->"4120a906-07bb-48a8-b052-\ b22df4d208ff"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"determinante", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Delta]", ",", "\[Epsilon]"}], "}"}]}], ",", RowBox[{"FontSize", "\[Rule]", "22"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Output", CellChangeTimes->{3.7457542477328997`*^9, 3.745754598097703*^9},ExpressionUUID->"b7d1d342-c95a-4b3c-a9d5-\ fed6d103f7d9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"determinante", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Delta]", ",", "\[Epsilon]"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "18"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.745754231001698*^9, 3.7457542464544106`*^9}},ExpressionUUID->"3c030d71-8c2d-4391-8e06-\ 813b082b51a8"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxtuwlYzN8XPz5by7TNPtNmKaFFpUSU3JNQlkQoKqRNUSmKLIVCG1JUtoQU haxRIqGFIq0qKe2bSvu+/N5fvWd+z+/z/88zzzPPmfe555577j33vs65561g d8DckUQgEI6SCYT//bY8fXPp85tuVPXKDfs+RIR/n278l0A4ZKUSWcf+i46X RVzwSorB//+L1NwpDNc7t5Bm2NEHCZZdgvY6CmYcsfld6CS9P1z+7GOcvwvR j2Z+eXEuGd0cDVc2XdqJtrhl6VmxX6G6029mMRI78PbpaMWctO9JJh1Inys7 SbB9h7fvQLvT5pHcOjKQ99D686t/tiOltRHYNwudCNq/ucipHdk+8Uj81puN 87ejaxFvjQ8uyUXXvgQ4PPBqQ1vHJXSGw74g04ShBAK1De8vH/ko3T+XcroV ZbT37XZX/Ya3b0V5vQRp4eoCdOHmwIfJCy1I/xPTU3FPIYKn1BUfFrWgf90r FSGFB9SE4GvNaKdLrmOuWjHevhm9W6e+mbe4BKUm5q23vteEzhgz8zUGShB3 ZXzmcqsmXP9SFP9hgZVPciNCNZHXbd+V4e0b0R3vI1WRf38gsfY54k2vG1Dn pDTL4Uw5Oi4z39v5RAPOV4HCmMEL4zPr0Yqx9ky0rhL/vx59Hqore3LrJyrv /b307ec6FKnNPDciVYWeXDR7ZHK9Dh9/FbLyJOqoF9aijJj1d6OKf+Hta9Gs OTPniRnVoBDC/YTsvb/RNHsN2llZIGr2phpFLvX1XKNWi/P/QtI1j69d76pF YQ2bPDwjqnD71KEsxQ/l679XIs071NOz/9QJ9LYXeZNT9qoebbwm/efCy3Jc fj1yWLRm39WcMiTEnWlueIs/zlL05eXsWy7HGtHBI+HnqAUluP0aEXv2qH9G exHarL0/77pDE85fiFY8zltwalkzmhngfSDi3Xf0T521zcjjtsiue/X5aM9d Yr7xzBac/zP60527anl/CzoW/xgsvuUK1sHwut5cq+ZPyO/Pi7quslb8/0y0 cvJjTHpSG9pro7dYNeo9cv9n0Da0O9mb3MN4jQyPBATn+rTj/E/R/doqa5md f1BsYXCO6s9k3P5/UNF8uY1KF26hjvnLQxejDoHfzTDbM+4h3oksIziLiQQ6 /L/+SQc+XyA7Vndsigajjmd8n7o+RCeMWsz/R/P5k52HT/yP7pwjtTPZ/SF6 r/JcLhWjjcUTh0hO6eikOGd3uoA/HYX3PCS9x2hm2WW3x17pKHPmkiVvJ2lQ 2rXlVvepLPQ1dzt5K/ac739vg5gptdjz+/bzlB/fyUKy3CjVyHEanBfzmVO5 Ih8lvN0wmz7Jl5+Pjmyf/NE3/j/5u7X9o/PRSopKInWEBj5P+gNL+wtRcL6r UOYYDfj+ddbu8ul72HPyaYsVqpuKkI22sxe3nwbX/sSPXINSlOb3drV3P1+f UrRG7kBsKkY7zRY2vf27FH0jmASUddLA5m1nj3tAOVIQcuaJdtGAvw6zbjvT RTB68yzLNQbHK5DOY9GjLs00QJ+/9UPGT1Rcvvvw3Q6+/ti6Du+ZdG+igcaQ 3ab6Ob/Q8gM3N/dV0+Cw8y3N3p5q1MwpP3OzkQZ8fzm3VUWk+CcNKqIbC3b/ /I3EnnlNXSylgcKDl4p3wmpR6cPWwb4i/njrUKNiZj69gAa2QVMuOd/r0HJp Q4MteTQ4q/E7yGlOPdrq8pxFL+TLr0dWeodvHXhPA9pnD+eOlw3oXu7itr0Y 3aPhWtuY2oC6Yo+yoj7x7dOIUhaY91mm0MCt3i5UfW0TsnpRONPoJQ0CvHRM ByKbkImX1qvH2HO+v6hfbD8un4TZe6GS/rnKZnT1+az7GQk0KGp8vVDleAt6 kzA3c2cC356taM4lzSvVMTSgxue6ODph/tJXxX4WRYN5m9suS7m0oQWX2vrc LtOA7y/bKXuyXl+igfciz/YF3W1I+FhYf2cADXzZ7BoD2z9oHnOTRGwA3/5/ ptf/KWw8StaBm9P+IOHfEZt6vGjg/wLYiZMdyEHHdzj1EA30yE12SRs70Z0h h/VfHfj26kIXN2sUF1vQoCD06ugFUjfyzwr9UGlKg7CQHRPysd0oHGo4/sCf jx6kvcLZy2sxDSTWlO9YfKoHHWtQtpqQo4HYsRo4+LAXmbXerhrm8OX3oqQl L28GMmhwie336dhIL+6vNNDfndQqfKUPrYqfty+0XQqfj36kRps8aNckBa+2 kM+0ve9H6qlx6TOLpfDxDqCClTYqm7KlwGKVAcm8eABJ1NyKsP0kBf6Lcn/o 1g2gqC/B7gFpUvh8DSJVhfoAx2Ss/dIHwslXB9EuvzSl2wlS8JX0UcO6fhCZ UdjrXGKl8PENIcKM+ydbrkrBXEmjV0ZmQ0jmq2VVwxkpmHn3+UDM0BDyvVlW WBUghc/vMG5/KZj4GhddLTeM+lNlLDVcpWDxORGyV9owii1wvfLDHtNPfF/q S/ER1OOkn6dtKoXP9wh6P6P2cp+BFJhk31tDUxhFq1LQhbblUjDjFMGyWmUU FbAKzWs0+fYZRZ88LZLfz5WC6Bai11TxKJq//9qp01wpUJ0anlQwHkNtL34T VBh8e42h0z0zG+QlpYB4a8dZrTNjuP2lwMhhVZNv7Rh6IrVoyWCPJG6vcZSY 8LJN6ackrFlpNfmoYRy5j2kHOhRLgsk/hgn0ETaqq2dJwj7XW6tmh04g+SCx hKx4SfiQdbIkAyaRz6qIl3vCJPH5n8TtIwlDD09/s106hW57bzKa5SEJn5kl G+NuTKHBkHqlbU6SEPc5K7OqfgqdZTjVuqzj60OAeu3bcmd1JSFGDZan+xBw u0vCSOexfl1FItytVsjaPyUBT9Wc9FhKREgKiQlZi9HT80mE524T30QxeuRO tarTXCLwammUDx8lYCm1reZUPhEkY/N39DyTwOWS4LLWhMjZMAnwL6t2crEl QUV/PscuUAJSg+S7xLxIsH7prbApWwl8fCQwEXpckmssAdIq6137pcmQmXb2 yBe2BFif/aEmFk+GbWShVSslJeAf+ysy3o8EJJ73i3xfRoba2VX1LTni8B6i xXfsoYC21SNp4Zfi+HxT4GNGxF6zi+IQF7+zO72PArtPrgnSPScOokpJaluF hECcVLG1Ybs4Pt9CoHzq3ehxEAdFQu6F8XtCcOiKqGWzmjiurxDevzjo/HX7 pr5SGJ4uU/ZLnxAD5dj9k9rGwtD8VXOVOEZP218Y8mrcjL3GxKBpqF1czFQY rgUU/zD5KQYBNWGXA6OEQUmrt68zXwwfnzBUhzBszF+LwUYq7eqaZmEoWEyN t3wsBtHIsPblBCZ/fTdSuiGGryeRaX1OiQEjw79yo60ITOzool0/IAYvPTlt emdEINJ5xF3fRQy3hwicE5ljn2otBrNmqvXveSYCBd/KP59dLwZPV64foJSI gHu+5T7WEjGY+vcRgVoV6ZT388TA22TZjSUKohA39EPrkLAYvFWbc17TWRSc tybeTyaLwc9/BhKF2i3ONldJYqD+U8es+4Aobi8xiIwQ+bDNWxQ2qAasqvpF haHwNL2N70Qhxy3xpkYBFbevKJQkM3kPHlNh3Yudi0mKVLhSnJ184xoVwv8N gAqEdpUU+XAqGC95dfi7JRUfPxWCV1Pmp/pSocufaHPZngqu/+xJhYa7Jg7i RlTwWbmi1bybCnbKOfWxC6i4/cRw/aiwTeZHgMFJMVicV3d19YgoXEeaX8+c FwN7yHq8aVAU5vyznxikL7hKfftXFHYZ/wG922JAnEFr+fpWFCb/2UsMbval XBi/LwrfCs0XrlEUh70s88HrZ0Vx+4jj+oqCmytb18FHHKYOtC38sB2Tn9ih kpcmDmZjmd9U1oni9hCHFw5NC0UwuycnfjMqWyABlU3ejeN0UdweEiD/01+/ XUwU9E3Tbp805/uhKBR8dmqmu0hA3ez5yimlIrg9JECx3MYp+pUIJK97Z5nQ JAFvTcrtL14Twe0hCSmXOrx9w0XgsOVfuUuLJHF9ReDu7Bfr6rdIgtSd4kM6 ziIQkzxR2OArCbdDPDbstRHB7SMJO/Rf/9YDEVjFfSTX+1kS4kV7rFkYHbpp ueriL7g8jI6hRtbvwGhDz+rA57NFcPtJgktr/mZrjgjQ/OTXbGRKwdVFvnau JFz/JfxzA6PtVKtV9aXg4wtC340/wmCzYG7gchspYKbl335dL4zbWwq2qixX 1/4sDK/m6lWGxkgB/Zu7asxHYYh10qv6jp1jps5jc/bcFYaUf/bG5Z8ShsPj y+onpTFcKWo4JeImDBb1p0zql2K4cV3ABMteGC79sz8N2jeWW7euEwa6asr5 hMM0+NJ6t3+nkTAsX/y0qN6fBgYud5teKQrj9sdwgNb6Xft4wvBQyNG7M4+P c7D+34Y8auujQXZ7nrF/hxBsLZZ81kWlg2qgVvFEndC0/zLpsIVc0DfzsxC4 pdyv1Velw6DG4/79H4VgNM/9QqYGjuMzhSCzApn1LaSDqK5thsldIXy90OHV g4917yKFwNRErM/bnA6LF8qJKPoLTc+/A97+lBCIdN6m2TjRQfa2jobcPiGg ztb/G3OYDrePx1YP7hSanq+TdHjUuqe1CglBir0Q2nWDDhtD92ZHY/QVC0O7 6xj9ZobPvhtyQvj46XBmvWetI1MI4p8f7X2XwY87sH14Pq/myHc6uPba2/qM U6bXUzEm7wQy6WiiwHN6cVlwPR0uVp6gVFVSpue3kz9eClzadU5/IZkBtsWf eAVvKPDGz+dmuzAD8jzhftRTCnDPqWOwlgHMfpqa+xUKvt4Z+HgpoMHVNji9 mAErpk6qydpSYCD8HvOjKQO+zNm97KgpZdofrRkQGp2RM7iIAr1wuOW5JwOy TVaWgxwFCmu9GTfOMaAo6stznjgF328ZUBuo3bFWhAKJnJ5i50i8PwIFvK6n t5jcYMCU9NufpRVkeCW2YJl1KgOCP38I2vuBPH1+fGEAFYm9C3lIhkiUnvGt iq8vGaocL0n9mGLA9rwY3q+TZJir7XyzG6NjHteo5mD09P7NgNb6ykXhGH1z G/2EJoEJNZ0rN1lsIsP9EkdFd0Um7o9kMB0sUP+6kAlff3/d+1OXjPsbE6Kc bbq+KpBh0LumxHI1EzYaBFyzZ5Gn58ccb08gQ5mlXuqpPUyo7etLf9hPgh6j H/VVzkxY/WbNdoe/JNwfmfB3XtCVOuzcV03IvqHly8TO8Umh3zkkcD1r4sE9 z4QlK2T3a8eRpufnHhNCS2WJYtEkOLPkKOFgMt7fKRKYN/i8v5fJhLUhPlQ7 ZxIY6W+P2ljEhIJN/Wstd5Dw/ZMJKovisuz0SbDkwQvNun4m9OlJJElrkWCj +IWIFRNMyA/PHfvBIOH+xQKPDpdj4eIkEC8R3bGCxxLgmvDIt4oqs1lQ3H3x 1p4qIuSGfh89uIwFlcp9Bvc+EfHzngVqo8Iz/R8Roasi7ZOuDd7+FBEqjle1 HT/JgrMFxMagk0RYlkPo/4rRcr39v5Zi9DQfC8YPJVCO+RHhAO+K4n2M/j5/ z0KRjURYZBWd73EH6y9C+Y+8OhHHCyz4mzLaZTODCDOiXw57fOLrSwTbBsMj 0j9ZMFCY1CPXRYBZflUj4s0sOJprd6WvjoD7DwtSnZ+vbv5IgL2O+7yaRdiQ 4H+tNjaTABO6M3guVDbYz5l3YnUUAfcXNhzTkbq+9SIBch6ohr5SZeN6EwAs rB19FrOh3FF6VHgnAayvbXnpsYENRrHDdN4GAu4/OD9g/VNYoWsd2KAn+Xy/ qjoB9hyKpH5xx59jHBqfUOLbcDZ8XfZ+zsjkFLI7/62QHsGGF2/2ndDH6Gn/ YsPANkmzoPEpRFqbYyNymQ3RB+xu6F+bQtkFJNqsF2w46OhdPNt8ajpf84UN RbdWRE/qTKHDE8+enyxlQ8ZCqefx9Knp/FIjv/8phK7V7QpvZ0M1OWvHuZJJ NONyga7PIBsufzG/WJCB43ICBx//JFqRdLuphssBrZDuhM2HMRxfmh1nJcOB LcsWiSbumkSphwrvRihy4OlPEYMY+cnp/M4SDswqy6YuZk4imeC+pR/1cHmE SeQou7jd1pADL25P6JIeTaB5dKVtr6054HK7c/O1AxN4vocDpy9nrjY2mUDU MW7FIl9++wlk9/5RkuVVDjRODt22bx1HW5UW0wNiOfBI4fvAWPU4mvYvDhzX fPTg8aNxLA55xXR7xQGPk09bVIPGkVAwSzLzA39846jjg0ipVjYHPsuEbKTp jeP5NQ6gZ1+Lc2eNo1Wp9bIG9fz+xxHLK7j9fScHriksPe2SNoay1coalclc 0HzAHTa6OjY9f0wuLn8MmdooxefLcmFRZbWzlsUYcnJs9vygxIVbU3dTHhuN TY9XHecnYHHYw9f971Zz4dpG+aZFw6NIIS6pzMeYCxJnIgKFB0bx/BwXJh5s +d7VOIpOfaly7NnIhSyLtc1K4aPIjHD30wpnfv+jSFE6si32ABd+Spro09eP 4nEXF569zBebnD+Kqv++qw4P4vc/ijbt2h9+4ToX9O2mKmZPjKDX/7PHDS6w L9ydqfphBNnuNfZySOTCePGBU833RvB8Hr+/EfTLqCHj8ScuFPX1ZM/fNYLk 9lecFc3nQprrXGKl0AhSXCXGPNzBBQv3Wb1niBj/P3/lQk6yt3wfYQSpsQr7 2jv5+oygu5qJvpu7uLAleqh84P7w9PipPPCtHC6dHTmMDjftuPFQkof3P4zk 0KuzA1weFNyzJXw0H8bzqzy4ltiypkx1GGWfbB1/r86DkNKZl06R8Tgd8PZY 3H6XnrxvoSEP6se2jUx9HEIrTda6Wm/kwZSxsnbFg6Hp9WHN728IHQud2XXU hQf3H7LPuu0eQh1uZ27WHuDB/iW/nYLFh5CFl93qwjAeeKzo/fiVNIT7N7+/ IRSY84e48jIPfijPCD14ZRDdQOdCpZ/z5Q+iponMWYbpPBASqWdd3zSI+zsP 3j2UtgtWHkTc17XrS4t4cKh1XvZ64iDu73z5GG2jfoLYxIOBBXbVfzMGkF8m qVSqF9Nv564j6+8N4P4uDblXfU7vKesT0O7XjbfUt/ahPYvWdIqP8eX1o5Wi C3/97uJBX2GAYfjsfkF/H0kvyvNM+5GQTQK1sBKzh1yp5599/QJ9p8fTjygV KtqPM3kg8/RLteSjfhRt0x8y/zUP/n4aUHce7UdvPs0bPI7Zg05VeGUx2f8f ew2gr3uXq4eF88DeX+TpZccBdJ9a3aXlyZc/gLJS9Wws7HmwMnsywuTqgGC+ jLfL7RrNHUDZa+tOu5rx4MCB1+s3NAz8Z/4HkU1u6pfFOjyIUI9M480ZRMeH YnfxFvDgxYhR86DGoGA9xSi7KjBsB5EHrNo6TuNBfib1EevoIKr/duDLAxEe 5H5qzp5bMChY32z1b/3i1YMoMXjT/mXN/PU9hNaeJbSklnBBocRsyQbKEJr7 Dx9i+0l0xtrf+kOodKyn4gnmT823Xb8cMR/6j78NobKWrLgHcVygyVcbUSKG kPL3EKl1sVy4NyZxkvR0CPnHb6cqhXNhytSF2ts0JPD/2/vFSWmdQ2hxbbU1 5wRfn2Hkon5ceegQF35/UHbuNh1GTrWbuRU7uPDHUVqoynVYsP/w/U08wDuk F7hQaD048xbmn0F5Omo6S7jQap5BZvwZRrx47ZPZXC7cHWze/2h4WLA/qpLb ZcpHMf7XP3gajP/r79YG4hXnpbhQkzo6nmA4gv5tx4Mc6OuLeee3bQTtn2h/ 87/9l7/fmBL2zbuE7dfd9uqZthjN379r6zhm6q9G0JOViZM38jmQL6v7iJg/ gv7Bx/f8/XwU3blHDY18wIGLUTE5qqKjqDRLwcw8gQPLnPxZ86VGBedJ0VPt UebZUXT9sk+HXggHkmI0HtkljArOq7lBd4Ps3o8i7yeVhjW7+fLH0K48jygt 7LxTkPluYc0cQ4EFIu552Hk4WcyWl5cZE5yX9uTgNG3NMTTR0b86YwEHHkjH era4YOdB3/arz7j88Y6hA2X9ORNiHHi2t+rz15tjgvPax1E96cOnMZQRmbmE 18eGIAX9dIOasf+c/+Po7OTmu50YPjCIW+2pyMXOt8UK3+u/sSHUanLD7pnj Ajwxp/GSb6/uOHrSZ3tk/js2FGqMLJi3fxxtlo+jokQ2+Fz5GlyGna98vDIt fwJ53m55MHsvho/Oi14qYE2grNADRo92s8EyZz73/uwJxMdL7M367K6FE0hy Xd+Fnk1sEN//rbdx7wTKM824U6bHx18TaPvhwl/x6mwws85tWh01gfh4TW0w WPXIuwkkahzqsInLhnvDLUcbSifQv3iQytdnEiWINP7q72MBY8rUWUR8Evm7 +f1mdbOANO/qISZtEvHxopw259I52Um0N+PCW5FWFkz1Nbid2z2JlPaXJW7J 5+PdSXTYd1aPYhoLNu/aYbnv7CTi41V9kd+ij59h7ZeK5zMTWCBVv7RuZGAS vZQWrp/rz4K8ZtMlzmP8vCcLHp27ahU1juElw9V5q07y8e0U2iF6lHHIlwU9 +pZTqpun0Auj10uCrVjA+XzwZ6cfjvcwPP70qeP9L7em0Nylnp/NdFjw6qb4 r4KcKbR/18vAkJks2J19v3WkEceTGP4/qHdUJfnPFFo+eu1wlyS/PwLoJQvP TiGxoM4jde63GQT4Jm62Y1ErE2QOdCuHKhME8cY0NwHUU4W8CR+ZoJNf9/O6 IQF2tSWyn2LxipK22N9wIwIs2+6yySeDCTOf7t4RZ0cQxDv7EbcjzoUADUFU +Ynr/HiHAHLPiqq2nWbCJXZh9QUMf0vf0HnQd4gJtLeZ8nZRBEF89fzCNv37 sQSYfUxJfJ4tE4atnGfYvyCAC+n9troNTBD/WERY8I0giO8iFoVbfqogwEO9 FZfF5jFBrwwtOtpPgJh7jbe7KUxoJjb/ahkhCOJJ69AwxcIxAlzplb6jM8mP Z4ngLdETpDrMgHSHnVpPFhIF8WvND5HuX4ZEeHBqw8qAZAaQdOxnFRoRYep4 2Rn2Iwa8Z9h3Ht9NFMTLHae75x50IgLYjPhuC+THu0TwHGKsPuHEAL+xoae+ gUSwujR+JW4XA6S01w3xQomC+PzFiGRj60UiXEzb20LdxgDp32oKGklEuLlb VyphCQOeSNzzVHxHFMT/o35PxuLyiKBwb97kC0kGvDL6OxleSoSnmza93kJg gK4p8/bWRqIg3xC1t22y5A8RikQcXjGa+PkLEsxPaiQWfqbDuzmia8yx+NFr +5vQlHQ6zFuyqypZiiTIf+w4PvHWgEOCsIS5w5mP6SAqEbfRWI0EV2pXrzkf QQepibVCr3VJgvzK9HoiQVKBn3/XITqEdk28cV9LAj2ncLUYZzoc68wuU91M wvaJ/s9LdtJBQ2mTdoAtSZDv0TDbKmKFxcddCkpkEqKDfAf9pushPB5X5+d7 SGDneuiZsywdtlWHzMw9QwK3AH2LbWw6XH/g1vnyHEmQf4pZpFTpHkSCQ1Kc jodSdDid9lPr610SrNVSEX5SSoMXXpLRbU9IgnxX86sXb+6kkyA/MORMRgAN UjSvj0e/I4HIQe7EX18a3NToZK0pIQnyaYFC8sVrf5IgKv1sWJEyDZSSC/c+ /EMC5TVR+T87pMAwKr52ey9JkK/T8Wi2XjNAgndnsjcuL+bnB8lwvamw51uC FNgF/LCyYZEF+UAFvUaaNo8M9fp93LIdUtCsOXUzdz4ZJFVefZdWlALH8s17 zuiQBfnI3DSO+JqVZIjhWT/WypUEfe/qLX6byYJ859MF1Re3WpFhw7z6bVOe khD8KejM3P1kQT512r5kOCtf/2UgUwK2upQ/2upPhrCOddU/UyXghGbFQesA MnjMVvw4+kIC4q86XSuPIQvyuxHvTJylkslAy5XJbSFJgINDXJJ7ClmQH9ZR XnKsN4MMQ6myG4/Gi8P8wFB9Th5ZkG+um2rQMioiw/tX28zurxaH44uXLZ9o JYOnQ9IuUoIY2OZLaJE6yIL8NqUs+ZBwFxmqTTwHav3FIHF8nPRxhPyffDkF DsTLtV5vp8LXJTeMmcIUCN7Ce0h7S4Vc775YZRGKIP/OsryyxwWjWXNYsqef UmFOCZnKYlCgdP+GBbmWVDiuG2L9lUUR5PfTHXVGtNkU+PpgaGOpLhUONqoU bZalQJ+E2/h4jygs1fauJ8+kCO4L6gd1QubMpkCgd3Bw3XtRCPJJudg7lyK4 jzDtCx8/o0IBx8DtYVFzMHq+Y/wTNYrgfqNc890RW3VM3+dsEblKEXis5/Pb RJMiuC8ZXKL1MwGjg8XqPPeZigApQWdm1kKK4P7F4/tNV20tCsSq3KLvHRUG y10XLszGnvPvczI4gfVRmPwdp+o0l3oIgzmbs8sSo/n3Q/WKhndPLKDAwNW4 etIcYSh2ktKyUaYI7pvKtW5+MFakwGtV6b/SoUKg8NvKeIYCRXBftex3vnHO DAo8hM1HtbYKwYbqP9QWHgWevOtqOMEWgjfrfH0DMHp63oQgdJ2h+W/MvkOH 40jyXRToZ7jMLRHH7Le948f+mxQI5RnJHhTkLzG9chrDRMUocONW4pknwRTB /Bfc87rdpk+BxWK7HS0m+OuDAmvOtKSs7CFD7MVlj30/kWFbu8mdDmw98e/v wrb1jvr/IcOxiHPP18eT4bRnZI1sCRmmFjKHW4lk2GNwemlwHllwPxgjZ33u zDsynCtIj/bE9plF0eZt6o/JULqDtHRiDQmWrdh8Pf86/16QJPC3Sgcx4aXX sHOn8PzwKz8ykCgDqvaXiTC/ct7uQl8y7NugcNjlEhF85DPd2PZkwX1nkp51 YCXm37+4q2buqyFAWf9dj8YFZFByGNGPPUCATn0zfzSXLLhfvaMeUt8iR4bN L4sNlmnx71fJEPro7pq1+VNIRj6JmzVOwsc/he4HH7H8XE8CswTL8QDJKSyO jq0/VEES3Pf2/ppZK5xFAnFJP+Ytr0k0z7zNR+MpCV+vE2horWLIg3jMDqct bTzfTyCJK7E3LgWQBPfL/P282f/P7kgMVwabdX8HOxJ8zSxSn3NiHOlaeNga bycJ7qtn7rS5sB1hz/XPZZ3/NYau5DatOLWCBPtbgyurKjBc7GbRKqpCEtyH l/lftjSZgdn5+fzxAH0+riZBieUWSdmMUSS7rVF23SBRcN8+Wr3OT6WcCFv0 7nlUj48g6csGfsQsouD+XmunlU7/FSJszdrst2NqGMWt2/ng7Xki/MunVA2j sUX6w1uDiUDt9rZwz+fXCxDhgJ+okXnSMNrbpn8vdBueP8XisgVV/sFsPSIo olXsAzeHECrbmaqnidERUsuDvYfQRc7ti09kif+3XgHHL+MiE0pq2YNIyIUj ym0jgHyk2xlXj0G0Yo/JslXYOuDXQ4SUd52/lkGAe+XD2qXVA+hksnFnXDoB 9r/TOthfMoA8NehSThj+4tdbhOgH1/24QoC/1/K3T6zF42gMz4UpEezPUgaQ 1Y7nX47uIgjqN7jpyvJ+BgSobJj/sEa5H5ltKd1wUBfDewopAa2cfsSWqm1f IkfA1xM/D0GADNkkbrhtHxoMyaxJ+TqFGoJOyjuI9CGRsyylC4+mEL+eJETx 5BFdgym0OTT8iY9OL+KWnXu9jjWF7lXtLTz8twfx8bWPvuHDh6U96HJVzF7T 0EnEr18Rqjv7WtJmEs1GF2QelvHrOieRXVzcekObbtSZu7rGv3cCx9/dSHH0 fkr7TSy+OZLOWHv2L1rhQAxQ2IHHN1VdePsJlLlhbYliQydaqNOzTrd8HNnv lLl3Yl8nOiUVnBOzbBwR7HI0TxT+QZUT6yYXYPEYv35n59SRPS8lx1GB+3Hf pRZ4PQ8WvxVUHzNYqPUHVZRt81jlMSaop2vo+5OotWoMLepeQ+w3bMP5x1CC UTvMj2hFhzyeBs7JHhXU67VMhSlGeY+it0pUS9clLag8xjDNd/UoipSKNFid 2Yy2V/hQjnFHBfWA0+1GUZd6z9XHUs3odC8t3jZ+BJnYmh+JU29Cin4B8/0d RgT1htP8IygftpZ+jW5AtR4azTeKhtHnwtCMftUGNJDxq3tX8rCgnpG/ziPa l0v169ehFKB56Y8OobxJDX9vjTok/KNQdfHAkKBe8uq3nJY7P4bQQdujP+5X 16JlZqvzKi4ModgtxV/2atWij4kPNbN0hwT1mDeD5JuVFIbQok0td/JcavD+ hlCEhJGf2pdqtNrs4uDWw4OCes+qVO0x3dWDyOr7+7sOp37i/IPoap5nY8uK SvSoPFRP5jk/f1aByhXjOjc4DaCLQYH2hnd+4P8PoKqSeSJWv0pRrRL7zfaO fkE969WDv96kJ/Sjw4+TTunZlqDWTNf80TP9SC3MacIqrxjlpNlTa/n5NaUi VFR8/XwFqx9ZHj65MrC2EJffj+5nXJvV5FuIPv7aKy52tw8V6rFWUXq/oQrx W/XrzfoE9bs5QSfjr2r2IePYmkmL+Xl4+z5kI6f8uWbHZ7SS4yh84W0v4s2t Nsy3zUEGw+fCe472CuqHfXqP6vw16UU5NrVCqrc+4u17Ubfsav2Tv96jx263 onMwv6qZpSd0OuMdOr22QNTodo+gXlnx8b0uGdse9IZE7co0foW370GKwYNv trYnozFN+lhXezfqqhp9GPzkMfr/r7eWh4RiBR8YosOqn0Uaka/lIPa5x/iS QDqk5jguu3deThAf+C474iFiKQfkjyeKeBP8+2g5+Chu3mzAoUG0sFt4Ua8s XHjo4iXcKwV3bo99T2+TFeBvr57odvJbWdBeeFCp3kkKxiakF6lHywrwc+IJ izrDi7LwWmiSFtbCx8OyMPIoR9zzgyTEZAe7mK2SFeDl+AW3QleryIL5Pk5H UTW/nkEWnigsrYz0kgDXg+9dfbtkBPjYzUXu2IHPMkA2/vCooU0cdAtUonM/ yMD2bakvbCvE4Wiev/l4tMx/6i9kwMzKL6VbUxwU07omw6xkwGLhyurDxWIQ FpK6WgpkBHh4un8ZUBaltJf3UaFw4dxVnB5peB9oXupWSAVOZLDXSJO0AO+2 qMapJqRLg1CVBOH6Jiocta+wX31PGvrORp+7IUOFj1N6zOwQaQF+Degp1/A8 Jw1l0rND7QrxeplT0pB75JWITaYoyP6lhBVrSAvw6vlZ548MyUuDb9f2bMsC vP6HIA0qjqk7Nl0UAa9jO1aaF/EE+NSy6tpMh2c8qFwxnND8XRiXzwPSs2uf khyFQbN6Q3LZQZ4Aj/po6hp4r+KBZEi76ZcSIWhH846lsngCvDndHybvdOK9 cAMhOPpB48aZH1zY+tKpyLGSAlv8r6y5/4IrwI/T/XHh2f4lIQ8xHHqT13+q aS8XCl3Yruq1ZHh+6YMudwv3P/VdXEhKrGHLDJHA0925u22YA4WhnkGXW0iw eBnJMLaXI8CHuSMqDPE8DrTIhDt1+ZEg5IET0/cDBxLIm6JV9pOw9T585VE4 P89Igjj3upjTIRw4HuqrN9HJv3flgH5vnKc1FvfPZfnXHNzCAWrU6u4eDyK8 LatYOGshR4APqVHnTW3kObBrznbJ/j4+3uPA8pwqE4unBLg+kS28rokNycpF 37sOE2Ch9Pzlq76zBXjxitsr3tpkNkTKvkiO7pvC8QDGb+n/Z6P8FHriV9W4 9wgbvkVt/9s4PIlqLL+yCR5sAT48wLKTjlrFBounaj5ptElE3nNl9Wtgg5zC m7jQiQl0QUhf9xOdLcCDO/cohOiJseHGhQsHThFxfEhgQ+y25l3vvo6jUeoF 3bYSFrA95J1qKePI1Sr6icozlgDvGcXnPS2LYYGM7lpfV5ExQV4ufWkRCvcY RZrqp9M5zizQS3ah/RQdRcv0E1wjLFgCfPePH1iwjXps78tVI0gvZPnYJ22M /8DC3G+iI0jnz0n2H2WWAO9N68eCN9EvTcNpw8gqYbsBaZIJ7Dv970uEh9H3 Xz/dT47z6w6GETFiBnddPxM22Dl6VJYPoXVLTyw+9J0pwHfLdly6Yv2FCSt4 jJoTFBzvZTIh2L0iNK1oENV2/tiuF8cU4LsTLipDwZFMWGRKOb9+io/XmFD7 O565NmwArbPbeeaFD1OA7zR1FNNM9jPhePk1rafzBpD1Jb3vpnZMyPX7ki8z 3I/WK9jsrjdlCvDdtD0w/bxHY86v7Ec+z0m1JzWZUEINVnL/24eWF6s9eT+H +R98xwRhVRXbhM5eFP/G9WH+BAOWfnkSNl7fi3xN2NLzxhmCeuG3G0n37w8w oEdyc9LA6160hT3bz6SEn6frRQMbDDKVvzJggyH1ldkPHO9lMmA2aeqqR1AP Oij3GpwfMQT1ytcfDNgF3WBAvFq4/YKcbmQx/4ZjZCAD+Phu2j4MsH9JVH7L 7kZN638/SHHD9IHahZXb/6KEI2n5pfYM+H/wni0DNLaNVMODLnQpZVNskQUD TFJm1fav6ELqFx9F/DFkAFPagvlOqxON/VnZUAwMfD1jdK2LWRRGXwrdGBU6 uxO3JwPkzlffT+F1or8f1dfryTME9d2H+yJsJdgMcNLKdTFo5L8/wYAZthOs qOw2dNc43VZjig5n/F1++LxtQ7WeYBQ1SRfUk5+VKHkRNEGHim3dgb3xGH80 1ymljQ6J+cWjP6+2opluRnXwi58HbEX1nMhA1Sw63HlT2Z7i2IzeDK+nbP5I F9S/i6UUiSR9oMPBauml6QY4Xsykg9b3nPgn0s3orkb6hueP6XDW/MWDfFoT +rD38Mbld+mCentey7Fxzxt0+J50qY/7owE9bLuu6BJJB5OV8+6tcG9A4/kb g+zO0wX1/K9Zp6xagujQ+yH81+5b9ShMd6ub+2m+vjiePEUHqRhNNd7vOqSp ZTLn4BE6mJbkHtfbXYd8H1lf3OVFF7xPoJTd3frQnQ6hKbV73j+uRXZWafUt TnQImGfe+UWmFu3Lf3PZzJIueF/hxNIHTbct6PCp9MUq6fhqZNipulPEjA5b fka+LNb/hUborbvCjemC9yGm55MOahrfiQV9FSjO6gStfBkdUiIsrh3bWoG8 rOUTZZfy9a9ATJ/ufaGL6fDSXTjqpkc5arktm6aiRoe4vqpuiadl6K3J9u7Y +XTB+xwcg18Z3nPoEDbeza4TK0E/PrXHrlWkg3O+8Tqpt8VIwazjym0KXfC+ iOye+586JOhA0zvcu+lQIRpxPJzUJ0wHvZNPzjss+Ir2KRt+DyPSBe+jMBIJ WjFkOmhn3FOPEstHUesM9A2w511rfm5f8zIL2e/6ZHSAQBe872I2U7OvHaOf ZS7/Jn80C+V96j2lidG3zm3MaTySjiSvvjiiJnhfJx3Fi8X+Usbow+vurh9w SEdxd6ovkTBaWmF8V6H7w//P+z3/B0/pH3w= "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58}], LineBox[CompressedData[" 1:eJwl1Gl8CAQYBvDNlUQ6FRGjQiEViszM3LetXW7b2L2xyzH3Nszcup2lRCpH CEVRiYrIWa7uQulCOUr//frwf9+Pz6fnCYrLDM8IDAgIeMJ53G9NMG0IoS2h tCOM9nSgI53oTBe60o3u9KAnvehNH8KJKM0hkiiiiSGWvvSjPwMYyCAGM4Q4 4klgKMNIJIlkUkgljXQyyGQ4I8gimxxyyWMkoxjNGPIZyzjGM4GJTGIyBRRS xBSmMo1iplPCDGYyi9nMYS7zmM+TPMXTPMOzPMfzLGAhi1jMEpbyAi+yjJd4 meW8wgpW8iqreI3XeYPVrGEt63iT9WxgI2+xic1s4W3eYSvbeJf32M4O3ucD PmQnH7GL3XzMJ3zKHvbyGfvYz+cc4CCHOMwRjvIFX3KM45zgJKf4iq/5hm/5 ju/5gR/5idOc4Sw/8wvn+JXf+J0/+JPzXOAif/E3l7jMFa7yD/9yjQC9CKQM ZSlHeSpwHRW5nkrcQGWqcCNVuYmbuYVbuY3bqcYd3El1anAXNanF3dSmDkHU pR73cC/3UZ8GNOR+HqARjWnCgzTlIR7mEZrRnBY8ymO0pFVp/2lNMG0IoS2h tCOM9nSgI53oTBe60o3u9KAnvehNH8KJCPx/ZyKJIpoYYulLP/ozgIEMYjBD iCOeBIYyjESSSCaFVNJIp3TUMhnOCLLIJodc8hjJKEYzhnzGMo7xTGAik5hM AYUUMYWpTKOY6ZQwg5nM4j9Q6qMS "]], LineBox[CompressedData[" 1:eJwV0VVjFgQAQNFvAxFRUewCnKiI2B2UiIpDpVVsZ9cmtoKAgqgYg3WzjQWD bSxgCUti1DZYKtjY3QIqHB7O/QM3JCxiUnhQIBAIlUgWsogoookhljjiSSCR JJJJIZU0FpNOBpksIYtscshlKXksYzn5FFDICooopoRSVrKKMsqpoJIqqlnN GmqopY56GmhkLetYzwaa2MgmNrOFrTTTQivb2E4b7XTQSRfdfMCH7GAnH/Ex n/Apn/E5X7CLL/mKr/mGb/mO7/mBH/mJn/mFX/mN3/mDP/mLv/mH3exhL//y H/+z78DI4EAgiGB60JOD6MXB9OYQ+nAoh3E4fTmCI+nHURzNMRzLcRzPCZzI SZzMKfRnAAM5lRBOYxCncwZnMpizGMLZDOUczuU8zucCLuQiLuYSLuUyLucK ruQqrmYYwxnBSEZxDaO5ljFcx/XcwFhuJJRx3MTN3MJ4JjCRSUxmClO5ldu4 nWncwZ3cxd3cw73cx/2E8QAP8hAP8wiP8hiP8wRP8hThRPA003mGZ3mO53mB F3mJl3mFGczkVWYxmzm8xuvMZR5vMJ83eYu3WcA7vMt7vE8kC1lEFNHEEEsc 8SSQSBLJpJBKGotJJ4NMlpBFNjnkspQ8lrGcfAooZAVFFFNCKStZRRnlVFBJ FdWsZg011FJHPQ00spZ1rGcDTWxkE5vZwlaaaaGVbWynjXY66KSLbvYD6wK3 hQ== "]], LineBox[CompressedData[" 1:eJwNwwc7FGAAAODvXEZLUzRUUkmIaCjtRRG6VBqKE6G6E1o/p58l2kVEO5VV 7/s8b148GUtEQgjPHEwJ4blDDvvCl77ytW986zvf+8ERR/3omON+csJJP/vF r37zuz/86S+n/O0f/zrtjLPOOe8/QzSEiClGXWCqaaab4UIXudglLjXTZS53 hStd5WqzXGO2Oa51nevdYK4b3eRm89xivlvd5nYL3GGhOy2y2BJ3WWqZuy23 wj3udZ/7rfSAB63ykIc94lGPedwTnvSUpz1jtTWe9Zy11nneehts9IIxL9rk JS97xWaves3r3rDFm96y1TbjtnvbDju9Y5fd9njXe943YdJeH9hnvwM+9JGP feJT/wP0XETa "]]}, RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", "49"}], "+", TagBox["\[Delta]", HoldForm]}], ")"}]}], " ", RowBox[{"(", RowBox[{"2304", "-", RowBox[{"784", " ", TagBox["\[Delta]", HoldForm]}], "+", RowBox[{"56", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"]}], "-", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "3"], "-", RowBox[{"40", " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "+", RowBox[{"2", " ", TagBox["\[Delta]", HoldForm], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"225", "-", RowBox[{"259", " ", TagBox["\[Delta]", HoldForm]}], "+", RowBox[{"35", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"]}], "-", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "3"], "+", RowBox[{"225", " ", TagBox["\[Epsilon]", HoldForm]}], "-", RowBox[{"34", " ", TagBox["\[Delta]", HoldForm], " ", TagBox["\[Epsilon]", HoldForm]}], "+", RowBox[{ SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"], " ", TagBox["\[Epsilon]", HoldForm]}], "-", RowBox[{"26", " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "+", RowBox[{"2", " ", TagBox["\[Delta]", HoldForm], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "-", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "3"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2304", " ", TagBox["\[Delta]", HoldForm]}], "-", RowBox[{"784", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"]}], "+", RowBox[{"56", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "3"]}], "-", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "4"], "+", RowBox[{"1152", " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "-", RowBox[{"144", " ", TagBox["\[Delta]", HoldForm], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "4"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11025"}], "+", RowBox[{"12916", " ", TagBox["\[Delta]", HoldForm]}], "-", RowBox[{"1974", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"]}], "+", RowBox[{"84", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "3"]}], "-", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "4"], "+", RowBox[{"11025", " ", TagBox["\[Epsilon]", HoldForm]}], "-", RowBox[{"1891", " ", TagBox["\[Delta]", HoldForm], " ", TagBox["\[Epsilon]", HoldForm]}], "+", RowBox[{"83", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"], " ", TagBox["\[Epsilon]", HoldForm]}], "-", RowBox[{ SuperscriptBox[ TagBox["\[Delta]", HoldForm], "3"], " ", TagBox["\[Epsilon]", HoldForm]}], "+", RowBox[{"1283", " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "-", RowBox[{"134", " ", TagBox["\[Delta]", HoldForm], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "+", RowBox[{"3", " ", SuperscriptBox[ TagBox["\[Delta]", HoldForm], "2"], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "2"]}], "-", RowBox[{"58", " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "3"]}], "+", RowBox[{"2", " ", TagBox["\[Delta]", HoldForm], " ", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "3"]}], "-", SuperscriptBox[ TagBox["\[Epsilon]", HoldForm], "4"]}], ")"}]}], "\[Equal]", "0"}]], Annotation[#, -(-49 + HoldForm[$CellContext`\[Delta]]) (2304 - 784 HoldForm[$CellContext`\[Delta]] + 56 HoldForm[$CellContext`\[Delta]]^2 - HoldForm[$CellContext`\[Delta]]^3 - 40 HoldForm[$CellContext`\[Epsilon]]^2 + 2 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]]^2) (225 - 259 HoldForm[$CellContext`\[Delta]] + 35 HoldForm[$CellContext`\[Delta]]^2 - HoldForm[$CellContext`\[Delta]]^3 + 225 HoldForm[$CellContext`\[Epsilon]] - 34 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]] + HoldForm[$CellContext`\[Delta]]^2 HoldForm[$CellContext`\[Epsilon]] - 26 HoldForm[$CellContext`\[Epsilon]]^2 + 2 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]]^2 - HoldForm[$CellContext`\[Epsilon]]^3) ( 2304 HoldForm[$CellContext`\[Delta]] - 784 HoldForm[$CellContext`\[Delta]]^2 + 56 HoldForm[$CellContext`\[Delta]]^3 - HoldForm[$CellContext`\[Delta]]^4 + 1152 HoldForm[$CellContext`\[Epsilon]]^2 - 144 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]]^2 + 4 HoldForm[$CellContext`\[Delta]]^2 HoldForm[$CellContext`\[Epsilon]]^2 - 2 HoldForm[$CellContext`\[Epsilon]]^4) (-11025 + 12916 HoldForm[$CellContext`\[Delta]] - 1974 HoldForm[$CellContext`\[Delta]]^2 + 84 HoldForm[$CellContext`\[Delta]]^3 - HoldForm[$CellContext`\[Delta]]^4 + 11025 HoldForm[$CellContext`\[Epsilon]] - 1891 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]] + 83 HoldForm[$CellContext`\[Delta]]^2 HoldForm[$CellContext`\[Epsilon]] - HoldForm[$CellContext`\[Delta]]^3 HoldForm[$CellContext`\[Epsilon]] + 1283 HoldForm[$CellContext`\[Epsilon]]^2 - 134 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]]^2 + 3 HoldForm[$CellContext`\[Delta]]^2 HoldForm[$CellContext`\[Epsilon]]^2 - 58 HoldForm[$CellContext`\[Epsilon]]^3 + 2 HoldForm[$CellContext`\[Delta]] HoldForm[$CellContext`\[Epsilon]]^3 - HoldForm[$CellContext`\[Epsilon]]^4) == 0, "Tooltip"]& ]}], AspectRatio->1, AxesLabel->{None, None}, AxesOrigin->{0., 0.}, DisplayFunction->Identity, Frame->True, FrameLabel->{{ FormBox[ TagBox["\[Epsilon]", HoldForm], TraditionalForm], None}, { FormBox[ TagBox["\[Delta]", HoldForm], TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], LabelStyle->{FontSize -> 18}, Method->{"DefaultBoundaryStyle" -> Automatic, "GridLinesInFront" -> True}, PlotRange->{{0, 8}, {0, 4}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.745754247828687*^9, 3.745754598189953*^9},ExpressionUUID->"dec56bd9-ad1d-4bbc-86ce-\ cb9ecf03a971"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "%"}], "]"}]], "Input", CellChangeTimes->{{3.745754570002149*^9, 3.745754595758347*^9}},ExpressionUUID->"4cfe26ba-565b-4ca0-916f-\ 00ae37bb6198"], Cell[BoxData["\<\"Strutt7Termos.eps\"\>"], "Output", CellChangeTimes->{ 3.7457545988123217`*^9},ExpressionUUID->"1f67ccb9-fb8e-4a31-91f6-\ 646633e2ef15"] }, Open ]] }, WindowSize->{1904, 997}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1940, 63, 45, "Input",ExpressionUUID->"a0ce0135-1c8c-43c6-88ff-145dfab1b2ff"], Cell[2501, 85, 444, 12, 45, "Input",ExpressionUUID->"a6aeb94e-3e65-4a86-a94b-644077ec2b75"], Cell[2948, 99, 320, 7, 45, "Input",ExpressionUUID->"5131098d-e1ab-4003-9cda-e892ecca2860"], Cell[3271, 108, 435, 10, 45, "Input",ExpressionUUID->"7e903a89-7a2a-48f4-9982-c539e165e410"], Cell[3709, 120, 505, 12, 45, "Input",ExpressionUUID->"2bb70182-638e-42bd-8b42-dee336f24049"], Cell[4217, 134, 287, 7, 28, "Input",ExpressionUUID->"5ce4e926-5859-446a-a5bc-325b6e7b48d2"], Cell[CellGroupData[{ Cell[4529, 145, 462, 11, 45, "Input",ExpressionUUID->"b85afd05-bafa-41ad-a3b1-4bc483e95720"], Cell[4994, 158, 7308, 213, 52, "Output",ExpressionUUID->"d91a5c46-ec41-44e4-86a2-172c0ebd1680"] }, Open ]], Cell[CellGroupData[{ Cell[12339, 376, 5065, 105, 102, "Input",ExpressionUUID->"ac963dab-2b67-4f07-b525-abad7f53461d"], Cell[17407, 483, 3950, 85, 283, "Output",ExpressionUUID->"f690f155-f7fb-489b-9111-6cc54f9d591b"] }, Open ]], Cell[CellGroupData[{ Cell[21394, 573, 225, 5, 45, "Input",ExpressionUUID->"c3e38d35-0173-4f3d-bfee-b68d628e27e8"], Cell[21622, 580, 3282, 83, 59, "Output",ExpressionUUID->"e62a31dc-2e23-4912-9e83-b95f07edf025"] }, Open ]], Cell[CellGroupData[{ Cell[24941, 668, 478, 11, 64, "Input",ExpressionUUID->"e9ebd5c3-4705-4819-b14f-0154a9319cb3"], Cell[25422, 681, 1267, 25, 32, "Output",ExpressionUUID->"f70589bf-e410-4a4d-a7b6-eeaa76cdd590"] }, Open ]], Cell[CellGroupData[{ Cell[26726, 711, 1171, 26, 45, "Input",ExpressionUUID->"a6222f8c-657a-442f-ad09-19d9a91f3e5d"], Cell[27900, 739, 1249, 20, 23, "Message",ExpressionUUID->"4120a906-07bb-48a8-b052-b22df4d208ff"], Cell[29152, 761, 773, 21, 32, "Output",ExpressionUUID->"b7d1d342-c95a-4b3c-a9d5-fed6d103f7d9"] }, Open ]], Cell[CellGroupData[{ Cell[29962, 787, 840, 23, 45, InheritFromParent,ExpressionUUID->"3c030d71-8c2d-4391-8e06-813b082b51a8"], Cell[30805, 812, 26407, 490, 394, "Output",ExpressionUUID->"dec56bd9-ad1d-4bbc-86ce-cb9ecf03a971"] }, Open ]], Cell[CellGroupData[{ Cell[57249, 1307, 232, 5, 45, "Input",ExpressionUUID->"4cfe26ba-565b-4ca0-916f-00ae37bb6198"], Cell[57484, 1314, 156, 3, 32, "Output",ExpressionUUID->"1f67ccb9-fb8e-4a31-91f6-646633e2ef15"] }, Open ]] } ] *)