(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 223961, 5196] NotebookOptionsPosition[ 207118, 4902] NotebookOutlinePosition[ 207532, 4919] CellTagsIndexPosition[ 207489, 4916] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"RA", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.807937410183785*^9, 3.807937441988011*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"acb0bf50-ba88-41d2-a027-221de6de8065"], Cell[BoxData[ RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}]], "Input",ExpressionUUID->\ "5f40d817-73a7-406b-bb3c-bf2b781027a9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RA", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.8079374445727053`*^9, 3.8079374462184963`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"6f2d5b68-eb16-493d-99cf-f43559399bc2"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}]], "Output", CellChangeTimes->{3.8079374467541323`*^9}, CellLabel->"Out[2]=",ExpressionUUID->"e59f1745-e682-4639-b126-19bdfcb2aad1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RA", "[", "0.25", "]"}]], "Input", CellChangeTimes->{{3.8079374529000683`*^9, 3.807937454989196*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"17afcaf9-b5bc-4cf9-a3f9-4856a8264dcb"], Cell[BoxData[ RowBox[{"{", RowBox[{"24.`", ",", "35.`"}], "}"}]], "Output", CellChangeTimes->{3.80793745554503*^9}, CellLabel->"Out[3]=",ExpressionUUID->"2c5b8f21-5da0-4a2e-9dbd-07a5bb2723cd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "\[Equal]", "11"}], "&&", RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "1"}]}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807937507295671*^9, 3.807937596458766*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"c93687dc-926c-4e2c-8dbe-22d0bd5c84e3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.807937568010124*^9, 3.807937599857888*^9}, CellLabel->"Out[5]=",ExpressionUUID->"af21e17f-1b8f-459c-b985-c9989f940538"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "a"}], "]"}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "a"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "b"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "b"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "b"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "b"}], "]"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.807937693583722*^9, 3.807937734789652*^9}, { 3.807943112780156*^9, 3.807943163630412*^9}, {3.8079431972662287`*^9, 3.807943231995747*^9}, {3.807943274140852*^9, 3.807943330853388*^9}, { 3.807943385439063*^9, 3.807943392074876*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"f0488430-e645-4b61-8112-8e2b131e9d8a"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = Null, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], 0, 1}, { Hold[$CellContext`b$$], 0, 1}}, Typeset`size$$ = {540., {294., 302.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 0}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ParametricPlot[{{ 24 Sin[2 Pi $CellContext`t] + 5 Sin[10 Pi $CellContext`t], 35 - 24 Cos[2 Pi $CellContext`t] - 5 Cos[10 Pi $CellContext`t]}, { 24 Sin[2 Pi $CellContext`t], 35 - 24 Cos[2 Pi $CellContext`t]}}, {$CellContext`t, 0, 1}, Epilog -> { PointSize[Medium], Point[{{24 Sin[2 Pi $CellContext`a$$], 35 - 24 Cos[2 Pi $CellContext`a$$]}, { 24 Sin[2 Pi $CellContext`b$$] + 5 Sin[10 Pi $CellContext`b$$], 35 - 24 Cos[2 Pi $CellContext`b$$] - 5 Cos[10 Pi $CellContext`b$$]}}]}], "Specifications" :> {{$CellContext`a$$, 0, 1}, {$CellContext`b$$, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{606., {411., 419.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.807937735175765*^9, 3.8079377366754093`*^9}, 3.807943166504339*^9, {3.807943232600645*^9, 3.8079432438527412`*^9}, { 3.8079433316135178`*^9, 3.8079433346355257`*^9}, {3.807943373176889*^9, 3.80794339440683*^9}, 3.807944054397526*^9}, CellLabel->"Out[31]=",ExpressionUUID->"ac49d418-b9a8-473e-8010-f4bf5ce87764"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"RB", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "35"}], "+", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8079380774192553`*^9, 3.8079380802750387`*^9}, { 3.807938336234724*^9, 3.807938351280416*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"7ee4a8d0-9f9e-4d30-b510-b2d4cd2c66ce"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", RowBox[{ RowBox[{"RA", "'"}], "[", "t", "]"}], "]"}]], "Input", CellChangeTimes->{{3.8079396573055143`*^9, 3.807939660524506*^9}, { 3.8079398519171553`*^9, 3.8079398552467117`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"100edf69-05fb-446b-a190-9ae4c859b520"], Cell[BoxData[ SqrtBox[ RowBox[{ RowBox[{"2304", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}], "]"}], "2"]}], "+", RowBox[{"2304", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}], "]"}], "2"]}]}]]], "Output", CellChangeTimes->{3.807939661016967*^9, 3.807939856064622*^9}, CellLabel->"Out[13]=",ExpressionUUID->"bd7cc9a1-95ab-40dd-b53a-70c24295059d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", SqrtBox[ RowBox[{ RowBox[{"2304", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}], "]"}], "2"]}], "+", RowBox[{"2304", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}], "]"}], "2"]}]}]], "]"}]], "Input", NumberMarks->False, CellLabel->"In[14]:=",ExpressionUUID->"97e8a9ea-f550-4b3a-bfda-1af6ad589b0e"], Cell[BoxData[ RowBox[{"48", " ", "\[Pi]", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}], "]"}], "2"]}]]}]], "Output", CellChangeTimes->{3.807939859354706*^9}, CellLabel->"Out[14]=",ExpressionUUID->"9174f03a-0946-42bb-b719-ed2d85dd2b23"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "3.12`"}], ",", "3.12`"}], "}"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[12]:=",ExpressionUUID->"2bc286b4-e038-4bcc-870a-70e339815cab"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwcmnc8lv/3xzOyJUJm9srem0P23m5u474uIzQ0SVbJSilZJRUliiKKEHEa VJTKjE8qyiiliJbG7/r+/rof5/E473Xe5zzP+3U/Lhky1iuCedWqVckcq1b9 7zczS7jUKpEO+/o8zx3pC0ClEiUWrR46PGkjeRMSApBH1ltovUgQ3M4QX79X LgB9Olha79UHQeng5c7KPTRct+b+dYehYPg9aV1vw+OPdCbh8VrxEHBzM1jF XO+Hfr6nWpcZIbDkW+I96+WHNe4DnnKzIRC1nTFkXuyLk6a5Q/WzoXAMBKu3 r/PBsrtmfF8FGPCThwmG673RNDWDXNZigOJpPjjk6o16Ed3ValsYsEF9g2F7 uhfOhK+PC81iwPuoujPuUl7YLsh0YfkCA46EmzgYtnri7ahnHA4vGMAb6VQk MOeB9lKxTsyLDPi80/AF7yEPbAhR/SnOTcDaleqKrWIeyPDM+xhtSoD3fudr D4+54aPK5vP+hQQsm9xg8tF3xmtEVsnSZQLo6w74hQQ5Idb/Z/ShnYD3vVOv t6c54hchTH05SUBVHueru732eHWirXNkiYCbOuXHhT/boeCK9AtlNhK8WWbm 8/jtsPqlKEePIglnF57miPnYYAZz4gcRAxLMDlfYmOzZhFsr5kzabEjoYZ6v PF9gjd54g+lHKAk6UylVUc8A52gLe09sJaHCUuRrw3+WmKIr6JO0j4QU/X9N 4UIWWBLxOM/mGAnTl/PeHMowwYZtP6VlTpFwulOVU6DdCMfarVNcz5Owvk7v adOCAUbatnk+qiaBxie08YCiPoaO/nUqbCDh0m1r0bRAXbSR15euayGh+O65 ise52tgbKXhMuJOEyF+XaicOaGLS0lv/J/dJaBHekvvvnSrK7E6x739ErT9l LCrkoIz9/3mrK/SRwGGcl2tTI48N5lvedD0nQcJou2Y9twxKWYdbNA6SsOKt VLz0QgwP79qn+mWYhCsjeyNyStZhgWVSfsILEj7Muy0/vs6BTY9eh3uMksCV Oa9iELbUabzl2uk9lM3a1XN83HLCsoClUGea8hf5cf0f4zkzhHpb86aNUPFs 9E1UteWHLRqv+FyGqP01XZSalhaFQGF2b5t+EgTKPu++nywNZE7Sjxhqv1V7 KtVDYuQh+biEKlLncVMqzBb0U4al/okNNtR5rR1grA3UIG3zxNrvt0ko2f/b SlBIC/5IONiP3iTBfyRk/3pOHXi1y59/ro66v7snhjx/68IhBfKBWhUJw0/P lNbO60OG38Oec2eo9TIMNgi9MQRbj68ZVvkkLPc2te56Zgz4zmOrUBYJ1YvM w/WdpiAS5fZLLJGEetXsmdZacyg1bFO9zSDhqCTbgbm7AP+4ni0FepHw8l6M +JtmK9ARulevtomEv97yJN9VazA6GF63XZaEE/uPJ309YQPM+28FvVlLAsvl 52oFh2wh6pf6SPZfAjhpe6037bGDFU2IOThCQLZCfHeNlwNs687RH7hLwD+F B+Gu4AhLtw11QmsJUDa1eTSs5gQ3K/4eUjlAwOY9wg/3MLtA1OeI+xUSBEwc jLqB59xBZ9Rb9C0TAW8UY+QsrDyAHI9hjZhmwOzHnneR1z0gqYN1u34tA3z4 8ioz8j3hovE/HjUdBlw4oOi5w9EbxI7o+FfwM+DwgQODkk3e8OdYst/TN6HQ tO36f5+lfEBhTiPtln8oCARenZ1f9IGfy+qsrvohcOF4kftorh/YvMV0xvtg OCn4hFl10Q8+rOJ/p3gmGKT/K1FO9vWHex0Zt0f/BEFU9KVj/KI02BfJt834 Oh0UpVdOpxcEwNoA+zW2QXRYtKjbGvY5ADbTVr5LraZTeVYSKeMUCB+3Srz0 8g6EHbsjhVR/B4Ld+TFzsUkaLDB1MXF5BUHbBbokeZgG6WuPfeQsC4IffK3t bZo0YP1v+tPXD0HweOLLeEOCP4Smbr+1PzUY9rKpcnGz+EHffpcDq0tDwF9M k8O6whdWuhb/Y38dAoSl8Mcqa19Ys8lx7yuZUOATyRXiTPUBsR2pDn8rQgGa b2w7Oe8FN/7QFCddGBCsWPKmMtsLvltZ8gvEMKCMzhG8StYL4qPETl/IZIBh /y/uai9PGBPwNpi4zYDje7vE/733AANeG+1ciqusdkGf6w94QLxmREkRxVX1 ROn7sTR38K6g3W+WJ6AF8qU3prnBLkZo+VMzAir7tkN7jStIF/BLgA8Bxk4n 07N/OANLT3yM0kECtt9wz76c5QApO1MEfvQTkGrzSoSj2h784oa2354ioLGl fe7gIzt40nuEeeg7Abk34p2m2W3hrQ+zyA9Rqs4XWN5NKNhAoLKTG/NGEjbO lIyJbtoELzbwKgQZkxCooOxGJFpB+q/UyN++JIjvVxVMKwbIOmfSZhVGgmWh 6wkW0hLUtuelD8aSQK6SgP4ic1ji2uLQSNXZz2Wj6oMPTWGeSCl4k0nC81Or XOR+GYMXt+tP2gkSruVxXX+40QjGN6sJSpaS0Hw7dfuhQAPgTnLIULtIwuzx WMmIw3rwNvvSUuZVEhZ5FcJSm3VAnlTnV2skYd+hxLm377Rg7uC5PPE2ihOv Ivod5DRgx+gFTd87VF07ZG+sTNwIf0IeNrzoJmH1nuigVQOK8IiWMVHZS0Lb nqH5ZBU5mA03yWt/Ss1/bdVk2t8N8N5cr1higITyyoDFl5fXQ6RZbX8Xxb2G xEo7T6+1oFXUp9pCcXHFQMjS7RsTGPk0HPtKcXNFU940yGTMUkQw9HM8xdXZ 1XXcdU+/dVrv6newpWw1630DOcJceMPy+xk65R9Wb3dZmhTEwO01S7cobufJ v/ml3yKOf261hoZRXA86d02gLFMGn6x7u+RDcZ/TyNRUaIMCnlVfnXbxCQn2 L3+6djcqo633vnwbirPnjX48znNSw8kLa931Kc4OzdRYe7/WxJEMtpm4Duo+ Awpk4lq1UenH0nFOqi9ttbpqcDZNF8ULRzI+1ZPgE7vBYI2zPqaTHNxyVF+T PMSd1CJgiNtizaNqyqk+cG9gy5FRIzwml/nx0EkSnFUadsSVmWAE6fDpWi4J t0S9/kaFm6HzNvNujUNUXx3ffcJL2QJ9jmwfXUX12UutSfWyc5ZIxmkfV6T6 MP0FV1z4MODuXHm/cqpPP34CoqrF1miavXnhBNXHi4krzmv2bsKsr8Z3uag+ //zYj2lTbxtMiDA6O0q9A44fXvnhy2uH1vkc1xKpd8K9+SpPnfd2qCTyaZ3H MgEBh2+OGN23x2OGIq+T3hLgaVV+6GK8I2ZyddtP3iaAq7Pn0U93Jzx53tRG ooYA9D+WEqDkjK+fPAtvKCJgIe/7oMiACyaX5wh8iSEgR1ly9NUaD3wryRY7 xEuAU2WdX3ecBx7c+q3+7xIDrt2/oib4ygMjNfwaDv/HAA0B7ZGBGk+85Rxf /bCK4ocaIZ9o5o3C4Uz/rTZgQMvoPzP1Mm9kLs90pokwoM86Ul+ZyQc/6Gdw qyyFwv2V8rQPd33w2VrL3LPxoWDZ88jCwtwPVehFEUM7QuCqXdfIYIkfpkck svmrhYBa/kjaqWU/vKjSw9s5HQybuyKaSmr80bTpWaoLLRjuvQoaUOIKQKlF vfgqjSCq/sz5ekMDcMvCweyLE3QIqnNMPNgYgDs92sPOFdDhYoRRvjg9EAWO Ck7mLQUC30RjbP0ZOmZvK/x4tyYA2FRFZJQW6KiuqVPR5BYAcofKvsfYBGHr WPG2/AUa1P19MuI8E4Tb4zptxPRo8DPsRj3/hhB0E5G5OXTVD5b6hJLyokLQ 5Nnj2CMOfsDyN8fvTkMI7nrIvNvlrS98EFnTogahWMM60skk7AuX1op9ilFk 4Lq3KceadnjD7q52XQc7Bgb+/Btutdob0vwncVcEA50/rAn8fcoL6LFkcM15 Bt7+fcFMoMMTcph3jjR2MHCtvfmxOHdPkP+YuY39PwaulKp1S7zxgAPSxaIH +Al8p1wrkv7XHSLFg0crVAl0X9WVWiTuDiZxbzi4bQls0/lh72noBnK/AsPK 9hJovEFQ/3OMCzjv+pJx7wmBx+7YiY7dc4C7xvzc0xMElhh23vQesYdIrggN m2XKrg1Le/DeDu5E+a6uFyXxmtnwzm5uissLP5TbN5KYq86yPlLcBoor5ntW mZKIZ4w+Km/cBHlnHz3QCiBxzOl+oZWtFVxxVB0R20ziYIiF/lVPgLMbpp+Y 7CEx2N/B4sEtC9BOHhHPO0D5+zmdfvfMDFwDjhmLHSWR1kRP65oyATtOz8sv ikm0rpllT/1pBKeaZBd7ykn0cOF0VOQxhOqoh9Vfqkncdakk9pmkPth2PIlx vE5itI9nfb6GLgzrHB4dbKXmLx5zTLPQht/80hX5SGK3RD97dKkG7GPNSU7r JvEdd3lQcstGUDcvVLrYS+KNx1qwdVARJGzfRX1/SmJZh9o2xmdZcIr8xZ80 QOIJwRVPznUbIKBJ97f2MIlb33w5xG4nDCOtvZyiL0js75A2kP3CA0pN4wra oyRqSDfpfK78ZTmfFWGzn7JTd5k2bPTr71xrAOQS5X/986Bo9CwTbuBUyygb IdGWS1Ts4t21aO35sC1xiMQ7waKn6HkieO1+oeThfhKP+ivUpGlI4/HkLz0P +qj4+jwdUBCUx7RikU+GPSTWs8olf/yhhAEPIkdMu0gUurCetDqtisOXMg2P dpKou1XO+piJJta5/rdJhYpP2Rl2wxdbtSmOJxqvo+I3lTRdftdUF/96qgc5 1ZCYnT0hsMypj1WDm7/1nSdRqpTbIWTEAPs1Lr68c4xER/reNXmxJghnX7/S SieRqjwLAxMz/FXH1zW/j8S18Q3b+1gsUM2scpHGIPGtuYn5w0eAPA66Cmze JH6us5d9fNUK29z+8rPaUud3zP6ueNwaV4d0Gy0pUvnl8/5ip6cNBpJu+TPC JEZkC1z6qG2LR09vmFJnI/HKbpl5N0p/beVe/N00SeV7k+yXE0/sMfGJgdDP pwT+k2jiJ2scUE3F5MmJdgLn5Xns7DId8QS/HueDAgKLF4XWbTR1xg/z/usi UgjU/TFHExV0QeHdmY/oUQRqW0Xz/J5zwXAP2hE/EwIdlCbTEk+5IWdX84+S YQbSMbf5zoIHfvwi2CvUzsBfeyvcTwZ44oEDa48ulDPwvWnv1270xJ52m/nH UQxs3IC/5HO98GRBvyg5GYqrTuVf2inpgwr+tWyFFaH4uk5CrDbVByPXjXud DAtF3+jU/fITPmhz5PRF8TchKDypk9hy3hdrqwxeMnqD0eLjbpJf1B83hOTI hh0KRl3BjO8P9vgjk3+kpLNJMH4ubtQ699QfP4y0K41cDEIxk3TWM2k03LZW qUBjGx2fd612PDAegHkXwwxrJehoCJ4vh7UD0WvLRJZybyDuPLB+UicjENdN i0bKKARii7Xh6LwyNW57buPuJzSUz50olQkPwmnBnwW4jYaed6c+XLgZhDv4 p9lWeGi4pjXyygR7MLVuxjVHB3/csTvO5XBVMO7ZsNj/4Lov/nk99Uh6MAQ/ 7Bzo/OXkiwob+v+oSYTi6lKH/RaTPqjHvXDzPzIUbwgl3Oda44OPjJQZgh9D sd/t8Zgx3Qs/Kqx0PY1jYGiJlnDcR09M/2toYVDEwDrx8B+zSZ54ks1g2+R1 Bn4eDHTLLPXA+97Bd9k+MrD/E2vVLRUPHF06E5nETmD909aRXdvdkXF5+raO LIHy76W7fcpdkUO3fTzIl0CVqxI7XJtdkM80fXPfNgIflImmszxxxjVfZhST MgjszNq3/vmSI/5UVVLKvk5x+GOA+x82R/ym/mPbuwcEXjvnRawVccBW9shv +14SKOK+k0/I0A5n2mSN7FlIFOXr7ha3tUWxgkPmqUIk3sy4kKvrZYMY1CLx kaqDr1tnvmG0NXa9yyMJexJdlYM5XPZYobFsUVCUH1VnUels61IAvT0s/M+H k1g19p5/lZQ59pza/6IqhfLvNEuL1zBF20vtJrtySMzsPlJy28wYt5BrfLcV kRh0R0pz1tEQuwcFr54sI1Hf+7oir58+huqde/LlMolKnPtirQldPDdV5bGv gcQ1yyos57Zo47xwyJA6xZF9pZI9Wz5ooPyyymp+irOmnuzW8Hsjeuy7ki9D cdb2DEfRFI8Sfnx4xziU4uzR/ZHfsyTkUNU8t/MRxdkHKRmel/w2YND8zkUG xdmXXH7v3u8SRo1p0Rp5irMnms7kMSR4cfht3ANBipus+WZVLhW/Omdb7un9 j7PMducdXZ4MWE6bZ0wlULZHt8bJcRtmSHiVMzxP+dPXxOpfYOeHTbfnefMo znoIXPYQ/igCvrFCpcEUZ9mt15u0bpYGK/faYn+Ks4fulDJdo8nD6OZa2RSK s08C8o3QQRkqvnnHPH9EYuG+GxfQUA0EMuUveN4nMZznBftdAS0oKpti/3eb RGOBExqfOXSgWujc5OhNisvGhi80lnXhmdDGIs5rVB/Si4gufqMPM9IXfm2v IvFvO02Uv9cQOCw1d3CdJTE03Eclp9EY3v5Mp7/MJ3G9wYGpj2dM4SDf+Map LCpfJh5VyqebQ/fDRR+FJBIbszdFMy4BLKTVdriSJGaod4v8PWUFhX0ywoY+ JB6+98B8/LA1XEye/h5AcfaY0T4tw2gb4Fl/cNpNgcTiwenms/62YPrXyU1W kEQJUlNF0tYORoosvmkzk8jb7F1pIekAG8MG1nNS+XsWJVseszuC6eELGv1U ftfFx3U5LzhCTfdU5xiV/6veDAcuozMYeHybqs0kcJdkih3PJRdoWVwXsD+W wJdxD5Y+HnGF2A06LDn+BPbpfv30ztMdQvQ1+eMVCFwuaErbI+oBc+bmBX7c BD6WQjOHwx7QLl6QnfyFQfVJ9hfPIz2B8bMitKqFgUyte+XnRLyBkT+2IwMY mK+W9D7+kDfYq5ez35VmYFOha4T2J28YGDn/x30VA5uP77ok0uED2Uz963v3 h2Kkl3qMua8fXP8y/8wiNATn719qb2zxA82y3u+SQiE4GzPKaSDuDwdmzkU0 PwpGZs+qJdtxSs+P7Z5S0AzGY7F8HCq+AXDUap2Q2xwdKy073iXXB0BTwOYG +kk6XivcWdLOFQisM9LHLKzpyLrF2mu2LRAUtYsS8wsD8fR8v+iJtUFQq3rq 95hqAI4QZ5Mfk0Hw6nKByK8+Gn4KZ80avBEESRWhxTw7afiM12HSzCsYKmKu Volfp7jKtoZD4EAInC7UXeOj7IcxS+/Pp98LAYEQOVG3Hl/kV3DZPLQ6FMRa /43u3+KLe2s929mzQsHnTsj+/Vd8sOWR1uJNcwaUfN7TslfWG9dIX1l8EMgA Y9vGzqgOLxzZMfTKIp4BW50jtK4EeKFRobV7YB0DFKeGldWPeeLlLemVqkIE xE3blUq+dsct6/gW3NUJMI21LHjM446zeiNR/TYEKM8EsPobu+HoD+Vt8zsJ yHyqnSx53AVPfb3pkZlFgENDnF50izOGt59ek3CGgMZztHvX3jgh9y9+rq33 CZhfuavjquGIHLvtn8aMEKDC1MjX6O2A6mfkU+68J0DqfFK7/j57nC76Nreb h4SpAYvx6g5b9KnmCO+TIKF/TOTE1Tc2qP6LwyhFjYRRt8WCD0w2GLfrV81/ jiTUMW2gGVtbY/9RG/1sfxLYThoWBBJW2PfDaDErnISKNTZrX6QCXihgbB7b QcKeP1WGe0wtkaXtonRqEglm00FrBeLMcTrfu35vFgnaPHyBp6+Z4vc18tdu nyDB63hAn+SsMe4llZPhIqU7uQ+7BPgZ4F6D72f3X6V0Lpv6d52jenhPQP45 ayMJXXk1PM53dJDTqurpq1skyCht33F9WQtviC3QOO6QcPHlI5ElLw1ki/6m c7CbhPutt8ojWjeiZLbyRsdeSkd7PSX/26CEeS5J/IynJAQIbPWKPySHw1di 7nb1kzCw7uvQzT4ptFRalNg/RMUnwyHYu0gEk36eZE8eIeH0LSMnDjo/VrFF x/a9IOHouHe0LrDik2O/7LePUvHINxgMVpzp/Hgh5kgQZW/6wMMdF7hgSQ9i mJRQ/u3fjtxpk2OHymHuIHlqvtc2hRYNjwXg+ZzC3z+DJLQMbUodYBMDsRuf 9RSp/eSkG9qtKpeGDXe1xc/2kfBema72y1QejmiZ9pM9JCTWSO/UH1ECl5A3 B+O7SMh7XiaWt1MVPJMSaP91kiCwR89wlksT3o+8yTnWSsKyVOjnXE9tGJ3d 4XPiOgmmwl9KWCV1QUuW+fvbGhIe3inTeTCjB+mbzdf2nCfh24zr6pAXBtBZ pntv4iQJMbeOdX1/YAQflCuTVXNJkD9qy5R60wRS+cxuXjpIgluTgderCjN4 NZf50W8vCZ4XlkJW5VmAVfDXy8ZRJGRsnP602Rwg/tkG5jPOJKwKK5TmV7SG RKXx/yTMSNDRPh1rLroJ7NnqmgZUSdj+V1K9mNsGKpJeb5rmIKH+UzVXxSdb WHV1Y+KmbwQEVtS7WY/bQd6gS8voJAGD+aJO73rtoW751eXGVgLkyxPk2asc YWhJRH6lgoBf42Kpu084QZBVjV5KLgH5L30PtyY6gxjHDWaLEAIOeHxSq3Fx hYD4U71JtgRIqwxcAl03uBB/Gn6rEuAbZVOcLeIOu8z0zt/5xoDrroeL02I9 4M6J3WOc/zGgrJEUWkfp0zyh1fSTHQwIOnm/YpbSrypnaxSzDjGglPaj1F3d CyQeGPq9YmUAqe6dl/XKG1Scsv6+7w6F9wVbPtxy8IHLnzNdmtNCIdGb8wTv dR/o1rRqNf8WAgfin+X/PegL30hjJY8nwdBnNWmfL+wPGSezLAZSg6FBufWC dYI/aB1cncunHQyHhp4uzY/5w8yVK6l3jgfBrhWdCxtLaXCt+HDBNgs63HA4 cPHWmkCQkZV+ITETCMLNu+eHowKh8ymx/sKxQDjyerK6704gXOEyeWs+FgDF O56IW+2gg0Ly99/K4TRIP7TV81FHEEiaiXN8Y6FB7ylnfRpfMHhVM3O1XvCH OCZCozIkGO5Pyfdrj/tB/R+yccvPYNh2ko91s50vXLjYmOAmFQqR71VXu075 QJhG9tN+RijcNshyjD7kA6CQr6d8PhSmjTs2e9/2hg2Xrllt4GPA78B3iv7K XvBXto5vKp0BMRZRRrQ7njBRm9TVU84ABd6lV7UBntCMiot87Qw4ovOkMDLb A9bVs5U0fmHAflMtq5/trsBRKjjg7EVAa5qBl+yUC0iOtvTyRxOwnNS4RY/H Bf7oVNZqphIwyXMlUc/fCTifnR6PrSZg4r7CJ51ERyj2ayvIu01Ag39ykOk5 BxifIFjYnhNgMMNacGTCDi6MOih+XCYgrGSb1DsmO1Codd5LZych/3KabpSM LbTdjWySEKHq7NiBEcGQTfBOd1d2viEJTqW3trolWoPU6ktztnYkpIqXFQyd tALxfdlvHHxI4KwpHxs/awkGz99FmW4nYZAz/ab8gDmsSxhn2rifhOHdLOed 2c2gvSXLMDKD4sjR5oUwExNwM9ty9vNxitP7t3GlbjWCo6v7nnSVkPBOKNWv 7qwB/LJqiZ69QMKV2xudWPr0oOH1dxH/KyTQBz4Qx//owNQbuRz+GyTseP9Y JlyN4si2sl3rKQ6PeJxQUWzSANPKM8eikATb12qn6GtVoXOj1HlWisM+Cdy3 j8Qowfvdf3fPUdyqu1H1dPSeHHzqnxmRoDg8efsvX7SENORaMi6eorhXL3Y0 p3VWBBbGu5pDKA67nhRNqD/JD16bPL9vp7ipwVovuXKEFXL2Cbs/orham8d5 xbRsxjL61urr2yju+l99clItYaGz7/uc6P84XBoap3KJwY6pvLuzCin/kvOy G+eY1mFXpwzzemq+hfsnzXu9xPDuTvqptxSHJxVvFfs9l8b006Ghv55T890Z 0KrcJ49T3x120ykOy73TVNKQUkb9VJ7vbNR5ot4EmPbdV8Vb3PsE/9wnITiy 0pCM1kSxXq3f5hSHGUZW+8IytbFlc8PUoxYSlLbMXtjqr4trFuz5zjeQ0H1D VKBNSR9V0tZ13KsmQc9ee5P5dwMMrmKy0KE4fEmnnv1kgQmWFS8yL1HcNZDZ qWLhb4b+g78TUg+RwKXq6/dK1AI9vbQ2hu4jYYirdtO7J4ACC4ajEgwSzsgo rEqotcKImzKtK17U+jxFzdFHrbH2pX+hli0JgZ8O9Fo42OAItFmfUyLB4fMC /zoFWzShHvkv1pPAIjGmJMdkhwPao+oxVP5a/VOeHL5pjyoFQ6tK3hHAnT8n dW29Mz6oMP2se5IA8aI9VumfnLHik8gApBHwxUtkk99dF2Q699n6ylaqXqZG hfqj3DDbOO5TqSUBWqRti8qgB2Lr+H2WVwyITlSdOmPiiQ69HAaC9xnwuKXT YEe5J87Sr60/XM2Av5e6c5RjvFCSQ5n74i4G+EO85P5lbzQ/ossStxIKKYHu sdl+PshuH20q3BEK79z/8Izd9MHO2tvzx1NDIenCejPjvb44O/PfhMi/ELiS whaVNeuH24f5We99CQb7GdtZ903+mPqRdXBHTTDs+zydB2f98U3mdBh3WDBI bbAKyHWjoeKwmBL/8yDoENVPTKwKwMMdL0RqyungEBVxW/VXAIp326RyeNGB 3N3344NLIDrc2hYVzUyHQA7xiJzPgfgzdJ2/BYPibnCh64pyEGa7yVdnrQ0A 9aN8/s/3BKHw8aEZl1s0YJTaBpR1BuFx5/JmtTAadG11TBDxCsZRVWh0uO4P L+PtL+rHhGDC29IcFzs/aN28sFb9RghGXD9o7jbhC08z9VSGfoUg3cZ7kZHo CzwK2lqqmaG4cmTN856rPhCo9VNt4FEojqjv791o4wMpxi9/8LEx8K3c3qja MW+I/nDZwc2OgRGmfoVqq73B8nHwvrAIBvJ4OlvqlHgB++u2vK5DDIyRzbm/ Vc0Lro/VeG/pYGAe49a3fA9PaI0ZuS2mSmD76cuf3KXdQZ9du2SPDYFzIs8i 6s3c4EhW3Qv+YAKPaz842e3vCjvFO2kCRwmU++3rYJrjDJLOn07uvkCgQIzz vtrzTnAu5YiRYAtlP1u697vZEZSztizzTRCY9vv0mcAJe2heXO0VvUTgbR1z i+QlO+i/PJj3l43E/vfM8pVsdjCZfeTEqAqJ//4sBasr28CQa9uwpAmlMwcC JC4YboJHzztYSx1JnJfcs2hjZw2Kwtyp5pEkflLuk7IgANDjWD6xm8Tz1wY9 vf6zAMmTmyXbU0ncX6IQMLJoBp9YLp1yOULivbfy6tKcphDStZIhUEzpVO3p 61YbjGHiQGssbzmJ+U3CLz10DCGeNj5rVk3i0i6RKtJWHxgnBHLL//9/BQnR o/66sOblzVVGrSSSRZb2k1HawG7+6gszkmhXY3FyaVEDSor91jF1k7ir+kt+ v4Aq0AZqFHV6SRR5kzCcra0EvA0Ki0VPSXSQDL5n5S4HMmqDtmoDJOa2vTji /mIDhBzJ+rVE6f7AvsWqnrXr4RP3yMLnERIn14tcKMhbA3vUZYQlRykd/77M MPv3H8uwc0cDkyj7iXjl1FTR9U63hxxtvJQt/FhC9ozSKnT57Wr2nBp/+/7B 8hetfLjDcnyum5r/quINp+DK9QjN/17P95NoMuX2p3erFPre7DJ0pPYnuJ+p ZWeJHDJHrxYf7qHO19wQdClRCQ1kA24VdZG4t0j+4MsgVSxzkHTP7iRRTL/l /rSZJkq82yZe10Liictd75/kamNZr1wMOxW/h48UGqOSdPHK7ufHCi+TWFDJ dEkjRh/3BHdO+ZaR+Nj4az2XvyFOKM4OOBeRyJ5wvGfG2hgdlfT1R1Iof/Nw O8/15phdUpXjQN33lji5Fb7XFnht95dors3U/kLEcwe9APdobDp30IXErATO IwXrrVFSueKzoQWJOzaMKC3/sMbf9AP3QJNEfWEr/wujm/Dpt806Lnwkel9y EOg4ZYuXhP3/uP8l8Obdj0wS8Xa459TBmssfCQxReeFy0cceC19u9qQ/IJBX v4V/Ha8jLnN1tI3uIfCedwlzxi4XPGIm4ncqhMArG35beTq64qU1RXca7Ak8 e9r9L5uUG74v0Ev4sZ7AnK+LBnwP3LEv+E7bfD0Dj6a6ZdLTPfHf4XrWs0UM TObpuvzzgyeKbhcqrk1goKp/UMQnDy/MMGzt+GnJwOJyldxuMW/8JDNq05oT ijvS16iOVPrg1J94pninUFxe+p3ZyuaLMz1sqtycoRj78dCngUhfrPucmY1p IRjgon76grwfeopNKFZFBaP9VGSobbE/BvK33QyWCsZ00b09GV/80U9tv9eq oSBcx3T2yKQjDSVDqu/zmwdhKnfS87c/aVi8LiS6aRUdmWuKS2vcApHHWmlK 8FogbvijXrvrfCCeIzvOxgUFYienabL510B86L1dyLUxAINZ3pg8LaCj2N8D XudoNOxiGo3LexiEbjbHKjf/80e59oMZ4uuC8est9Tsulf44fb5CMD8oGN1Y +Tvi5/1QZqP6oMHHYDTvuHisPs4X+761MQn9DcEHD/YWlq3xxV/yM88UbUPR 61eDewUVl8iKVwb/UXHqOjdts/LMG41iDw/xcTJw/LzQA1qEN4rFzM0OqjCw 0Kjp2PgPL+y/S2dMOTKQP0RrNlbSC9nV9T9MZjHwOn7izarzRNrtL/ZPKhkY ErCn/IWFJ8pMJZf/ucvAxF/fCiyCPbBXvVRbdYWBJ3tZd4KcK679c0L9FElg bE6Z4EYTFxyS5DyUt59Avtfh7i/cnXEwbu5w1wkCN6SNHbgS74hC2+DSxG0C Nz08vW7qsAMWxz1/1t1P4IpD5x6eUnu0FZTufzdN4F9dBcLtli1WHT488YCH xEghndnkhzZoleHscGQDiY6X3PW6hjah34iqUTqV97xGPJldn6yQUZTbtc6d xLm4Iy8KfgCq7Ylkrg4m8cPbT9kXmQFvfRVn37mFxNmUsW+xKma45a8058l0 EtUeWJaUG5ugR9b2T1+Pk3h2zxvtqw5GmPSlfPPB0yTS8q7tvOxngLu4+pgs L1K20j6hK2F6qBi7wV2tlsS3kR/ePYrVQRnr/jmHJhLbzC83iCVqofgR2+TC dhLFJSuuRnKr4/ONSw1r7pFIrEht8ZZSwbHoZKvmhyRG9NrsUtJRwBiZSx9z n5C46sfT82tsZPBpMiM5/znFpftXH0TXiGFh4P3u+4MUN0MbfI/2CqCSkXgl pfPx7zSjs3VkNS72vPzT8ILqG7ptbKXBs51Dcg2dWyluWvGHlTC8vlou7tw5 6UPZ5Qe7NtOjOQGDlTfHUP7aYfIO+oWCsPUPP612mNr/bO374V0SEE+WPpSk 1ktNPuojqSwLV5AYantGosDFWC9WYUUI0NC+mPWY2p/5qcwl5o3A9pc5/OAD qg+1vF13d14dshtWXKrvkPjz3OfC8o9aUJcZVf7vFokvKmgschM6kH+2/XL6 DRLH7A4m9Q/qwc2W3FajKyTKyXzVKnlgABwn8zQlLlAcbGfQiVYjWDVbuEPz FImjI6eshGpM4PfogblduSQe00rQLysxA/5NLiIzB0ncdudN0fssC0gLX4k/ upcaf9Lomp6WFfzp0GbaFkiiwdDlGyhtDd/W0Vy/OFP77S5LPbx2E9SNLR6v MyNR0bRbsvqTDegL/jnxSpzETTW943NjttAf8/C6JxfVt7v/s9r0wI56FTYc Zf5BYGlfhynHWQfYPl+XLf2cyud3JWvITEdQcEp1Pd5O4Lun4auqtzsB7fXz tZaXKO5KKhmOmLqA9aiwdgRVLzOKnmFVD9yh51zs7DTFUcHXbcq13h4gvZY/ Yd8fBrrOXHMZuesB0728At6TDOzhtdvOWeYJaz6KfJupZmDG5zP84W7e8C/t T8h1LQYaDzQaWLR4g9CT9sHatQxUj+P+t0nGBwpTWk78eB2K126eHsYvPnD8 V9ZmzYBQJFgsDNgy/IDuOHJjwjQET3X8fnxvxg9qG5eraQvBuFm6uCXH0R9k fp1Tza0MRkspTgV5Lho0lS+VmXIFY+cvgR7B1AC4v/bBKFcXHb9YOhleHQ0A 2f30gJ4ddJThT7FW16V0ftklP1KcjntjTTXHJwNB4+ll/Y3bArFPj+dDrl4Q PDmtIH6QJQD/CuilcGcGwQ1hxe4tVTTsrHCf9h0OgsiXCysuDjSsnRxs37Q7 GFaGrd8zH/bH6yeLNJXPhQCf8i2vur+++CXc5Wb9VAiYfiw92lHii4YWegc/ qoaCmfM25WldX+QM8pTe1RgK/N2F149G+GDuCV2FG4EMeDR2OqChwwt1aHrH hOIZUNFtEG8Z6IU/hmo6xvMZ8MOwvU5m2RO/snbHlD5kgE+rsMWCsic+LuP9 fGySAclse9dM3/HAbk05l3crDHgVcPi9eaAHcvwXMVGvRsCHWP5JZwF37PRM 9VC0IYBzcDQr0dING9Q92H4FElB3Iuzl8S2umJjat9SSScCDsXNlGeiMzupf FlOGCeh9my14MMQBd2cYpz+bJaBctmhLwyF7NAib8t3/i4DhNvNDqy/b4bPa BxsHxUmwaabLGs/bIG/JmeU0VRI0j38YUF5rgyf2SORlmZDw07ahJEh7Ey7v uc6e50fpzE99LA07rfCui8Gr/DBKx4pack7mAfIIO8W/jyXhBLnq0ecQS7w6 EhRakEiCkd9g9fJpczwnrqmSl0nCAY0Yi+khU3SaH972Oo+EqkB/sX4+E4y7 cO/xgdMkbPRtG3tEcTXV83dcC6X7Hw3srJZq0cP5rywybpTuZw03lSib18ED tU8u6FG630NI23SbvDa6Zja3bcH/6dpVhfo3NHBnao721y5Kl3/fIr9TQhW9 GpOe9VA6+fIpm666dCWst9TdskjpaNXCPZJrP8ph0rt7Y9GU7leKX/7vppc0 +u2/+VeL0v1TuirbDu8UxUuSbLftKZ3+Bbc/v2kmgCFyssx1lI63Fkt+uGsN G6o9m8cwSudXG70MrMyZ7/QY6FqMouz5PynJ5xTmLP9Ljzt5+8X/vj8WZDXW Xw0JM7ZNBDVf5U+WSZln/HB72zzNl1ov7Ozx6FWrRWEirazof/9D/OcQ7LJf QhrWj/xOV31Kwo4SgaTxJjkgYyXt1/SS8Dj8Nm+2mxKwJ+QwW3VTOj9zyZM2 vREK3pi/u0fFQ7zQ+bxasgacu1oudZKK137uB3U7ObUBJA7P36LiOaSfnFA7 oAO+h41OaF4lwU2246PRWT2oWBPgtlxBQnfwVyeWSANYtfhrF08pCe7LxeMr 6kaQ0H/Ca+8JErqYni3zLxtD/ekFO60sEgw/rPmk12YKqYbO9eZJJDTTqhV8 DpjDTwGV5bM7SIDxvdyhNpbwz3tLmmc4CW2ndXMuHAIw1dJxbHQkofzqC7d6 G2to6DxXo0jl3973CXISlB4qS00weKZCwv1pH8tGSi/l1ChW9bKRkMNJ67Dk tIOnPs+4pZYIUB64vGvDDzt4LJBZdvUNAe8PR/GvmraH6n3V1xOaCRiUtVCo 6HCEtkTOH7fOE7D98Dlrj2onkOm0+258hIDHXG9LR/KdwdcvlXuZToD5QtOY C+kK2xq33khaYsBoikDT+D4PoL2iNT18wQC1iLEf/O894KSlxXp6OwPOjyq/ P0LzhLsnB2b8DzIgKSSqylzfC2R5L30eYmaAesQ3F8EpbyjfyjK6cDcUshZu xi+4+UBNw/mXoymhwNEc+mq+2Qd2fb7yqHQxBJ7YLPkaZfnCmrOVX8x6gmFw zaeXh8X8gYnpXfpsUjBoFOcXfEzyBz99FS13jWAYqg9IdnnlD88U7hH03CBo i/qm/fUsDYweNDg+N6PDt39vTkWvDYT7t847N08FQsF1S6FNMYFQ0jT3eU9u IJwsM0v/eTcQXgrwhmRSfD5S+mrV/A467N08bB4bToP6AKnG3I4gKO4lIlJZ aZD3ZGPd9Jpg0L0HHzIr/GHxgX/iv+BgGC3neHT0lR90a376S/4IhlNLbbFz Dr7AVtb/pEgyFGr/9HWpT/gA/251+RNhoeB6+SBPzj4fuJIVWKZzORS40Tvh wkVv2DSuKVMnzIC7Wfo2A4uesD97XVlyAQNeJnH2dx/xBAP7829X6hgwPFyx yC/vCZGBBPPYIwb0OXke6PDygBCRt48b/jBggp6U697vDgJv/2ZWCxNQxrhx 8csfN1g9t87ojwYBijfr/Ts8XSHss93rxmAC4k0eMa0kuEDk7kXB9XsI6LNx 9FI87wy5gvfw+WECxH4wxUV/dASqeC1cbxCgL3rmWVa8HbS4VRbY/yXgiILd VqlTtnD8cQsvjY+ElpqrHTPNNmCRX6HaJkXCWVYfLbVlazjzyO1dnAUJPCsm Bq0C1vDvGTetz4UEv53Znac0rSCTflEmLpAE/d/D05N9FvCqr76+cTcJefWM nd9ZzUG55vkhp1SqztapbV02NoVLLNoPNXJIeHjLjXd+mzHMvbISIgpJGP9e U7hYbgjs+XKcE2ep9eycnAUH9IF/Z6VDXRUJ64Oa08JZ9eCgsVPqwzpqvXn/ wiU9HTA2dw7VvEmCikL3m6FwLRB2LT0/2U5C31nvc7rK6vCTfL968i4JfBdk SyoyVECNu8JL/SEJyl2FxRsmFYAl95vP/cckHFTYm/7AXBaa+gffVD0jYbng VX2atiTA2q/PBgdIyBVOlQyZFoJolcdsbsMUF1lzK/r0eOHG8PkYAYqbVf22 5AnDP5Y2h5PnZCiupib9mZBq9LTs5NVOTaLs/5afJTVr/On888lPVpayd/49 8oXQ4sXKE14v/jdeCtf/VHonhJWSHlf+N7/wVM+wi6YkHhewuTpEra+wovXg qpksvqj+sHiJ2h+TX/061gkF/LvQfbaL2v+jx/r0w+kqWF0t069BnS+h5us1 USV17Bxlb39LnT/ibqWwY7gWFmk4HntHxYf11LHfm/V0UG5tXJo2FT/TyhzZ Fyx6mJIw/qKHiq/8lT9K2f36mHE850U9FX+u2tQbkeWGOPfN6ulb6n6MZ39v iDE2RQ+eHb+0qft8/IAtbiurORozL825Uvc9uTPbmtZngcV3i9xaqHw4v87w sbemFUYFXdy4n8oXM3uDuD0C1mhnySjup/KpZ06zambJGne97/NPpPJNbvuf SxXNNnj9/Q8OpPLxdcCxyOM1tnj9+lLdN14qXza//Zp5xg69WFNeECsE+MYV v9+e7IBOTSOsowME/PoxrOC01REvaZp1TXdQ7wqr46NsgU7Y1WOdrlZNQPrW +uFf2i74xCxtLCyRgM9db2mSEq7IH9Cx1z+MgLssa7q+s7rhquij67OcCDgl nhd1pd8d35+VGj5H1Sc0WTolUHpzOjP/87NKiqPB9iEvKT26osWi25XFgNMV 9da7j3ph5sdbSv+iGNDfrM+jstkbgyxSTjmqMIC+VeechoAvVmlc4rhjHQrJ S1++Vu/3xVo3TS6flRD499pWT3fSF4XYL748fD0EvnG93RRc54eDO8WGPkiE ANkY0ZhvQsPvu3IzX08EwbvtXKqrSmm41Wq90PTxIKgv+uFO+0XD5xYfWmvM guC7det0c1MAbuVp/52UT4ftH2D4zgY6kv0XY65pBkLoPfInfxwdG9XPOa0d DACeQ1qlao/p6CsWt9YtPgCm4LnF9T1BeHqzVv2OWzRYa3XX/dTNYKy3Mqx5 oOsPZ18c9R5iCUElkZSH6U/9ILq1nhfdQ1DBpOkpxPjBHeVs3xNvQ1DjMZHw 4IwvOJaYETtVQ7HiYLVSqZ4v9McWSS3uDMWbItLDqb0+oHiPHvDoVyjucIrA Y9+84eUZmDm6gYEv7msF3c3xBtl9//b8s2Agt2Fbs+gGb2gfhv9uJzOQnFcY s7P2gphbYf0JiwxsdHPhkDvoAbd2Jtzx4CVw0j/HSYDfA3xjl2O3KxH4FUWZ qsAdLrEqXEwIIHDrA92p5gRXIM3VuCJ2ErhTovwKvdAFXq2lfcnPJnDPrl3L D2udwW7bR9/rjQSOnO/ZpDTuCEvwe/n8IwKLYnhXqX11gOQzBf7PxgkcehlQ J8PhAHLmp35NsZAYp8fSz65pB+te257rFSLRflaKzmNlC8mevA//992W6v25 3ypeNtCiPPPklR2JUuKj0qM7reHGyzm3Ol8SbSQkVqcesILx1j9lN8NIFH6z uyvyGMDYz2rl7ztI1In97q5vaAnDNj9oscmUTmefXHL0MIcLT3ZUbzhMYn12 ppx0lCmE8cuWshaS2N5kX/A4xRhumFQ1S5+jdDGLKkd4oSHMKCmf2HWJRIu/ 3zxXLuuDjWDU3Z/XSIzW93S+1K4Li28755uaSTx6+b8XSU+14ZiA0t2qDhJ/ n654JnNPE/hsDBZ671O6Ptzp9ZcpVVi1b6OxQg+JYrm6L/LYlaHz1Uzo9T4S 9128d1dVWR4GPH7r7u4n8ZTf7oY5e2kQiDp/dPMQiXzXeA4sPxGBMyYdjsdH SBwfOSTHxs0Pxc2z3h8o3S9+6KhF2zFmSKuMPLNvlMTJx6f6WfVfWFpYa0ia ULa00HC/PsvPzovp0y80KH89G77jbpw82PhvesxvmMRXqaFPZx8IYdBmQ8Pr AyQWeHffNM+RxImbx7isnpEoxKo8erlSFqd/eO5neUzirgPrraMyFFG1Ib/x ZzeJP6ve/tMJ34hCszxf5O6Q+DCvnO21lQZyvJDfmnaLineJnaoMnzY2m73b IXSDxP0Dn1JKfuvgEZvvbuM1lG7fYpa76b0e6shXh46dJzEG32/jGjLAIy5v WHlPUfNZeVqPdhqhwCax6r25JGYr+BqUVpvgN4nNnYJpVH5ch4Om+Wa49mz4 vQ97SQziqomsTLDAL0tGxj+iSExurRaf1ATcqJJba04ncc9qtmorWSvcJJrV 1OZCYtGSvcDMOmusK3X9F6ZO4kTc28SxpU0os7O06LgEiYFH9dcJvrPBeKFD Ud+4SFxebdYU02+Lpfu0H+2bIvCvmU2d3VV7VLCOj958gsArH8qel3s74+0+ /dsCSQRKN56b11F1wXT5U50ikQT+cituusXkipv/pAkZGREY84T59JErbpi8 i9v85SADd9xQbbnywwPpNasF9t5i4O2vE1XjoZ74jcuhPbaMgd1pn922dHui SBxReGwzA7ksrtfknPDC9/XfQ6UmQvF7yTn+nVI+WPXWuPvyhVDs+ewuK3LQ By8nHOBjDwtFVslmnz8TPrj8/Vy785sQ9KfTh3af90X57Jzfxk+CsSrp9Ls6 YX+8OOl/uS4jGP076Tve7fRH7igJHR7zYGwIF/Mwe+yPBn2PLx69HIQWjkJt tik0jLa8cf7LLjrGaw6/DRsJwOcpBsd/ytJxsWgk0UM1EEFgYZapPxBPt12v tE0JxD0GpW8k1AOxLbUzzlyGjiuXxt8+H6HhvnnWE3z0IOSb4P6qeoCGRwNi Vj5WBeG98JbAc0o0XHy+kNy2EISTh/k9R3f74/Maj4fS6cHoJzObsJrZDzuY PE7dKQ1BnQ1h9akVvvhsPvziy1chOKT62E3dxhc3ztztG5AORe/S96+1Dvmg /2Bkj8v5UDSm02+Y//DCz65Vc+ucGKjLG+/dXOCFiZ8ZzAuRFEc5NN0Oanjh kzIOVt1DDBS3O+MqRHpi6yW18xOtDNRfddTN/ZA7vpZQjH8iRaCJ5QqH3Tk3 vMD1+EODMYFVv0v2zja7Yts227lhLwIPfbDcS5txxtTjWuav0ggUEjuna/LH CfM5BvZ1lFB5cvrnz8/8Tth96o7Qf9cIJENrs1YZOWCNI3Nl1yiBy2sOT8Y6 2mPb4T1dJz4ReMEgfcvLADs8E5BVUbyKxCT2strheBuU5Gv0tpcncZWpvE9C xiZ0YpMpWdAjcYm8wrwp3xo130+lPbchccY98PbeakCGYnaOJkliC2sa6+xm S0xi/kdcjSXxsEt8alaiOV77ucYzKIlEh1E+l9e5pli3sanHIpvEFA6mUdYy Yyy2GnPyLiCR5a/zBd5rhsitR/MrOUti+ZibFl+HPn4q+bd/LcVVtughYanH uhh34Yx7C8VVhovKkteoNiZVruzOo7j6efemNwd6NbHG41PeKYqrhXkRcb8m VTF9hxPtGcXV4o4fYhY/lZDN93v6/77j/3OxwTl+jTzefj499oTiqh8xfOK5 rDQajEooFVBcjXRrWrWwVQRrbtRbZlFc3TH1LUyzYC0+fNbHUkNxNagoWnLL TiY8pneLvkJxsifSyC6grbdTKvWJUSLF0UO6UTsUl1YsDx9PLFKhbKb3xVfh Gi+k3HHfy0b5b8p5JZrfIAyzXZ/e8VNc5RnfV5GVswH2CPP/cqa4er8mYFxQ Ww5YWI8OND6l+lLfwum1EkogwbArceklcSB2MYWbTRUi7pgmraO4ujLxmWNs XgOMwxJuciKJVwLuk8pbtGFHufgRzVaKi67yyrIhupDC6WyX0UDiPaKrxsZD H74LGZtzV5NoXa3utN/KEFp3SvTdKSOxSkhtR622MdyZUmNUF5E4lKGjdXON ORhmnPPkTSXR8GTDKGPFAmyOOl3N2UWiiKBjUcBugHcJdX9NIkgsLbrSmRRk DQ+f2L81cCCxQl8+Y8J9E4xa/W4+ZETi5Ri7qlhrG2hrpnGyKVPj372aGpe3 g1OnF9nrWEncLRwpUC1oD39dWSyGFgjMTD/fvJvFAZjTPJn1XxF4il73b5x6 Ryza91adp94VS6kMrZl0V+AZH/V3pBGYPkzMOAe5QVjbnde/gcBi7ui4HB13 eK+aYsapQqBL9d6gW9s8QOXGPzGt7wxUmuAZXMPnBTRpb9rzIwyUe/zOt2Wv F6zzSLKLjGXgDS7fP3X/eUEBm8wPuhcDhQ+7+eyp9IZUcOPfLszAX2dVny9p +kLoXbn60xqhmF327t+ZPF8wdfxvdu3HEOS9e9Vizxdf6M6ozKZfDsHym/K7 ztf6Qa9lu8M+yRC8LTolWyBJgx6xRUexX0HIvn2E1yOeBjbi0h+S64JwrzHT J6lnNAhgLq3qJYJwaMNGqbmUAEgVtRTX7qLjgMKFhIFngRCWYH4vPjUQhxtU PvfK0uHmNXpvKsXTf/d69t/eTQdrlyLbnOEAvJ6882yqQBDIHdgad0MlAG89 XdOjtikY0mi9Ujfu++OV/UYRp48Gw/K3pz0bo/0xlPtG4/vBYLjatLWik8cf p/jVDsuSIXAtPf+tm6cf7jgbvuHG9lA42uF/ZvMzH8zaJa70ri4UwucGdqtt 90EjX3vDyU+hoPs4NECV2wdXIgx+SOoxQPvAnNe0tTcOt/1OfOTJAB8Wx5Xq cS98tkFpcng7A05uVB67Ge+FKjfvLAtcYkBouXVDW7Un9l4JSLO8ywCxGe29 bVaeuPC09dqjlwxIMOlkExz1wKu39swv8hFgsv3OjterPfChU2FYynYCNrMf zC6rd8Gvp1qt1qYTsG/i7h2f/5wxpTGA9d8pApS2ahWyrXZGkaOu2l+QgN38 8mapvo6YWl6vtEDpJH2C975vkgPuvnVL7P8oOu94rL44jqtIpEGpqGwys/f6 2ns+9nzuJURSSFIplFnJKCMZZRSKVITwbSAie1RUSBQNqSTU7/7+/L6c59wz vuf9OZ/nPucw/0BAbb6DifE1IzRc4bfZwEKCTj/bxoIZAzwdNmIdzEXCh38K uts3GWCFK2PLXjES8n7murXJ6mPbybyOMkPK59ZKR646ootx9hFmAXYkBL7l u5txSQcnnl/hPk2Q8L3fRizxPuAajfJnJcdIOK2rPmc8pYkq78tbas+Q4FZh 5VErqIHHqnlpvMkkPAo+9FjQUw2TfBU2DGeSINnFkZ6ZpYL2y17ZEwUkNLdn 24r2KeHk1tBinVIS9JMfnZ1Yr4gPl49NzN2hfP6JpYev9OTR+/Qoy48HJGya G73Ac1wWeeJdh42aqLiMRfaUlzRmH1239fNTEo4/+7qY0yWBuba28RNtJLw7 ydtWoyaKl4tXM0u8oHxowf3f3wqFcEIF/J70kBC2nnFm/0Z+nDl2MbG8n4Ta ffc54r9w4/jDYdsPlI+nCRSc1WnagmIKnuWHKJ8vKiYrGcvDgmZVz+PNXpIg 4LXvmdbxn02XpUXfhVFxzp9RHdfdo9qaW8cqv1PlK/0XrfsZV8Mqo+Z/jUMk tKRerCmV2wxBDGuHXw+QUMzz45AduR2KSSUzkz4Srqc07hdK4YHKAdPDzN0k pBw49jbgrQAEiWb6besgYbfKwvNLR0RAKqzXPqyVhJ2zAelfWMVhoHu9957H JGyxiH1llycFIxVVT8UeklBy26uQliUDC4IXK07ep/pDjpiQpBwUdDWTgrdJ 8A1MaWgWV4D4wucCO4tJOClUsC/wuyIs7wtU23eVhKYrf28b1yrDdkPD+rkE EmzzFP456qvDGiL3pcIpEn4/jmUOWKcJzu2dtc9DSHDdYnE/6LkWXAn4ffCX CwnPijmU1u7Rgb8FchJJFiTIBN8af7RWFzzrao8e0SahULaxamBSF2Kfn+w3 5yfBL+SE5WSBPjgqpqyosZNgFrJlvjvSANgl06dPM5AAHQmBP1wM4crhc8e2 jRJwSPj7xOPNxhCX5bfp+AUC1HMYL+QdNgOdwO+B3kcJkHbTiopxNoe/N5WJ C54E4B3zJzJgAYGH1gjekCJAktP/UROLFfQm+2zN3kJQPurnh/OzVhDwSuRd 92860KZTtv/zsYa9eZ8L2R/RYWFwl6WVoQ2cu/KBgaeQDk/LFHtG79nAUh7z SkgsHSzoNKNSAVsgwj/MrTKhg/3EiNGnJVvQ9VY9cznJE2R3nOE7W2gH8zqJ D9IMPeHgkk1CFJs9PM89Ia7G4AlVX+f0MkLsQewOjl0I8gAJ/hb2FS0HqLkv H1mh5Q5Rt6+sUW13hPuOhjssv7rBwXM/S2PFncDIMjWjItcNDlz2iXie4ASy 5XT+tkVXiLz4yFzcwBk2H+EyrStwgdyXHAc6b7tAbyP75T5jF4iQLazyXusK dNep3o4vzvAh6EJHn5srhEUOXDqo7AwyXNp14mvdoC/fkfdNvSPQl8gtjqbu cHeTwbF9Lo7wfsBa3jjTHY6f1Xw/u+AAJpuyl3+8d4fKoJZ+NhkHcBTfFB4a 4QHTTmXNLJfs4KG4VVHVJU/43Oz6j0XSDjIG0nRFX3qC07VREanHNMBPcQH5 G+hwLtx2/5cZW8hZX9hTYkEH41StykunbCFGqEM6/wAddIYSNII5bEF8XOfC +0Q6tGmzvhlVtIHtz9YKmzfTYbVfoXdYizU4y+mNHhijw5gRwxZHB2vYLPnk Uv8yNY8j5/XWTVuC/g9Rj1BZAvyeeyeIW5nB6eYXAYMpBMiaVK0kHTEF9+7m 5axiAm56R858yzYB4yWXHffrCEiNER6cHDcCRSveX1/eEfC1+rFaLJMRjJ+I MGObJyDNvmXKdI8hvA58aRPJSMJTxxZD0k8f9H02vHEXJuHfW9ZrzXF60PNA SLxdgQQurpKMg8W6oLi9+268Hgnhe7fNV40BrLGJpv3xoLjUeCGkcVkbsl7l eJUHkKB+Y6hmUkEL9lw8UXT7KMW5EHn/9wVqMKFU9qfgPAm88Rt+jg6qQObB 4xqpGSSwLWwL+sSqDPV7d27oySdBTZbjL7eWIjTdtNjqcZOEG0k/uk4fkoe6 kTAGVYq7BSa63FLXZEE3OzeWoLgb0tAvRxZLwzf7EHKokYTlET0+DWZJ8K80 d8j+/94Y/lPnWX1FYfCJlEQpxd0nTZKc35qFoFimtXItxd2btwpcNgnxQ8Wn 8IYKiruTu/ayb1uzE/xaaHuLKO5mlDXmrW/YAo4t3FP/c7e4+UBmwuw6SBXV 7w2lODoqHiy46+EPbQuFP+8sKc5a5T7J0Xnyrulg6871R6i4Y53CWGzTahQr 1LCaosrfOeik1Fy8Gc9FFlUVUdxlH3TeLPp5O3K103QqKe7mcrNfLJbjRSuj xQ3MFHc3QF3JSXVBNLJZki3tosqvbj/2bUQErWcOd2Y9J8GrOGN7wklxzL0g wjzYQgLGFY0L7d6L/A9S2TwfUboTPnete1QGo5TesCvWk8DKefx1YLkcOqiM 2jjdIyF905PXThEKWMu9cWNbOQln23UCThspocTvyxfiCqnx/vrAqW+LCq7+ rSuQfoUE8bNDEfBWFf08TvF8TSEhpma0svqmOm5yd3qbGUeN12szxgh1bfSs 2Qb/n0u5WOEVbxsF6Li8sTbYm9JVwize1FsH/dIf3XB1JMFd6YIAiOohs+jl D3zqlI7sDJyQZNHH1q1Cun8lSCjXzw1w+aiPNyTUpPfuosaXTTXAocQQ8yV2 8sX/IYD+SVJ361kjLPNk3Xd3moCHGiL5c4Qxtrk0NsgPEsAaKcD6aYcpXl27 KkSpgoCPVsvqnyMs0Ca1tN3JmYDqNXw9BaQlVh0Y228KBLwysX20ysQKu2M6 rkWIEHA69uHdznhrNCwtCrryjQ7Xco2S3y1aI2dyrOeFfjrkP5vhUvS3webp D/lPa+jQ9+tZRrKxLVoxWUkwnKCDUIjmi6RqW/xXRnCsc6dDxM4KtWpBGp5V no110qRDfW16XvQSDa0Pnne5s+AJcV6nuMLy7fF2/97wlXcecDuBRYfO7ICf nIMMpzI8oHX8WDAt0AHV9sZxR1h4QDCviYCekiMe+Vk4W3LPHW67FYd01jth WrPLrpgQNyBmltzPcjujh+nL1C18boAPSl8Khjvj5sSTdX7PXYG211uCUcYF 21vy/wXxuELiaErieIorZq7feta92hncj44te0y5ontYrmGkszPMdG3Iuabu hnrWCUPRS04Q/ESs/NA7NyQdND8ZaThB2pFauafcHngzfZRV5Y4DBLi4dXD6 eGD93rsin80ovSh2zOao9MAR9c9mNybtwS43eZYBPLEr0qtEd5s9MGv/rS7f Q8frDmzX4w7Q4Mlm8vqgER2taMUPZ/9RXPUbYDX1paPyk+yBE6m2oBiT081c SEebdGU12fs28Jj+56zVIzoWFbUqeRrYwGxblvfrUTpGT25Nf95vDQ7vWovq thJ4O/Un+WHcCur5pQrWSxOY6p/TcWjFEk4x5yxcMSaw5ExbW942S7i6875e 2DECt4luXt5iYA7zlWFcP3oI7Hda7gpJM4axgu7PzZMEHkoE/YIbRvDx+ILH 4G8Cu9p5ObseGkJ28fupil0kBuYdK6GN60Ojv8WJo1Ik3mV4FdQ4rwfxTsPF EZokGhQ9K7Bh1AN77XQOWVfK97JL1XAJ6sDm+RqOCT8SMyVsP5GyANO930Re HKF86UF2sz8ntWDDpptP5qIoX679y2gyQwPO8VfvszhP4vFbyVZXKtUg1dEj 9V0GiYXLQvMyz1TgzD/3odICqj2pYt11b5Tghvpse1kpid8UPZItfiiA+LGm 9RNVJDoOzk2srJMHWhK7jnUdiUFvCxLf7ZKFFv/r3POUb562uJeylb4XLmai 9XPKV7/4c2OI96w4/BTSLRymfLdeb1Ay200R6HFOecPdTeKWvUGBjB0CcHBd aU8K5dvjRFvo5MhuqI/Y5aRJ+fr9Fgrax3i3QT/zJvvdlO9n73smpPuEDarN tO/9f652SrhwdfW5P9pSq9f4/39/wV6xJykjD3qaRs4Yhyz8fw73CJNSxL1V GDB7eeDGEIm7rK83n8vcjM39G/IuDJDopJe/W8xhB0Y/9f5wo5fEd48va3uy 8GGw8qf2hReUj1fouLH8QRBtzKNDj7eTWBPiy/TkyR5EzqItCs0kWoqEZMXn SWDaBbcx/iYSL1zovisYIY1hsrq8Bg9InFiz4nj/pizyK5zYnltJYkTk+FLW JXnk96nbJXWDRI+ClNVlpxXR/65c4vdcEuvG5u70+SujqZ+MokAiiQ/zzOy4 NNRR4ekV2vlIEjmMspk3CGri76I1OTLBJFpsWf2heZ02fh8+3cbvSKLC/aBM bj8d1FT40XvImMTtNX+8xpx08XDvFqs/KiRy0pO/jRnr4aLLH72m7SQGR57q 9hUxwM8rPYLLTCTyD3MtD28xRB0pP/2weQJf7ufMdmUwwvLI9EPCHQRG54ab BA4a47bMJSG3GgLP5NyMmW4yQQOtOwF9BQT++VQYbXHDFF8pdbjEhRJ4xLQ7 99YRcwz7dH222Y1AqSu1updcLLBSP3vCWJ/ACpGqWm0tS1zXJynBx05g0pid 52sGa/yQ4vFP7hoduesNn7E/tMESMmXD/Vg6uqWP7Wjgt0W7UJbHV/zpuPz0 x0JDrC0+1vind0WGjoHBW1PvWNLQQkJ9clWAJ+YW9S0sDtjh1tCaa+fEPXG7 4wfbGUV7HA7r8P0+7UGtJyczzkv2+E1TqNqJ9MCuxnh+JsqPR98qPTxo5I4d P6p9fzQ64r5Xm/ae+uuGl+R/nDLd4YSH1253337PDfmtbu9oPOSEG3beYuXf 5Ya/9okPfuNxxgfTJy5Mv3VBHW2NUolDLtgQUhTjesEFJbbN3N/62AW33Yka 7Fd3wfmVbaqrt7jifubQhg9pzmj9xLDjzR1X/KkwfPWNihOKvVqlbzHhhuKj Shav3zriSOy1j+uk3FG3ISV54awj1m8ONK864o43Hpux5HQ5YERXTMmTNR74 QnqT4ryTPT5kLTqTyeGJ9c2/i0wX7VAk6VruMZonnr4v8WUk0w7jD0drK6R5 4uUvzoo4QMOSA/rkZWY6Cp3bcuKDoS3G7I9nDDtBR+eUcetjYzaYoCTFI5VJ x6F3+pu9j9vgbPU7VeO7dDwuqUqzvmWNC4urooun6Dh+6bevs4E1zuqKPZ5i IFCQsZEjrdYK3T3fSyRwEWhaerx4ZIsl9u16PTFNcdVAsyDEXtsC5bY9CS3y JNCwe9amfr85vv1ccq/xCIHK9QfKAutNce7O6XWM+QRacBq3mdKMkLFKtvnp LIFnpZVEfbwNUWRv87bmfwRm7zRdSgg1wAPbLQP/spPoP9MctjVVD02fr2bj UiBxJqD1R3KeLp6xFHv9W4/EE4XqKZrlOrj7t2nDRhqJZdMmAVWx2mhmKC76 6iCJvzdcv/fgiiY+wmsnLxwncb55tuxohTpq22adCosjsdyZJY3xsSrmix4s TUklcegKR21onzIy/HKOeZtDYrPDwWOjE4rIphWS6VlM4nnZcTW7eXm017l7 mr2CxC87Sg5+WSWHbrF/Xv+oJlFe/kTyo00yqMHASWNpJJF1KFinRVUSS3sb MiyfUutW44lLj60oGty95v20jUTJt34XuvyF8MOUz0l/ilvad0+tn43iw59j RbeB4lr7u2bOQhkuTAz72WlIcS/3dG62sxs72t+dqj1BcXHJisMnd+MalLZm cxmnuMmvsGBes/t1k0HDXO5Riqt/vo9tK7/wW7urUzhag4qbunp1X8+tB5d/ imtlqfIdbmwtlzo5IcG9Qsme4nYpy7Zx84Ld4LuaR/QmxfXUN7LKb2oFQEue 7bckxX2hlaXfhtdEgIl7Vec7ShfUlF5H308Qh/CdpwafUrqRdm5T+d+gvTDc tsriJaUr+nt0y4+Ly0Jc6NJhHkp37ts7aKrtkodou97kdEqX9PsqEoU3KMJ7 +9FFdUq3PMpe8oiuKEFqJJ2Nk9K10vKAC5KzKqDzPV6Sj9K9UYWF8N2v1OBL mt8z93MkisTcPBZUpQXpj786BodSupC4iZlmCSDHt9bO1JfErEGGjXW6OtA+ VjTi4Ezim4LHAjpierDp0V6mzerU+Pz7K2W+Ux/0yjrnG8RJXP3+zlw4mwGY 8NDYrnOR+NG0ac3GWUPg8eV6wPmTQK/rFjnEKyMQeBH0tnCMQEu+vOhbrcag HNjidLCTwGG5HUZMeaZQpdrSevcagaHMie3L8Wbgl9V5SfYcgb+iFaaeHDaH NumTPp8pztI1bZ5maluCwd1VuwUprtqXyaelCllBk5AyT544gXs6zrJxM1pD Z2Kjk/tmAs9tPRNzfdIaatT+sha9pKNU3bqzL/JsIfy1vECMFx03ZI1ulmGi wXHbcT0LQzpq6imQr/bTwCpYITdClI6iN8IV/8jYQce3y//WDnpiQd2Q9d/7 9rCQtfv6aI8HZjtMJmlyOoDTGea+D+c9MPGv//obIQ4gcmqprM3YA1WDh29+ k3IEoyWJ5yL17hjsrz73JcMJYkRXaSemuqEX33iRyDcnCBnW/1hm4IbGOR92 HzRyhvzoEpWGBVe81cKqxTvvDLT4maQ6J1c8oNh6sVLLFcw4O7NCN7qgseqn ELZkVxj63lfrW+uM2cGHXnu8cYWjLMdYvbyccVWass3rY27Qv95b9dQ9J+w6 mNwydt0dqo/llJeaOeLGhiNh+TPu8HVe/4v6Vwdc7130SUvOA/r3eMO3FAcM 5StM2PzQA6Zr5cS6++1xpGzmW+MjT/hu992+x9oON4lYTXAx0IEzea3Y2880 zLTbLFHHQ4fhHdsZpBJpqKW6un6PCx0m/7x9nIG2SDPRZ81so8Mrt3y3rcI2 qCNYQoxP0KHH59zouYfW2Ol6bU3iCh20ny0JetOsUfvbovXnvQR0bhqrPvnX EttkU/hKDAm4bKl7MV3UEpPOGMfUuRMwdbhhPN7GAjVa5ZM/JRAQx7fRTTzf DENY6i8w5RFwp+hWz1SzKW5Zy/Ui7C4Bxp/c3a9/MsGXIRv+Ob0i4HNe0CNF WWM8ML4p4tksAZy+mkq7Ke4+5OkySvpLQGi63aJgqCFuDClWXMdHwusTB1bf uauPgTE3T4VIk5At2hlWN6iHGnKKQUpaJKTWieuyLerigQlC4JEzCbaWYj9v qOvgt+2sU3E+JFxwZv69hrIjmXG2tMJgEozPXtiUvKCFJl1hfiPxJHz5Qpy1 CVHHY2H5egupJFwyfLH/VoUq0n03SPjkkLAvfHXMzhll9LPf3ypaREJV0YO9 5cJKuH0pu1XrFgk9A+W9QZ4K+Gpd67sSyudaijKNhGXK4fJL2xdelA9e97S2 sadbBju+frAJpnxyC8viR372vVgnd1i+j/LRAZOwknBKHIMWRXRiKZ8tz7j6 0fKsCOJArFUS5cNPW/QaXXEWxKA9LqrjvST0/p523JDEi7dDq98mUj5+ytZs FxI70D7+r9hZyudHaAyIpiiz4yP7CaaeYRLMn4VcP8vFiFbXvH3/v78g1/F0 XD3bVFNEaI+xOxU/X9VzqE5kTjvB+Fnp1eH/f9fV9SXr41oYYFVOl6bq23y7 Sy8qjwPyh1w4tlDPy76+TzShjQsSTzepGFPtqRKQEbM5xgfZQ1r8XS9IWLu2 Q91ggxB8afo3U9JOgk1GWPmp/D2wlfFIU28zCRNhDuRbOQng+u76zApJSJQ9 bq73dC+4NdSp8taRcO1WnKwBxWWZ4jfmOndJWCNl0N82JweeU8461WUkDE4d 4sx7oACl+1e5R14ngcXcPfpepBKYan6aycomQaHUvGJRTwWuvvQBlhQSdFVZ VDzWqYG4cuy198dJGAk3/ql3QRNu/nsfYnOIhECa67lCK22wSTJO3eJNwqee p9fm4gAs/TKiskxIkEnQF3M31IXbaXlGHuoknPpF7M0S0gMR51H9CEkSRi3P LQmu1odo9nCOOjYSOiY+TDPVGwDz5NN1b5cIqM1K3m5x2RCqgndFu38iQKO1 TeLJISPgOiF5bn8zAdYFG0N2CZoAT/9K8O871Po6t3Hu6x8TeKP9L37iKgEy QztnentMwfIXt0xPCAFXf/0xvHHCHB7J3jEcoNaj47KdapK1BdSZExkqRgTY lri2eQhagvHGvXJ8OwiYH4iyqG22AmJt7NWkKjrMHVt7QiHSBi58W1a1vkSH LAfFWc5ZG5hmldpCP0qHxdQ2BgVnW3Dju5fjo0qH4gvLCVtkaXDivpDKfn9P mCmii74btIODz4O+fhPyhFLVkgsiWvZw+dZuCeE3HjC808n3bKE9yM6ieZ65 B4gqxrMeP+gAbpIfeOW43eHGmr4LL345Qkvvy4gj7W4QeZFWT3dwgrsSh1ad ovh5JaY69+M9J3jN0eP3vc8VGg42H+866AzXWUQ9GyNc4PkGtuqTAy7QZWtx 9DK/CwxNVQY7SrpC8tqOBzatzlBLLC2vi3YFuxN5glGbnCGtYfbLezE3oI33 8sqlOUI73DbdHeAOfDlDd1NkHYG+uZDX9oE7cO4NDfvxwgEWNI7+02X0gOd3 m9z71zpAAs/Zv2aZHjDPbj90JMAOjktlT16v9ITVPbzVPqvt4NK00FVi3hPq J7mOncykgVeIbxzBTYcC64uNex/bwlwhufauMx268q838rHZgMlZS+65Ljos ueXMY441XHasSaqdoYOCpMLWcklrKB37mtS2loD2+zaBs+mW8Pbgo8J6NQKY itLuNVRaAO9nvrgrNAIu8No6mz03hyDFn0mNARSnMzpHHi+bQvH78um2LIq7 LBaBuMUUvuuXmlZWELBLd6GhQMwEZnDfxMBTArzHfZKUbY2AJ9Fyz2uKw3tn G7kZ9hnCMXFtntp/BEQqnrvQH2YAU7xxE73sJOicWN3YlqEHRrdMOqrlSfi7 4c9hkRpd4H9luP6oLgmXfZcu9AzogOWHs2sTral1oS8d1DcPEECLUPnqTsKy HmOIAjtAasU6gWJ/Ej72Nq7646oF/mZJprfDSKANZrIEpGvA36pBbeZoElg1 XwbLrFaFN96Xp29eptbhnHVNsbIysPaqD3/PI0EruLMcDijCvdQtG5JuUNxj OeOyKV8ewtZcVAyuJOH+J7kuwT5Z0I26u/ZGDQndTqf4kplk4JfMFg3JRhIc N5f0Pz0oCSnxLzP+PiEhJCk8x71HFOayno3ztJGQ131uklVeGJh5NWbPdZIQ JPaA6WsaP9CNJBKNeyidocXdc5reCauNxLNs+kmYUbI8316yFc4XByyXDFK6 U8/a+a2DFeLsHl01o7i6/csTek7qb+3uo1cDqf0ucJTqbjIe7GnSXLPFK4KK n3mzsT1vZEAT1sHjTFTcJr1edq/uJhwbVH84SnF4tPq9m8L4NjRANek1VP3S EpwnwwV4cO2T/R+O9FHtiUm076oUwK2v/i0qdpMgONjAfsdKBBm5+uL1Oiiu 7Vmzo+mzGB6Kc3yQ20oCLrFzDiVKYWrD1XtGj0kwVKN7BqTJoJCuTaXWQxKW nAs/ddLl8OLN6vcx90lwnzHkiJZSwAthN1O23ybhqk7l47BFRZR4mLWySOni pVPE1+ynyugTlXBE4ioJR90up41eUMXoDywW5Wkk7L72oUrKSR2Z2VTenEig 5s9lyjmCTxMr6msTrkaSMFuwumfcAfDl4fe93ZRurzYPNrJR1cGBD6Tte0rX W9R2We7aqYs/vIYqTMxJiBd1yCwe0UMX4QOb2Kh9wdFsDTn7h/qosHvNHn9e Et7RbrBoXzHAU+ohRrs2Uflw7EXAdQcjPJu2aespKt/zNynFbZA3RlGoWCdL 7Uvc5blWp240Qc+O1RmqrQTE/JFMa3tsilNBnxxsqH2Nlzpf5IErZrjut8Qa MpHibNWtYJYQc9yqclCrI5Rab2YDiey8lsh8yvNKJcXhrNHR7gPzlsgYwLlf UoYACY4f+661WOHVpbbdTBSX4wtmrzTes8ann38Odk/SQd1RJYnN2hZd9yRy zB6jQ2Nc1d+KBlvkF5l5t0zt614sq4dFi9PQeLeXhaM6tc/z6jpTsMoOzW6J 7Bil+FNzmOGhQZE9OjA+tcgd9QDFssJbb9Y7INv4Nb/SdA/QQp/WqMMOaLUq 6TRh6gHXVcue9as6Yu6BayWjd9zB5Y5Is0KjE87Qfq45cNgNDuz9c6holzPS rmzpkuJxg4/LtZx/jznjVeaPG6rbXCldvs3hKOuCX+gTZaK7XWFh+junaqor zh7/VsNQ7Qyf34cdiphyxaKaro10Z2cosCjPP6PuhvQ539rCJScYzLCcef/W DQu8n/l/0XCCXG8ujmAuDxyZH4n+XeUA+ft+FF729sA0g1TvBQsHyPz0y9zv tgcamTqeX5myh+1M5RvXanniyySbGFkue6hMevfheYwnBnkn2/pV2sELtVgb uWeemHEv4cADQztwPmkZ9f99tdzGd39UH6LBEddVj85SPsR/wuL+QUYa9Fas ipnZR8f2qi37bDNs4c0R390p1+ioobwmt7LOBrjPhznzbaF80Sm1wLxvViBN NxEIkCKQNZfv7ev1VlCQWOTxy5DAmPBPuxqFLUFIcqWl7SiBcdnbBHPszWGC FtW7KZnAyR07BcsDzODFTM3m1CICP1v4uCeeNgV+zS4do24CJb7cOfuq2Bh2 9x92Cn9PoMjkG07iAbVfsPf8OLZAlU9rFnz7zBCGNszzue4i8c7Sv8iZD/rw TPSdzH4pEg/8vNl+4YceXCyrOV+uSSLjxu5k2io9qLTIJLpdSZRJ2jIXsEMH Cq3n77T7kWiXc1SPRx6gW9t6DccREn3T54R9srVgo7H5m6LTJJZ/UFPy6dQA lrP2vWf/v+9gp7Ca5T81eGxUceTOJRLHN91qlJZRhQLusH2ieSTyzbS67KIr w1L0dYNPJST2cD24LZysCC9PsT/6VUHio0+El3uDPIw0n0ywqCGx5FWe2MAn WZB8cM7xSwOJkamXa3O3y4AxT8en4SckFqqwF2bEScKNy/dZNrSR2HWPFjTy RhSYWyqjEjtJjIuf9JNWFAZ3Pc49Nj0k3n7zQepeIj84g+QAvZ/EptKsll1N O8Hxi+zB2kESuUc37H/iuxW68xxeuwyT+O/bRWMjXlbgKW5iM3hJ1Tf8OGbL yC/tmzNxi/9/T+Hm8Et5++5XTZ6mmDdPlb/JPdEr/XMVxuYGMT4YIvH004/s zLTNOHQpVb55gMSc9xpRQ6XbcUFtJ+zsI3FmU2vPo1W8qKX5Ta+ui8T4eWta k4Qgjv6Y8bz2nMSrclKOEwMieFTwdT3lB/CTcJ+tGOUHBA4fj7V8ROK5OLZb gXv24kzRsZ8c9ST+ZVQKMJySwb95QQb890g0PUcrkq2TQ3LteO2xchJXZSw8 8zmngJEPNK/uKiSR2VmYv99dCcP/9APrFWr+isIY/Paq4CmPkWXdFBJ/9rQ+ 2vxXFUUDfGVaY0nUMJh49rBDHY8fvpJzN4jE2Hkzv2EfbVQ7XHh/lxdJ6U3A SY4sQJH86bV99lS+mZ7y3h6pg0Lld93FVP8/d+1nxG2ohwkBM8faxUhsuO49 t1ZMH1kS7i/VcZEoIiB8WXq9AZKbbUvOUfl8XPDVcY5OQzybNOjAVEZgtkSr jIyhKR70uS6qcJnAmwfvL2wQMMM6bcalmtMELkh5fZ5YNsPVi2kzj2gEmhH6 Mo4VFvg6cLbRRINAtXrdlYlYSzQ+tHNFTIhA3U6lRSN3K8x6n+y/MEfH6Ox7 x9VirLFudDrqwxAdRV93fbw8a42eHyX7ZRvo+LGwvM3S3gah10xr7CwdN7yy WUYhW5TKLeN4tImOUkJVATr1NKznKjPLHvdEs+2RaTt22+GjGrEj8YWeOL79 +iP5SDvc6t8y+1XIE9lMxlhEtexReL3wGakdHnimCFqL7zng3iNl55R73fHC z7ogjc2OuNMzfFw8yR0zB43O//F3xImqlbdDi274K9z76/huJ9Tm8VW53O6K 7z9anWOhOFzLOBaueMIV8xYfTsR1OmNOu+/rPklXvOaxdxsnvwv+tnEr4Upy wYKjN8asml2QTd/q0S4NZ7R6uHNifpUb7vbcq7TugxP6B0wVXbJ0Q4FDaYus yU5ovFg8sjfbDbOOyol6vXHEJueqIo297vhFSpWrNtgB9413Po8w8UDun/vr ajkdUIlrO/v58x4YEjnyc6bGHqtz3ndEdXug6fuLP78v2uGB26kz62ieuNDq 3DIbSsNtH3BBWJiOXAPsVa/ZaZjO4TOZoUvHou6ifTtu2+LY9Q8jhz3p+PW8 yMOE9zZ40+bsA+cMqny9ZeldE2sMqgpaO/qPjsVMlnbfHlshfeI8Q8gOAllG t56ynrPEJeFpxf0yBBpXPFq+Z2qBT88EDgd7EPjNVq7h2RFzXKfglHEmlEBu QiumN88Mhbo3KM4nEFiSvc5v6psJfqoompuoIvCu0orO6h0mOF/0KcW7hUB3 Lt8MOS1jJCY7t2i/pPIqSTVpPs4QB57Urfq3TOVhkJ1YepkBDhTf5J3YQOLR xrs6/i/0Mef8hhgeHhKFI5kUhtj10CQj41GmBolqtSmxSby6uCD27vAacxIF o1JSwiV10OR94VyhC4kMid3NN1QAO5YY809QnP78JVDFIl4L+zra3ydQnHYI LBdfvKqBXN7BMh1RJBatmTnsX6WGkzekl3XPk5hmYnl6bkgJa46FCnUUkGj7 MrpY9qMC9tOk8v7/3f5fJ6Y3SYtymCbuN8h/l8QbyWOHOFlkUeSkdlBmHYkv ZuS8W6X34qGH17brUBw6c+LI4nZzcbTscY7d2UoiK9P0PiNfEXygs+74ng4S dwMt4nSUAJ7+Id3o3U0iNRxCI4q7MSRNnr+P4uCnmAsCYb6c+DnJKTKY4vB8 RkWSicx6bLr17IEuxVUOr6QHC3wLTQp+aQ/1KO4arFP5pqf9Tpsouh15hIqn 8x6Lz1WsgUi9heUhqnyE9NWgnBJ28JeU1QqgOKw1xS4WGcYFRuuZbaUpDqeX Kc0LXuMDxXwWG6He/9+byc3axAuBfNVtN9MXJGq6VvLmBoqCSp5VXgGlK0HZ WTWjNpIQk7jHXPwpxbGcih/B3DJgJmaT957SpVfkxyWD9XLwSurpaHc1iQmf TmbbLsmDjI2t/dfbJM7d+BUV80kRnJeuu0ExpRNMFoFPhpXhTKIC7WkOieHq /fwrzaogpGpZcDyVxN5mgUM7q9RB7jrTA584Ej3slxRYrmpC7ScF9tjjJLap K7rcidWGVSfCpP9/X5Aq1Btwqgbg2GHeXC+CxGvMDC5fSnUgL0N1ToBGjed3 7j8RyXqwMccEDRQoXVnHNBJzWh+iwvKSSwUpnQjStyw7ZAC6H7Z/MuIgsf+y QJmkpRG1L7luIP2ZwJZauS3B6sZQln71TQSV30zhbsy39piAY8BRudXNBG4S r2J5TflL/o3pGa1ZBH4Pff2tdtIMLHilzjDHELg//9c2n05zaJvUHI8NIHBp YNrzb6YlhDXVMBqrEXhgkr958IQVLJ/K+5DER6Db79CjpdLWYL5xMnTLWgKD GFpfbdhsAxe7B8S/v6CjwJl3Z0VP2YDr+nuVZlV0lI9Z3Rn92QZ6tmvkfU6n o92ipO5Eqy0YHH3etsmJjos9orI9wXbg9r2Rf7LMEysYWY6G9NsB/zaOHsYD nmj7KkDNUtEepl54JC6Ie+KNvzmPc3/YwwtWp3HPIg8UymQwNt7vCHl9Euti zrljze2v902fOsLCG5HMKD13nPqqeHo/jxM8/sb1xpficlt9zf0vXU5wwVTr 1i/CDTk7t3vV73EBNwnPqEARV3wUcFJZ/7gLrPJszVvsd8EnMbW+XZ0uoCHX 3ngm2gU3lI4lvgtyhbu+yp6Fr5xx5e/+lqwSN7j4BF4Tp5ywq8BCYOy7G0g7 jQdoiThh1m0/lS2a7pBdVHpbvsMRS1eJxEi+cIdArZmOI5yOqKrqEDw97gHr Dyj3Prhqj79kspTVhD2h48blXfWa9vj887tywscTNI12/JgbscPuk+e+75n0 BC6ZzS/Wc9mhzhpfVVF/OjAevUM4xttixdqUxdhYOux/WM+xT8AWzdfGHja6 RoeMY7c4muttsHFHku/HITpcPXaASKL0U4K2qu+SOuWbWlQTNc5bYsl30+QP tgTst9NMc6ixQIaJt+4p+wlQE2xdpr0zx0stdX1z6QTInDER45I2w/3XEl4X 3STA2e0R/5ydKd6SaK6ubCDgDwpMdhwzwXve/z63ThCQw5VcUIlG6BckOtr7 kwDmkPSdbeMUh2P4WmSZSbi9+RWxltEQXRsOfZ/eQ0Lz/pN3Nuvr49L6oGVt ZRJivgad/ELqYemh9PPTBiRUtEhkc0TpIlFrxC1JkDBPf5ZlVQ+Yf/rY7+cH SeA+4CnfHK+NdU8eROccJyFMPSo6PksTmZrGRa/GkVDobzjx94Y6ivz95dWZ SkLntzwRrRpVTDHdXS1J+eDLPOISbpQvXiVfVlpXTAJ7gdLIwW5Fqn9ig2EV JPQvDsicey2Pm4wcB+k1JJCB78TbJ2VxTZysbXgj5at/LZedfCONP5rnFx8+ JYGllzjP8E2C8p274/a2Uz75RaWcCYMoup4JedjxggRa3bHxmE1CqHKEySej l+rfsOjXkd18+AyknC8MkHD3hqj/KscdmOSXGnpniISkbA5Z5cObMUhGIp/h JQlMQuQmP85VqHxLs/M4Fd9leODEFfG0aYc//df/537ZtvWn+rCtaF8tiuD9 RX3e8tNUuzdtIzQIP7X/SdX/6dTjrPxN22Hv9acVfH3UePv5ByT94AGGDluL 8C4SusI6mTccEITw0VTHZar9As2+k4tue8Bp4AfDrWYS4J/Ln7fmEpCoJnc2 sYkEjUaWv6nq0uB10kzs0gOqvHKpS0i6LIR/PaPeWUmCr59BhGOiPNjTvLbI 36Da73O72/OUImxnvMHemkuCpsY+l7AQZeC5b56fkE7lx60EnrM+qpBulK2f c5KERxBzS95EE1jchNw+HyLhLKf30xIVbdCMbmYO8iKhqOGVo0cagJD/sZi1 hiTobffiVT2lCyyKtNzdSiRMcf7tnw/Rg0tXnoz7ClPzuVu9oc9XHxhbJcYy V5Gw+WIUbdjcECa/TklFfSHgMadk1ZSmEUi332nLe0WA+LnSojkpY0hLrToS U0mAnHHEnuespsD2ervWP2r9jPDcox2qtoDgX2le91QJAMaNbdK5liASVd1W wkuAp7DhyOUzVjA1TP9h8ZEOWr8+VmcVW8M7PY1dazrpIOYocrB0uw2sjjQ1 W6qgw/zTyfd/4mygkdFtrDaEDkO8IW5GPraQO7zrS7QdHZTyJjJV+21B8Emg RboCHU5IJLI56dAgv3/QWoLihZBAzpG1XHZgNfCWO7zDA/IPWIcWNdjDtpEv /epnPED37ZO+DAEH8Oc/X31PzQMkHz5VyY51gN2zP4J7r7vD2Iknko1mjrD5 QKLXDl83cGLnqt/Y7gTTcVsS3251gwd0n39se5whc8hRK+yRK+yqLUz9E+0M rsXrIvm2u4J92y7edGUXCLzy1u3FPWfYG7S91iHNFcwn7mYedXYGkxyDjfum XGGrwDjDxhUn2C6o+UZfzQ2yeBxYOHScgG0xec5/xA3+NM46TT10gPTuyeE5 dg94miKxxt/ZAc54P82VdPOAjL959D+UPvSon9biKfKA3fmPde3F7IFRx6mR S94T3AaCpALjaMDgweqZzEuH4OK7dwZ30WBRghbuoU2HU5oyDIfv2EJdMgac 9KAD07dORdNhG2Ad+XmtKJsO1zylrVL9baBo9zmX8ho6DCd8uLx72RpmDP71 rfTRoVFNMmjzbmto5hMzPsFKgFPwxMRqZys407blR7EQAWvmRDemhFnCflO3 p9u1CLDlm1AbvmUOlaG3E1sPEsB916uPf6MJLDy5G67XSkByIHkkVNAYFGDr 6+jXBPhU1Hs/UjaC6kqX6wxfCUhbEy0Y7G4ANkKpfPe2kFCyIs7y6aA+/Oy7 ajQtRHEsvsP3zCk9eFo68MBRkQRp4QIRk1wdYOzeXztJI+Gk0c7puHKAvuaY ldUkCaE2kc8EQ7XhrQrtp1MQtQ4OejWNn9cE03S9zVMURxua882JYnXo26Lc Uk5xtHopmvNegyrkxZ3LuElxdDFvXcfXPmWYrBfaMJpDAnPfqr1iHxWBOOP7 wJDiqMQ+acYjK/LgEWAs/+E2tW5HXuSukZODE1bfutWqSfCccEj5sE8GOGMk pt48JMHUbmOBu5wUJOnRlHsfk5BRWnTrVYYYLJzWT9j6jITeotNGPsvCgF+J sqIOEvwWUsIE6AJQNnIp+Gw31R618XQydjfYPaHV3aW41sAuV7XfbBssFWd5 ywySEAjZvzR4N8JVqTnnJYqL3w3uP9hq8U/b8uShhK0UNwdd+R/p9D/Wbn5d N/0/V1MOPTnBnfmnSXDzqlBZKj5oUycy9nQ9voldtVfx//d29BuJjjycOK68 ji+Oqn//Yw7Do8678I3lF+c9/SSobfvT0tzGjw8vcX3n7CHBqVubW9RHGGkF x5lonSSMaAiew1ViSODFmjdU/8ir7lsCcySxptxDrvYJpXOfyoeYdsrg0N/g 4vEGKs6tU9CcksVhrzFTV0qHFFfzlT2vkseRSzrughRnT2d7mOWfVMTZbbf4 1SnOfuTpkSw1Usa02w/Hr+WRsPLX9ODwZlXkKD0753KZhLrcGiXul2oY9vZy kdc5EoZMa+975GtgQshPt4YoEuQGjYQu+Wjha5LrhF8YCdOHS8hBTsCPnR8D 9/mTsHdKOKR9AfDyutrr99wpDv+zXd9eq4uHvl9BM12K27sqVp5m6WFrrEFp ujwJ7y+sMDEf08dkqc2jslS+7l6fH6ataIjLGvN+AWtI8FgrdFqYwwhLxrQX 1n0n4PDN9HHZL0bYUsaquvKWgDnlh6ZXr5tgdJNF7GwtAYn8HbKzJ0wxijb+ e7qIgJOPORR17M1wZB/fZ60UAl5kylSPrrbAUxGnDvzZR8A7cZvpKFFrPLf+ aGYLMwFHLYP1+y5a48fEwcaiL3RY8DJyiv9tjevK2/ZM9tPBnTXAa2OLDTqw sKfF59Fh9i39NJ8zDcf6XbpPStFBNvbcjPBDGg65sU9EbKLDvS570cM8dngx +dgEjnlCXdGp/PZ3dujuUrmtz8sTpM8efyPs5oB38JGGmIsHXO1n1mhCB2R/ bnmcZZMHNKiKqrsJOSJrRo1tzmN3ENzfMJk87YhRKkpcU8LuMHg28pWvtzM2 8xqpHh51hYXa/KkSdMaD/cNshvGu4G76ybp9pwtKbVmJ/CjrCv+uixwrfuGC 67uL9MqiXODW46pKaxE3VJ2t0Ind4gzPeX6/VD7mhvf0FfPU7zuBiwxNdqLd Df+0bPr6xt4JfrfUWIf7u+MbE/rvf2mO0Owcflsj2wOjbx5QEWB0gO82Lw0m xz1waE7IteGqPeSrKBkrU/t2bW+lej8listxV+D5PU+8L8wqsnqfHUTvOrej 0o2Oa9YNhzfV2IKQhPCR08fpyGKXsdHN1BbW52gyZGfRkU9x/qnUiA28kwoP vt5Hx1jhsHsxK9Zwv/XtwMWvdLRscExjP28N17MC6Y9ZCSxefDs6tdMaIoZv a3zWIrB1vuDe6iDK1/x9ZPbekUDW9j0TOfEWUPiub5n7EIE7GeJPfs03B96H bDv1cgl07vMW/9BpChIPtOLl7lE+yG73sdxxE0gqvJLh3kbg8wSjMuVfxuA6 ofyHnCPQuteuUZHbCFodLqaoM5J4gumnVoW4IQioONPMt5FYGJAzJqdmABvO BWhuUSFxwL1TP9pBD3SmNn1tNSLx6y+TP6SXLqxv+DR6x4HEuIDndUeDdMDR yueDQDCJDOHWDl2s2mC2r6TrRiSJbH7mUpU8lO8cPnCJSCSR+wQTs6WsOkT/ qLpvfolEIZjXa9RVBb1lj5r9eZSPLM612UZThswAffEHN0isdr13M4BUBJte sRLlOyT+StvW03dIHugWnV1TD0i0dfvi4B0pC7ScactnTSTWzIWX7NsmDe61 xfLhzSQuMWad3nZYAnbmiOUFt5N4eUh8Y2P7HliusSZqKJ/uxsaSdUpQCA7U DVkbUj7+36eG4MjjfNDG5WTGS/n8hAHX6foiLvhGmCrqDpFYuvrM72gaB+zT Yv5ze5hE1iLDOtlVa+GPzrOkfS+p/pl18An6f9ZedeDGxP/xT8NSpquyn5s+ +xeuqqTK2w5zP9w8z4QROdmzelR9+hrrVoeYc6Dac9Mqfup5YZ3YWJ7LhQ9u 2vuaUO3JVTjts3CUD1dYNfbUU+1lOXhEeZFXCOuG3bcepfqjJ2J/TKV1D35t +e14kuqvrsv5VymBEqjULCLwghoP5n1qHOMc0tgkNXJzfy2J9zY0fot2lcXN VZOS1lUkntXbx/pZUh4TmT58jSolUWpX0eOrKwo4bEDT+ldAYtamzedjOpXw OH+o/7NMEtv9xt+fy1HBQNuZFu0zJF6LXKA9VdZAw6ynDf//f7L4ol/nu9Zo 4aG3VrwzB0hM5tiT8+CFNm693LnYaUvNX53u0aBKHTSTVAy6r0+i/a2kweU0 XTx3Rtp4VpHqH8fv7MEwPVw5bORrSuVjyLUfnBZqBtg+Kv82mInEheWFpmFu QwyVNOD5PE/gkcWb1Rf+GOKV5pWrL18Q+JozrtWxxhhzXm41sKgn8JLxXU6X dBPUfyVwmrOEwJoiOa59h0xRdo1/S/EJAq8sV7KFCpvjTY/XAYd9CPS94n3c 9685Hk4ufJlmRaC0VuhV3UELnCprjZ/gJfCGnH1AcrQVKt7d+rX1AR0zd54c svaxwfMHzb39r9LRuPZu+O9OG+wssFQ9EEVH9qV9i/MKtrg8raSXakRHk4JY 9iEGGoo/vN+7IcsTz4dyeY0n2+GKR0tCrJMnxsqyZjfM2eGuEmHl7m2e+Gbl h/0LW3uMWDEIfJfsgfy9P+uiOBxQufJUvEaoO0L+TPzzOEdkbFqX80fCHY/8 qkoRHnNEy1i2opvjbhjz7U99gaoTWq2wGk6au2HkscrC+Skn/PDxTBEvpyt6 nNr8vkjVBd8ZfGaoeuqCLS0Fbx4kuaCsYmKxWYgL7t/xSGFgxAUvP4suze90 Rv81uko8J1yxkaH6mMhRJ6xPv0IU3HZD2e9sz414nTBp7Y/O27/d8FdS5nJ8 iyMeiSDYKnTcMedU7KejHI4YOmB06GS3O6bY52/xzrfH/ZqZ21nHPLDd+I7l Ox17XHwkutVHwBN3eEiuyxi3w0FpnvZ80hNL4mp6H/Hb4c3ndVw331LjNNlq FZRhixk/O6wn9tHRirWmn1/eFmV/7WqYpca96WMVSLywwcSgyDY3al6GLblO 2Ky2wbJsp44DvXTsiIi/c+SKNRaGdw6wzlLz9u1Z1j95awxl8yhaz0Tg4tVi 7pIWSxS7arskq0jg46LXDqY/LPDfdqfH9uYE3vrqpzfEZ4E8UR3dwySB/odf fewIM8PyDSpnF88TaMSVfoNhuzEOapx4kzxC4MY0K9d2DSOE0CrTzC9U3nJd FXlIGKJwJnL/+Ufg2WfXXivf1Ef3dWE+rXwkznmbPO55rocHHZzuyMqQ6OXX Xnf3sy5KF6b9/a5F4t9blSKHpHXwz9XRqPD/v8/18+9wsQJsXlZ6oO5LYugC f7frqBYWrIufo4WQ2KNtpjvBrYmKOw83IMXlrvh6YzdHdfSxfX4nKoHEfOXb hkOpqoj+5f6X00h0X7x8w7tTGcs8/RP/5lDrXDxhYiuzEt7uya2tLSLx0cfc 0N/aCpguJ17Seovi/J9ntR42cujGueMQ3ifxwmTUjWVCBm9E12fOPiTRed5u 4MWEJO4au9Zr9oTEF4qXvfxWi+Ho+O7h0WdU+z87HvjGK4zPTsGBa50keky9 DEjR4Mey5EmXrB6Kg4eOdM9UcmMJ453wx/0k2tlZvL04xYH2zezXd1Mcddfn cnmhthaHRfSwlOLsNt4XLryXPzXdXWvZtJ/i8PmuzvqN7+a0Lc+wZLpQ8aD2 TK/C2XWg6rLT7CRVfsPn0Q1lbFuBY2hhrGeQxNO/MgLeDeyEPWFjB52o5+U8 rb71/QU/1G+fZmOn2pPzI52QqxIGtpdTb5c6SHTRz+04ky4Ge8/FbeWi+uNy USq06YgUFHYpvfN7TKJE1bMfr0tlgLFFImqmnsTU9V8m+bPl4GwgXavgHokl uS+9c+IVoCMj2TexnEQm3WQbpTAlGIuStS+5/v97xdJLr0gVqGIL9/udRena JiPhUEs1WLhkuj4ymdJN54l/n1U0YGuwTqUKxeXVL0xk5QW04P7agl5Risvf D6kw+fwGsLGaLilzp3Sd+zrz0icd2DUVc0LbisR+rYAtHSO6kJ07wb4eqL8f Fl753aAPFf15fOa8JB6mZZnDLQN4c4CH4ckGEidFrBKyrxgC9/rLB0KXCFS1 HeXyPGIM7J3VnIn9BPa5q8vcp5uA8umlpa9NBCbuflr709QU8sQ8HqeVEniI 7BDfuMscujtlcjNPEhgRWyrfu9oCdOZS85b2/X8uw2TeadoC1jqNO+VbEMi4 ozIgrsIKmrgnhe5yE6ix/WJO+WUbWD41ob27nI6CdIb2FEZbGDfpe19+gY7P 9nyfvnPYFro6Q0LjDtERIjZ5XDShwQqTfrSAHB3TzVqaDb7awWve1SmSLp54 8orWhygHah+4LnLRYKsnll4qvdH/0B5u0LQj1nd64OaNMgXlsQ6wnvz7t1jN A/epPDtze6MT1Fv2dYSvdceHys4HO32dQNu3o/pOvRuO/TjzZQ06wfWKfwwv g9yQtUb3SmmgM3wsMWL52++Kr6L2/DjT4ALbVt66z6e6YFpjceHaTa6w9Jw/ 7Ju2C+YOnC+J9XQF4fHR9PkZZzygOHH3yIor8BjIHtyh44xi+kthjZLusGQx aKj0zhHPiN9cN3bEHXQ+nmVuOOuI3TWJG2Ya3KF575VWL3FHzMpxflJq6gH+ GzomeQ474CvPqpCLDp6gcfl4Q/kPO8y5u3um6LInPGsxIdLT7FBT+VvKhQFP mNlqxvFA1g5d3hIbp/fQQX/TQ7nHATTMecNV/SmbDsVrubeZDNlgQ97GMoFq OlzcCJnhh2yQbpR3vL6bDj86k5hXs9ig9b39uJ6RgDyLezvkVKyxuWLJ7NEu AoYjhf7iVSsMkpgd61Mg4HdxTvW3NkskTrLksnkR8M9idcQ0jwUWM7CxyR4j oOZrvC8amWNFg+jWigsERA36MCUFmWGoinrLvRrKV7Fdi9vx0AS9hIKGe1ZR vrysQ+K3iSG+f9zMcZuD8u3PT7w0DjBAphfnZd8IkFBopH6hM0kfQyS16pR1 SJhJXLBLb9dFw8f8a+hWVMw9vmtqWgd/sIR/eelGgn84p2PyWh18kHTjDh4h wWLEpnzNaS1McKLnSFK+czA6gLmuRgNfvbC0mk4iYaI4btrjixomPNP0nr9E wlgvI+2/AHQDi/wDJDnAKgmJe02fYkDL3ctTuFg3wPzMITz2p2JAaYWtAI+M NcDhGJJT7a9iQAvAv3eYvzPAusv/dTK3YkAhtrre5fExwLJwL17FvWJA/XhV YogjMMCuPx8tScRiQPsJUPdfPSzAnQCnSO7JYkDMLo0MYDIowEjtyW20zmJA iJx//kAmJMBCGOFjm9JiQKnyk9QyGSDAMA2e/KLVYkD7iJhCyxYYwEL2DBTL 12JAxZwWACb0D8DlRpaQE9liQEwp6pV0cv+/Z+v/YnzZYkAO7V8VgE2wP7H9 bYYF2WJAb/2aQAy+AEDv/mIAr9diQFr3eelyfBBAK5a/4HjVYkD5SoIPHJkY QOPTwUFj0mJATLiPp1BaIECl+gNIbs5iQBohSTlRZyRArMx6IprJYkBUnwyr X3MoQKtecwrnw2JAebAy9kt+LEDZb5BDVb1iQEZ7wxDzQzBAREfHG+W1YkBS xcAh/0cyQMgWXOuWrWJA9sE/QjJLNECL490Ua6RiQOtdfZB0TTZAefQhBWKa YkBlS+A1rk44QLfGPjN8j2JAb+UTaMdOOkCHiIYguoNiQDZ+ImqoTTxAIJjl cKNpYkAFLLeZsSNAQJlmkwlQW2JAunq/5gYhQUAhzIrMIkxiQOuQoO+QHUJA axnMqz0rYkBH+ZRrFBREQMCucU6HGWJAAkhwk/YNRUD+HQYo+gZiQIvDyOHe BkZA/qJ6+l7fYUCwfSPXk/VHQEEfWslSymFAnMqRj0nrSEA7eRF7c7RhQNp/ ZZLX30lAiuv7nj+GYUChlCktT8VLQN2hdTXtbWFAUiQrRCK2TECOBzv3y1Rh QDqJv6SgpU1AuAIJryEgYUArh9zqcoBPQOfgCBabBGFAbpvlZtg1UEBZByaK SuhgQKYND/u2qlBA4LkI41CtYEC+by5pHZJRQI/96V0iLmBAb2Lw+/lWU0Do CEjycgxgQKAkjmUAxlNAhLkrKQrUX0DrX4IpHDRUQH2GBdzoRV9A7jUDYX8N VUCds0SOXBheQKRf6W1otFZASmI8v3PJXUBKMyw/jRtXQCygonYpeV1AVObg 2Z+BV0Ar7xVsf9RcQI58dYt7SlhAKsMrTCeAXECvJctSO61YQLIYZ/Z8KlxA PrbsRNYOWUBHaVpjhNNbQISTl9tHb1lAhocWm0F7W0B4zlGei85ZQNnAGEY= "]]}, Annotation[#, "Charting`Private`Tag$12411#1"]& ]}, {}}, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-150.79642989601697`, 150.7964339254788}, {-150.79629173408554`, 150.79644736843872`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.807939784254101*^9}, CellLabel->"Out[12]=",ExpressionUUID->"097e950b-e372-40bc-b8bc-3d7aa8edc8df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RA", "''"}], "[", "t", "]"}]], "Input", CellChangeTimes->{{3.807939756244205*^9, 3.8079397579580927`*^9}, { 3.8079401938391533`*^9, 3.807940209086769*^9}, {3.807940249187682*^9, 3.8079402599213142`*^9}, {3.807940355137848*^9, 3.807940356383025*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"bf4f25d9-5524-410d-b423-5a1dfb33300c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "96"}], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"96", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.807939758485813*^9, 3.807940260494721*^9, 3.807940356668243*^9}, CellLabel->"Out[21]=",ExpressionUUID->"e2ed2b76-6a4e-484f-a6f2-20114e09fba1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "96"}], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"96", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "}"}], ","}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.807940324171959*^9, 3.807940342595052*^9}}, NumberMarks->False, CellLabel->"In[20]:=",ExpressionUUID->"a02d8a22-4319-4a95-960a-6af440ed06e4"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJw1m2c8V//7x6MSQiSlSGQUqWSGcBEhe4/sVfbInh/zMw/KTBQRRWS0I5fV UMhqixIN1TclSdT//G783fF4Phwf57zPNV7PGyS8Qq192VesWBG5csWK/33/ /6++Y2V7Xp4mIF62t/G06nK7ofeh/KckO27p2V6syovySno9j0jO/4+48OWD EL6Ny+u4RbJ6dMsnuupWbD2lTa8g+XexP22d3nZcvmosmkoyxPy6OPpBGvub W+OdSK6zzIwuzJHFQyoVVXIkbw8q5LZS3Y0elewlcyUE8PU66KaFKOCy5Ffn 6yQvV9ctP9VVxPEzEe8jSL7KyTSSFVLGqtZynR0kv9TRbIz6oIJ3pxneI6cI KOhj72q9rYYnDQ1s4klWSpFd9zdbHaV6p/g2k2xefYsVrKKFK86rf4JiAtzk W1+UcOqgT5EEd28RAUeLzptNBAM2jTvOm5AsVH7xyW/QQ+6v+5Q1Cgn4xXWT lyJ3EFtsNmZVFxDAWn+1hG2DPkaaD1StJdl/Qmr457QBfqA5GGMeAe9K53iO PT6Ed4JiBtaRLMbuf3PkpiE+380r6XiSgKB9HNRSljH+N2KuNJxLAEfP4zvj +8xQuSpxOYIgwMs2wWGbiDkSoifmaCwCXn1LLnVYZYEWgs23ipgETBYaVDkG WqLyOo6rZ+kEJFv/iUvVssYq3cfHnDIJWLfffGxFszW2Bm8cV8kgz3tqoiVB xgaDb4XKrE0ngEfa29h7nS0GA0W2nEKA9u7ApfkJO3xzIZ4rMoEA0Ub9CXM7 e3Q+dJl/UzwBucI3bCse2ONGWvBMcywBIY37klWaHVDEf1J0NIqApnrx25vS nfBEeFlcVygBO9lhW52kK17ffjjUyIsAOTfCxL3CFX+k3qRbeRBwyFPtL/c2 N7T6K65l7UbA6vMv/Yy2uONyk2S4hjMB6xu663bRPLBUN1us2oqAj5Hbdtok eaHcAF1kRpuAeSnDNW9ue+GuCaN1IQcI8Htbx/Bf9MKQ2YPVH9QJuBt9TjUg xhuLp4awW5kA7sbRPTvDfZD3vEibsBz5vjyBnerthz25ARQFQQJWBPndvVbh h1mv6lbu4SfgwgkPgYlxPwy1GFSV5CUgz+vKnJjLUVwtdKhxjoOAVcfj/5nY HsOM9b2cyossIHi/lNscDEBlz9Jt0uMssPrw9kiZSAh2T1S9fHqOBf99ivj9 yDYEFSu5uNefZUG1yAWOn0QIKnsdEDI4zYIYvxVqe1aEYrzUs56CPBaEBtz3 OPguFJ+Hv619k86CqNv8KtGjYbhi7q2nlDcLNg9aSs8URyBFILbPRZQFd1d9 V1y6EoELo9zZVzaxgKZiVcg5GIFS9rvNVguyoEfPUk+Q6zhuYA48PMHFAs93 HYH/xR7HpKxLM/bzTLg592Gm1SESDyuVdZ/sZ4IQ1yaxRIFoVE9bUf88jgk9 V31ve8hH4/BW54jQSCYYZ0lxgmE0vjUTqPwbwoQOU4XCr4nR6HJk0ITLhwlr abGPuT9EI+tz8viAGRMkR0YkNNpiUCj6i6akOBMa2ZPPGHrHoQSHYPLndgZk ZLfej0qKwy88prbNNxmg4/L+SVlRHB5cruoMb2FAu8N/mS8fxuGRxmvBY9UM ONtUksKjHI+rHl3ecYxggMz10SCdlQn4s/1ymqkTAxYtfrxoK03E3bqub498 poO77f4KvRuJKLxr04H2d3RI63pu1j6ciJ6/DhiJjNGBr2afZjl3EoZ/CKK0 9dFB/eEV4l9MEgZtUa2vbaBDwaoau91WyRjy/t2UbCgd7GWU1vIvp2DQBdHa h59owH7mqlfHWgpqDjacN35Lg/Twg+rzwhR0MDhZis9pEFo4cNBaiYKXt37L PHWfBhe7LvsNH6WgW8oM49d5GuRtYLswP0BBoVPH0/3caeBiOZVaU5qKzgZ1 HRJ9VOjbpm8efiEV8efOfT7dVLDbvLtb9UoqPqWs6C2/TYUdLN6KKw9T8cGi M4WzlgqPom37ExZT0c3V7cDJLCpI35yKVHFIw16q1ctcbSpoxa8R0eNNR/1E uunh2iyYqEzKSxBOx+/xMXuelGeBy68NRxol0zHG0y3VpSgL+l3PP1qrkY4X Oo+mO2ZkwdCD1M90v3R8KDSjzueWBWqnK1rL76Sj1H611Aj+LNDcYHVfOjAD Y7psD+4NzwTN0YUDNdEZOHpuf4ayXybc6Nfs3Z6WgbHvSoqVjmQCPrCV4DyV gTdlcoy2GWTC54OJvsy7GSgjyxCrF86EuIC8Y+Himah/dc/x83cy4IykUF/V QCYuRzSUbePIAB7aibXeLzIxJexToe9iOig6rVnaMkXycsmj81/TYXNi2nTM Yib+yPi0uOFpOlSV5TGnpLLQWbmgs6EmHSz2rgskYrOwOYXn75BhOkiKHaMt bqGi+mWR+Pn0NBAvCXp1S4qKO7uKWrtj0uCE5SRG7qFizV6PV0RgGnyrdlAY 1aXi/aLgDn6bNIjbut7N6BgV17/4SnkukQbOHoHlP1uoKKH9aDTuTioUdRsl OR2ioRjfLQm+OQp4nVDpOWRBw8/7aG3a7ymAUTmHdzvS0C5wZXXACwpE/ji/ ctqfhqG+hoFXkAI3HKmfVhM09N2hsYufoICb0tmA5UEajvpcrJ6RooDLQnr+ LXs6/nF9+rvoXDKMuBe4gRsdP8QV3aqmJ4NNs+Vq9KXjfOSjTQ1hyVDSkPHm UiQddR93tFdrJ8NgQsS5AyfpWL82JhReJEG88OPrio/o+GnwevkW/iTIGXnL HazJwAw/d42C6ASw2WO1cpceA8ePGnp0uSTAILt+xVsjBroW2bz/pJcA7E77 72nbM7D+9tg+mXUJ4FajkV0bxsChDtVj5jXxsFr2cpV5FQPVb/G/DHgSB1Ci JX2Hg4muWYWKKxRi4fUVrbrdvCRP9a7cKRgL5ZfZUwoEmTimmfvHaD4G7ljn cZqLM3F0sDYlujUGEtOtw73UmbihrxApRjEQtbeEZ1MAEycPgruTezS0GC7H VvYw8e6iM9jRImGGPdh580MmFjzZ8L0pIBLO7DtlQ33MxNQzj0Y4zSJhtcuf LJOXTPxdsWB+XiASChSV70V+Y6JBxzf2kpLj8CjQxN14MwsTHm0ciauLgLW2 PT+++bBwd+WqTvMHYbBN+qSjiD8L83W5i1fXh4HNu39N2sEsvLg72+RGbhgo 6p3XDotioe9LyaMCjmHw80/vueRMFjm/qQEyfaHwcmLspmEVC0vY/1y6tjoE ugRDZldcYGGhhFtF9aNg2N7PwddSx8Jv79QVc/KCwVP34ne2FhYOP1jyPCwR DIOtsZaHO1hoq5ySFXAgCP7L0SvJeMXCLXjNwi08AHJUdW88HGfhCUmN5tdq AXBwIaJ+7SQLxeWp+Y5//eFQ2P4t0R9ZiLsIAXWmP7jJ7no/95O8/0LupIaq Y0D/L7PyFC+BA5rTpTFP/OAE34enwfwEBlX+aSgs9YMS/ZCnGoIE/jC9L93o 5Qdh5RIq7cIEbu/7GT/01RdeTG13DJckcHPFd7snHL7g+tW3Nl6NwMAUC9/3 Kt5w6b8TzgPqBIaN9l98tuQFhV3vBLceINDFif1YT5cXVIT3n60EAtk/fqGe sPKCV/dv87oaEzi27tPQzyBPgCrRhTgTAnO2bPTqVvIEl7Mh73PMCHxi9uZp 9qIHqDd9GiJzBh5vH6vfRPMAtbMdAxQnAuMlkP2ngTtM7hUb8T1CYNGx8Syb YTeoOFf+/KArgUNLOc21Hm4gpmY1/cmDwEdPvgUfTHCFne22i++OEniUQzJC ovEIpHgtNdEiCRQWl6moEXYENcZC4XIUgW4jZ8PKzjtAslN3dGAMgcajeWWE ogNseh0qrRhPYMnh4iRXU3uQ6ZxXCUwh0FFji/2dFFvoadH/UEMhcOO8twCD xxZaG5+eHEsl8OxM5WqrUzbw2aJmQCmDwLc7XnIMNltD+wn9CSaNPH8D5eDS KUuYPMlhlksncJFLZVY/whIq1b9eJhgE+la8ERxetoCCcm2H4ywCf8ttHTBX MIfGaqXTRwjy84Zf3E01NgPH134jB7IJLO9g6673MgXpyWbpTzkEWgWeqJ3N PwxPvXy1ruUS+EqCjZ27wRiM4+jGCScINF94ryF6zwjqDgVpfztJoL67+u69 vw+BtdiQTHkegZfzr9kqrD8Emv2/2I3zyfPZ/FhdfpcB6IZPFmQWkJ+fsnaz kOtByLPLp0oXEnjA9tewq5celFnT5NtIPqV8zq/iqC6Iv87PMC0iMLHQa9NE EMD3jhM5wyQ7nRF3Un6nDTyiTmbWxeR5LnE+P/v1AOS53Wu7T7LCT0XNlb81 4DT3xmulpwgUrJV93sKrBqeXb2ktkszICtjDLqwCop9zYixKyPP7b6T48HYl qPmS6F1K8pXAHecJ+X2wOySI7Q3JsWz6WBS8BxZ3m1htPU2ghDhP/do0OXik y2ljRbKPs7xcbKEM9K4v4Egi+eHnXVava7eT9zMVWE5y7Y0dMcnJW0Fd7b+0 2yQHG42t3l8jBEYr60z6Sbar3bby6dm1cD9J8O4zklMiPKOC3v7S0b4m/f0F yfLD3zRCZ8baL/G/GRghOaH56RJ/0Eo8YWDofpfkgYouCwdCAD96upRfJnk/ lipX+GzGffdk8nJJjo//b2m2TByddl1W8ydZ9q/6tWy6FD4uXpGtTvJm4apL 0lE7MSpkZyEbyX355+9e9ZDHEndVyw7y+V2FXH6KyZBed/xAayzJ8u/rUl6L KGLPGosXpMdhTHLqz2IBZYx/mFHbT56vN3Vrr9kaVfzbNS8f/D/W6wxbWlJD 1mH0XEnyiroWl6rv6ljD88/oBPm+5srV2Aw+aOJmnuG3G0m+y1s4ODamhe/P uO3NJ9+3BN9m3ZBhHTQOvbuHi+RWZtab+HeAZQn73kSR9ULL9ZhSH9dF0ekb 7qpkfX3UdSq9MHIQfaf2yDPI+uN60dfpMKCPXV5HLo2S9Xk1rH89W68BBl+t um9D1u/3TwobddsNcfU2oZjPZD+4nOZZDLlogpU7TN4vk/3yr+do6/tKUzz7 iZd3DcnnoxajHM+YoemsZfwKJllPg11XxfMs0Cri+2ROFjlPaupdtt+xQuvo Sk73TAInRIO6NDStEY1Np6TJfo5RfcdjfsMaB/nf3ysh+33fr4u3fZptsJU7 9IBEItlvzYnN5tV2KDlRpHuPnB9129+Uvt5ij3cOMQT94ghcW7tTwj/HHv/k yWzLjiZQyZ+aGRzrgE6qIuPUMAK1I8bKFQ47IZh52c6FEKjuUqd18o4TLunY n3IKJtDmSl/uF0VnFLnzNI8vgEBWoM+HXJEj+Ip2wX67N4G9Uhm61M8uqH+2 ydbOk0A58YKoFg9XlNW4LZ3qTuBW2f7EZyOu2LD9tF4XOU//89LL42lzw6Ov kiJnbQgE872TrEMeGCbOJzOvR+CGe/F3ngp5IbOZIK6R831y5EFfvYUXXnBd /ThUm0Cjxr0+KXQvnOAR/vCI3A/3I7u/bFj2QtkXDyL3KZDP5zf7Yc07b4z4 jy+rSoR8P/3b5diafLE6/i2/2hdyP9YUhb4+5I+zm96ZPSb32xkRwStPMvxx bUiXtuc0C4XZHp2/1+mPCjf4IIDcj9obXhvnaQcgm/TqMeFBFk5/sq4cUAlE 3bM1/h+bWXhs2/7NfduDMbjul/vfBhbadOm+MfQIxqOXOUTWkvtZaUJW81ZZ MM4//jy5tpKFDzevc8sUDkHxv7ve1J5k4U9L7uMtvKEoeb07zz2Mhc3ysa17 E8KwZZ2K92wgC2f7duaePxWG+03OcSccZSHbkHn5xhthqM1XMB3lRuaLVm6b T3NhaC11+BeXKQvLni3zOoSEY4Ytb80laRYW7bQ/oO0RgaKjveunh5gozsx7 xQGROH91l2BOHxNFWMwlQ9dI/FfO5q1wn4l/H5+PT4+PxKvUf/NH2pgYe20m 7OOVSIyWcN/iUMNEL6F27zDZKPRQSqp+HcfETVNPHbxJb/zacYRNezPJm4MS zr+KwdnSud8/1jNx2nzL6PbfMVgwfCbqHA8TQ3r8iFNCsfj6pczyh38MvPrH bTHCPBanRqKSRacZKPxu+ONIeyyKFNu/EmtioO6QkoF5RRxG9X1hP6PLQJfG g1kTbglY5/qX+U6DgX7EcOWZ2ARUSOjqkVJmoE/nRWn7kwkY6zFjdVKGgRe5 g7SaehKw+HrWosRaBg6XRfFvkk/E/vmsFULDdMxodZo8/SsRO1OMH9qRebnL VY3uTk9GvUyn+lEyTwsHT1lrn0vGfNvFaAsLOiZe3XRH6HYy2Ze77ysAHdsK JD0bPifjdk2vgloJOi4szCtmWaRgrrBkbOIkDc9GKwdMcVFw6ld7XrUXDRtb 3kboPKRg42E5kStONPTy2fRe5RkFV6ucuHPLkoYnZNYU7ZiiYJ1CineLNg3r fSNOL/2loIlReLD1Fho+itF6HKSYipaNLd3Gj6m4PG7V6lWciu46tOW9alR8 LbE2iemRhvcZwUJ+u6koPHcq4G1QGra4HT5TIEnFtC0eEspxaWjuzcn3Zh3p N2LnXt07kYZWfX0tsh+ycOeOOzsbO9NQb4thbkZRFhLFhutTSS+ks/XXRs5m Ir/lRyueN+n4RGVMNu99Jk5zSXL+N5OOTeNJepfGMjFHfcPoo/l0bDuz/3D/ g0z0ZT96IY4nA4fddBcGKzKxly78qUgtA+VTPRaeW2ai2D522jtWBpq8thL5 W5uBk/Vtb+qUMpHzd095ZHkGukVz2X/WykQGNYx/uiADr9XfJHYYZeI9k+Eb NykZOPVsn1a2SyYqhS1HS9lnYGOnor1oZia+2O03z7UiA72/HdZTH83EjwLT 9Tss03Hrx7onPuFZ+H0gsFdAPx0bKPGnexKyUD/AymZeLR07KjVfb8vKwpWx ejcatqXj0zclg1iShe4PdPeNfU3DnAgX0StdWeh7ROy3EisNa6rOXXLdQEWb Q7PLbzpTMebxk4gLjVT0OG2fI34tFWviak2VblHxRq/JCueLJHfoG13vouLf H005bTmpKHu991TtEypev2r3yNAlFaEq3kl7iYqRZlxsQXMUrHeY/byJ9MZ+ /59dvBIUnMyqekEZoWH7s6j3XwQpqDs9FsQ+RsNLernZDzgouNd117qkKRqm SCR/nn6WgrK/iHjXeRou/1qSkgpNwVqLhtreTXRUVbsd+ecUWcc6VcdsnehY e8TnodXHRDw59TBD6CnZBwezXdn6E/H2wqraK6/p+NX+0PSF5kQ8cTKwyHSa jo+3fvg9npCIP54ad/r9pOONBvEV//Em4tz2mK36ggxs2iCgW6RA9p3qmc0V ZmSft/3rPRQWh4mHUjY8aWWgQXV4z0e7OGRZjHts6mLg2LMvxVmacTh+u3S3 9QOyTxdq3tVzxGHnISm9K6MM3Cn7qbOlNBY/Hg3ZLfeVgVtaa7XO3YtBjUs+ nS+3MlFUmyNHbXM0Bq1TmzKJZeKWe5MK2/9Goe+mO8G3kpi4VqUkYc1kFG4P sTTens7E/oZp6c5LUaiV4jg3RjDxdW5x1oJOFFJcT/9cVclESpeTbqhvJPYm B1H5HzFxqPW4VMulCNRtEbQWIr3PxcvErTY7AgP35B7lE2NhBGuDaWlYBN52 9Y3+t52FFpN9vmHKETh3PSb+gTwL2/zD017cDke1L2Y/l3RYuI3x9WPbgzB8 vvVZ5gTpjVG8eYE+dWHY/aqC5Uh6471hkV0cRBhmFx2KuU96Y/dKWpamZRim Oq3/kRNN7pme+oNjl0IRDfs926gslMib5V3qCsYLCpY8J0hPrLCf+3EjKxhD 9Cbasi6xcGWUS1CwcTBulBODyEYWbo864tzWH4TLd2SbVW+wMOlbjtCfZ4E4 N9yw2+keC73va/ksz/jjzd1FeYLvWLh//HRjMY8ffuY7vs1hE4Ey3He3M4Z8 0ZpXJFhwC4GFYaMy0cW++KbsR+J9UQI52o6LaUv54uWwrAnR7QRe5KrxyNH0 Qd5r96pC5AkUvTT+6qC/F9I+mORf1SFzRouX6tQeL/zvt/CNZV0yB/mWcaXN eWLO0o58bX3SQxQdHRpSPPFJwkBErRGBnHU/ZYYLPLAlbOVtOdLjStZeOn8l jcwdNTPsfaSXPbbZoxTJ64rx1VmB5V4EPlNZnSVf7IJmDfoZQT4ELjwJ/kat P4LO1z27v5LediP7OteXp04ocIfn+GkyB6m8cPsR5eWEt2zLLZXJnGRnxcZa +OyIPdzzL3rCydwmIKczw+aI6/46zQ2Rnvf0zb9x+i57fK9F31tA5jD+IwGR k1ftMPZw9bEfCWSO3/myQg3s0Fj5lMnhJALrOb8deGxri6fk6nnfkp4XusB/ oSfJGvua6+Jukrnva3b//l9rrNHtB23hFZkLV9X+MJU6aYX5Vd1iv8nc+Nvv dmR4tSW+ctb2ECG9zsfgxderZWaYQ/9++X+581JraEbcNVP0c219O0Py2XPb DqgOmKCVxpZVD8jcqiG/9r/TKw7jFVUUCCG9bXnug6PBZmMcqaxcViG97aiL dOeHfUYYdtXq6TzJ6rF8YWLeh1Dlj72NN5mL3/Ydk2xKMEDXVQ4/+cjc/PBj Yot2vj5ucDme0ULy90JNQ5MePew/4Ov/nszZr8rKbvaO6WKU5OydaDKHR2nu nDaYB1y1gYPtH8n7UrwLPcy10SHw8OFFMrfLn5h4p5NyAJNualkFkzk/QKre S7hRAz0mdPWfk6wlSSR/mtiPv/m0JLVJTzj416DmmoAalklv+nqaZMw7Y5Kk p4JLV29WfSfZfb37C+3jSqi6kt9Qj/QQ2oRl55/KffiIbc0og+TPbEnvjl3c i9cdCPNHJIvPTTcNccujq0teCwfpORbhsb0qQTvxnPDaVRokl359uDavTwon Dn3Q8SP5qUGSzcweCfxuLX6USbIbp83fZHERVHCujbtIspH72DPxSUGM25US gyR/tm+YTDDhQnnDUx6PSZY8vyTgUfGzXXF8Tvk5yfVVzdo/LMd05p/kzP3P 62JELRdmpNghqMv/7CjJD578Kn5hwQ/rZ9JVHpAsd0TEQpPYBNMGb65dJTnU 09a7sFcMjidlSZ4mec0aJd6fKyWh+3NcQhzJXhUMl5JzMhBQ3nXHkuSdWRv0 NHTlINY++Is4ySMMlYnh8d2QnJy25hN5HorstfJK7QrAUOfnvUTyzr8zR2Oz FWG7s/RfP5LvNQsp3XRVBgOfoRdbSNaWdd32U14V3AnZynvk+VsU/m7btaQG 5q3aDv/zPMO8DQ7UEk0Q1f6TVkm+z8OmnJF1/lpQOzq0qESyWLom7f5+HXBb uu/WRtbDB92GL1GBuqCzLWPmFlkvOVF+Zxas9aD6U9aGvST/Etf9Eq1xEPIn JeVKyXp7XT1D9eUygG+nbol4kvX4WXG17+g3A1Bq/PfrBlm/zldG2OHZITh9 PqqDi2SHQNXKVTVGEJNQJlpI1rtL5jV/A31TaL/4asGJ7JcNRuw7pXTMgLdJ cdyX7CeP1PnaRXVzSI+Wi/RnEfiNof797iZL0O7cWufAIL1brePadl5r2CgS ZPeY7N+Ab96mwQxreBgsfPMU2d+l3zbWNq+xASvviT7ndAIjxKoVdrPbAsdp eZ5uCoFVuxg5Y/N2IDW5ZVqRnB8OwncZi8ftQSpv4dVN0uvuO8orC8zaQ2EE G21/LIFUgfOrds04AOWD0ZJoFDmf52Y6ecadQD1dLCCNnGdr1Y9/8+9xhWIn 7rvtpJdxc9ZZCei5wSYlllqnK4Ft+bV7Gu+4gZKfsG8r6WnOFVcHhq+7A1P2 1HyRAzmP8jWDno54gCirfeVncwIXwzMbe3u8YMLa2ZrzANlvtWe4hlZ6g1r1 h74s0svYD5Zxjuh6A/+/lnXLquR5BiU232vzhuj88Q+P9xFoLRzdF3jVB2yr RDk27iAwsEJtsqjSDzbo2xdv5CdQaPHFZskxP/i2xGgx4CX3R9Lg1QsbjwKG 3L8czE1g+hWbqXP0ozC6Utb8wioCic1axVahx+Cw2XHV+wssjDV8+5epHgBX 7aOdW0iPU6Z/nb0WEQCssbqxsFcsLJXx9X9ZFwDN+9+a7XjOwiPFrHp+sUAw PMhaSB5i4fuhJfZd7EHAdmKIeN7Nwh23iy6ufxAMwt6tUQfI/apUJmE/wBYC F07G7aZXsXDNo66aDI0QyM+eGe8vZyHD5yb787oQ+M+oaL/BKRZmHqxdvyM7 FO6XrBseo7PwYqmfVvWFMKDOKKW1k/te3oTtU/2xCPA0PfXYRIqF38H30uus CGAXF/Nx2MZCrusqm7nPR4DF0IPXzltIz7vmNmD5JgLyze1zjPlZWC+2eKvU 6ThU+3Fx3P3DRC2ZkWUZ40gwhvNFBwaZeOZv1NJ9yWjg4UtV2hXNxG+66g7a utFAFEyWq4aR+Yez3LjeLRoSrJ7v0Ahg4pUNkcMxp6IhqcSXLuvGxLNyXtl3 +GLAbfXww4sGTDTu+QJrF2LA+fefl/sEmUjN5ljy64mDBzfz1wVfYKDetEhk 3Js4+GDcdv5sBQM7jhW2ZSzHwdm4hae9JQws6j59PlMlHoQXtYTXEgzU0E/+ tvd8PFR/LtFSCmfg+pZV9dvSE+BO7e9+yf0MrOIe5FJVT4LzfacF8pGOZ9XC Om1sk+BYdPfy2A069iZEOfiHJsGUUNFd8SY68khULSScT4KLPsPzuRV01N/Z YKAtkAxyWw35RNPomCn/Lk3hfTLcSaKuGtel47FW13cmhyjwep/X4x2tNAza oaYSbk0BZ4FVrdJXaPi727TgpBsFes3GGrdeoqHN7eiYB9EUMHi40PbnNA2F pdgj1tRQoLEntjQsgbw+meNqB0cqPGZGSemo0/Bh41Nzka5U2GddGZdE+oHG FvqX1v5UeCmX7o81VFRdqNZxfpEKb/X9KpfPUDF+cPY7dTYVMLh+2Y+gIuVc muHlbWlwfLKf+tOfinEev9V3JaQBn5798MrtVDQwyVnTsycdxtCzcI7IwtmZ 5Q93NdKB21Ds5o30LFy9s92261A6/EkMiImOy8ItcKatzi0dqtydh177ZOGB 3vdRGtnk9VuKbbw1szCjpCDb9HM6+NAiNmuTnhdn4iMpX5UBBZ172i00MlGg 8cVo7OUMuFKrKmK2NxNPvRi60H4rA47oRh3Xl8rEsosJlZqDGUDdJC4twZeJ f/mOn/y8nAGnvptPnXyTgcf5yk/utc8EtoXGs87UDFRsGLCWYs8i98U6+on+ dHzp9K/lz9osOCnqeLG0Kx1dDgyV9wllgePdp1PnbqQjS7pO0FM2C+y0ne+U n0vHrJcxWw5ZZsHcKlT3ik7Hf4pH8zjKsmBLTxn+FU3HPVXyzZaKVLgwujq1 yS8NT7Sof4nUpMJxPsE06SNpuCQ8eixPnwqanzIX8i3ScJinWbjdngoSKeus /PanoR1DUXQwngq8/kJsw1xpmH00HMc6qJCtVzv5pC4Vk2LnNBgmNDDJV99e 9pmCQjevzd6zoQHfZtmIzgkK7pntGv93hAaPKx7dmRyh4EL7f05uQTSYKIl3 2tJGQQ+H3bmjLBq8Nm+ZdCAoaBExYFf3iAZXBq7d37ibgv7MQJH3hnTYuZ59 LHQ4Gf8pHeY9ZkEHR6fTbd23knHoSPniW3s6DLc9tlh/LhlXhRbhXV867A3P Li8KS0a3F9r3DdLpMKIgX2zCm4yDCWU64m104B/U5XEzSELdQ6vfacgzQOyf fqd9YwKu8UuIYCgxYI2cUkt5fgJ2vdhbN6TBgGl56szb2ARsM9ojaGbMAD/3 41aWugl4XeRrxkdfBujzOzwaGIzHi4dq9rWXMWDf2Hq7Y7NxeEiGtufxGiZc /vt9RHVXLF7o7lbfx8eEXFfR98V8sSh4h6uZsYEJBe8VtOZmY7Ch+eRbGQkm FPkqjBbeiEFC3nP9Kg0m2C+nF7AMYvCZ7HdZywAmrGW5+eq6RWOYle8JyR4m JG8o4+NiRuLQQL2+Yi8T2DrW5Z8OjURzVS1FjQEmVFqdFJO1jcTuT4evqzxn wr0muqvK1kj0eqBi+PIzExaanmgLXj6Oa5IcIsfXsyAi/Hjop8EIFAzLXtvt xIJ4/k/3VTaEY5DznXu/XFlQ85qypLIQhgU7FUukvFgwl+3Pq/gqDE9rjSb5 B7BAsIvydmtVGH5wnpcsj2cBZ8DezT1KYTitXMyPp1jQ1sgXcrkqBFUnf890 DbHgQOCb5oTNgUhZr/rD/QkL/tWHXOt+GYCzL5Rv/HjOgr4nI5wcZwJQK907 hv0NC2xZHyfCtwfghecBDa1fWTBIGzP7JuePe4mNMpWcBAzcEzlbpHEULY/d zru1loC/OsOvg5f8UEbu5eUHfASsY5jSte74YUotz7f+DQTMyXT7PtD1Qw+x Q7FR4gRcnZrZW2Dki6I7XL7tUyUggGvzBR47b6x/ePdN134CXuhsnk3dSHLU 3UgzTQIMH1Z3zj71QuNtZxMNgYCP/2007HD2wg3LP/49MSZgH7g8lPDwxAJN 5U/SpgTce/LIPFjCE6sCE8OCzAnI/WryqeWtBzKuMc0nrAk40GrVpOjrgQ/V /mp7HyFAfu7Ul2/DbigZ0fMrxJW8v7xZby17N7S1qTCMcCfA10dULvWZK3aJ m9S6exPw7swvlf9eueD7mBeBowEEyAafPeA/5YyKISGB8rEE2Ipw5M/N2aOs SMeTojgCJO3nnLen2KOAyLOpP/EEjKzpSD/MZY8DB2e/1CcREHf0Uhhjqx2y KIzSm2kEhBMbvj00sEG/vfWin9IJsPuu8ndggPQ4zxXagpnk82/ucRpwssZY NwFvCyoBOwfWhmKwFbbLK+8NZRLwTE6m6LWcBT5gSjX5sAiQefZuqULbHK8c 2zFkTRDQdF9p1NXaDCeLY78J55DntSL9QXucCX7NtPvyjeSkDbQjfsRhzJLy onXkEkCblDHlqDDG3G+axaYnCSj+aKaidN8QBWKqedbkEdAh96ESXx5CO88E sVskrxEDV6P/DHC9S8tm7gIC8g+5lhpu1MfgrE72GpL3f9Ypbpc9iB5G+bQD hQT84xJ5qKilh3ECn/2tigh4u2Vl51ofwLNz8j2PSf69NWRh8qs2RuyobjUq JuDWba+WC0JaOHFF3fImyQtb+Xf5HdBEU8rDlO2nCJiVrBoV9VZHuoGuSQbJ w67msn10NfxcnNb8muS1szqlMY0qaPA+9uq+EgIqEuuqRJ8q4Y+odbZJJD/7 3X2jdXkfvvRSyu4geai0w9xRSgHjq4a9/5J8L/zyzfECeXzN9WZE6TQBj4yT mtdM7sQmDfM3niS3qblGyipIo+b1dXQaySqaHTMGSRLo+UzkUQ3JG03VuVvz RfDSQEBtO8nfH9xzmtqzAQ/XzEuS3gZxK/dpC57kQl692/tJb4NP/1we1bJ+ tocdufaB9DY4LZTAuCQ0oXOC+l6J9DbY8dylVm6QHTSVLLfcJ1li3an2iH5+ GKv8cbqF5JXrK3+ZKAsD8evJjSKSBbU9pbaVbIPV0mzhkSTXz0eq/kyRhMo/ 8d3GJN9rklsaVdwBfpIWLZv+9/t7x+cbp+TgiyhD6zX5/H46EhqZxXsgRFfD u4zkvgb8fEF6H9zuDJWyI9l13miO+58i7K87kLqa5KDW41rHninD87ErcQ3k +Scd57HGJlVYfv9P6xP5/u6Jta5y99GAj69VIIVk4TlxdFU+ALkws4OX5LLT KdfsVmnDxbSDFwTJetDY4vpw0xBAmsF2XRZZPw91Zi05b+nCqNpC+zJZX2c6 zAvmKvRgZu+GsIf5BEgJtCW0h+vDwq3Kih0kt6omNpQ5GcBqStvNRLJez6V5 dkTrHgL/VJUzAmR9J/pzXhQWMIKrh7dpTWcTsGXrL3+hRhOQrHhVw0Xyxvd8 tO4iU6jnK12UJvupuk//QVCKGUjGLTsak/2Xsr7qSY25BaycuvxPg+zP7IOe qzyjrUDB62mjdBYB3NwXhbZ8soKJ3ikTLrKfd+QovOh3tQY30V64Tfb/zLWP vLsMbEBiR97uXnI+fPSt31gnaAdqKfdVEhPJv7eUf0ObagfHwlXldiSQ/cJ3 eW/foh3c11/9/Cg5f/6lMfa8eGMPMZV9DvkR5PNuKvRruuwIg5NbHvKGEyAS gxeFJZ0gVtJ9NyWUgA0h7u/iCp2giN8ULYLI912lOiib5Axfzp2UK/El4OAN 7bQDh13A/K+f+Ety/uUcW4gLa3OBosOunEJeZP/E9zDLFFxB1M238bgbAaHE mpy3G92ga0A9+JU9AaknmXxCk+6QpKPE7nKIAMtNGlNsbZ6wh0IvXDpIwPVW +bvqfzzhGa/U+3xdcp6x5POC1L3AaXy8/dIBAm7i+rrOq15wsZLLO06RgD8l q9/vafAGWf7MDVRRAm7z/Ld/ocwXiJM3uyo3E3CW0D735KUvWA3v0LyxkQAr dpPxhs1+4GKyIus+PwFO8ZhtWuAHy/yHK7NWETBmTn+hwToKd8S3d8R9YoGf 9tL0cKw/zBsuHBF8z4JaQQsPw2v+MF5n0Vc1yYLVE48KW374g8xbH7XLr1gg 4PfxZ1QI6X2cY/pe/SwIcUgoKvcOhPbKvXJ6jSxYp3nLINk0GILWrcNvwSxQ 67rhNMsMg/l8vr4hfxY07qKVbie9zfP3/Vf1vizIWwq4a9EdBmP/0jktyDzg G93cUrYUBnsLuRu0TFnwzDpGcU1wOBCO18T6dpL3V37jKrdZBBR+XH+k9RWZ hwSWmiu5IkH8sPoLfMoEzmj2FH3pSLjyh5NyZ4gJ00r+9hNAetzdPP3z98nr s/fwcMWS17vpjohfYcJSctvo1ulI+Ht1UG6QzgTXuj3z5h1RsPhxx49tCkw4 LWvrXH48BlZe3VDdL8uEG8k2557kxgC46VKiJJlwULpMhKMhBgq9m5vqNjJh Xs2RYvmBvL7wxYFbSwxI9nghc9IlFqhOUyWe9xhQGyB4suNgHJQpXBJ/b8+A 4ZM+Zwp5EuCu1e3IMxYMiKSdfvN2ZwJkUQX2mhsxIDbG3nSHQQJMdXKOF6oz YGaxMaY4KQGuyIwc7RNhwINTU7oiXxMgsr+AbfA1Hdj2mDFP9yXC0XWmX3Td 6eCMzGrzLNLTauWvKDjQQSB5YKtARTLsP3EvSJjMvy2Ro7wPbycDoazYOqRN B1dtPw3p2WTo148Q/LGVDoZpIz/Dj6SASApWv3tBA4+RPh2lTRQoPWc1ftqC BrPyHA7d0xSY/rfBs/4QDZ6ZfVlR+IMCXHbHxW9o0WApm/rda0UqRL9d8ry5 iwYswYIzXzenwr3UXNXANTTgOnX62iPTVPhD6Lllt1FhcvF7f3lTKkxRdPre SVHBsv+3fG5MGrTFtv/oFaHCgEGy4/e0NFi7+IFSt54KTysG1lhmp4G2h8Cz IyuosHrXk+nlqjRo/fjtetzLLCg+e9pJcigNFm6KKV/KzYKDe740nNyVDgdG 7wotzWcCT3OQxrcX6cBw7zyu9CUTVhaLnG2bSocloRupvpOZMP6kfF/Wt3Qw eiF4/eZAJkiItI5ycmSArrNn7/YLmZCb6zA4rJABqp47G347ZMK7K/w2yZkZ 8PqhdvrDlgzIv/6gWnBXJlDeEPqJFzIgdWpCf6tqJgSLukvuKMsAj58Sz8R1 M+GB+/FDgVkZEN1YOChEfo6UtEJSvWMGFAm8vnEtLRO+Gw3TRJfSQS5EpXLw WSYIjzmZtWqnwxvjPwX2lCyopawWv66YDlu2cbwvZmRB1NFL8Zdk0mFqt9aj kfws0nuqR7P40qE6h2aofjEL/ildS1scS4NFm6ONVwbJnxtgxwTpw00/Pt2L kKBCvGSdX0dLKmytk7dbuE0FY87O8zM1qZB+0yjxXjcVakNK0wRKU+Ff7dnW 3D4qiO7xkrDMSIWiZwYUgXEqNIu8NDhlmwrr199+8pCNBjV5dl2ucxRIKXEb lyDrRNsjNLtbgQIiT7yq9XtpULCw2/yYFAUOuec+tR6igfr36bWcwhQw3s0z 7kzWXb7MDpGYvylQs3f+mOMnGvwI0lkxXZICP16K7ePipkO10a8G06FkWLW0 85WOER3yBj85+2smQczEA/W5djqEs0IatbYngeMGj68b7tFBrV13/VquJBDd ZJy4t58OH5Wm1p94kgjGGmZbrV/RgXvfZOPh8EQY2r3KwGyBDsKiu+rizifA 2YOq1zfvZcCmHjGjWc54OP/z+8i/IgaUtW358v1rHJkH+6mOZxjQv3Pa8+tI HKw0PDNRW8WApj2dw0PlcbArbGPygSYGXJnGLOv9cbD6L01bsJcBf+g7yhX9 YsFQjWASiwx4s0+4rKItGkSNdjrU2TNheewkf1V5NDgJwt4GFybcNFwhW54e DRZ3nztc9GJCV765f6ZxNIzfeZVHC2FC2YAzz+rRKDgveJb2KZOcWzxzHBOf IkH7iOSCRgsTwp7nJWqvPw5sC2yL7Jws+Cz0Li5zLgL+q939kIeXBV2aalL3 nkTAY7C6zUd6XMNl6wqN0xFAWfH2+6IIC4Ina3ZMSkaAp6NNceReFozOPLut qxwOYRZriRlbFhSPpq+ZOBcCs/MnN42TnlZsPuBjFBACoyE5cL6MBUo+j6wu 7gsBXuVpf58KFswQuuvtMBjGORZv9l0g94i7YZPdWBAE+CSrml5ngXDAn+w1 GwMhV+fGq1+k571l/j3271UANPFIVZiRntfCtrHpW2UACPbyOZaSnndW0K6r fV8A9MXLlEhNkHsoTjFGwMwfamSknSY+s6B9KcA5J+0oPI/S2bhqNQEnzlZX ShkfhTRRy/Mf1pC54eycxpV1R6Fjom3LXW7SC9QXmZ2lfrBt/t3VQHKvvmV3 1i275guU9QolniIEfAtQNnH46A06mVNZv/aSHiWlz1d82RuYKyi7Asg9ntZ3 f8VIlDc0Gq2/NKpMQA3/1Uta7N5QMduhXaROQMPN+brnW7zA3VO2pFuPgJc1 dbVg4gE7F1rq79kQ8CM4Sy+B2wNyrOXes5M54+CXK18889yBne3xXhVHAoL9 nq4RzXWD8tK/M8kuBEDP2yYJugvkmT9ZrvYhc7Rz/h/TNS5Qcr3iTIkfmUsr Y26FZh6Bi28J48xjBCibyKiWpjqT+THqtg6ZiyZdfsYVxDnCyccD/4yOE7B8 9EcH5ZcD2OwZfzMXScCvWc5WnygHOJZ6+UFRNAFe5zb7bgq3h7GNRRc6SQ+M vX3uza5jtiDYolZ4KYWAmE1iAm+mbCDBeLaYP5UAbRVphVxvG5CWvF0WSObA oOmrL1+5WYOBzcs6DjInPi5z1VW2swR5Af+Bx3QyN9JNmfHnLeDV8qWnnxkE mIb3fk0rNwfr1/9e/yNz6DWn5lWxhabgO5v5kZvMrYWpqva+J0zg++3Nn9lJ zxvwegmHWYfBqTbp8+z/PDD62balVCOwtyuYunKCAF0z95YHpHHXlbeP0chc vGbOWyw35hBk7K4ZsiFz83KVy03OYH1ocr/Z1E/m6sG7ubTbRw/CXiLsdDKZ w5uvdwYf89KDyzx/KdJkTr919cqNJgeAEybD2o5kjn/OyEooq9KGjuy2je9I Vpp7tqf/1AE4v6vrox+Z+w9fuCY3n60Bmgdbr0+Q3GUdy7cxYz+oX0unWJEe ISQYF7cnThW2Sv86eJNkJ5uNayFEGZS+zbMJk97hmHvZy8RbEc6o+d0KJtlF oXqblaMC+L2UC75FcnDhrc7KEnlISNi95X9eJ8d+PLs0Yyd0xDh17Ce9hytT 9w0RIgXrvpV6BZDMNJ/7HesoDprdH5ZPkqzz/NqeOxnCsDVfIa+Z5BPfc7+l OfLDyfaA7Q9IzqjdH5LpuAKS/HLrnvzP636IHqbZWmr9///L/R+AY1P6 "]]}, Annotation[#, "Charting`Private`Tag$15108#1"]& ]}, {}}, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-947.4819071718446, 947.4818891760497}, {-947.4819117772556, 947.4820225045784}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.807939764598221*^9, 3.807940343018412*^9}, CellLabel->"Out[20]=",ExpressionUUID->"ef0861ce-316f-4efa-84f8-d027c9c4b78a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RA", "'"}], "[", "t", "]"}], ".", RowBox[{ RowBox[{"RA", "''"}], "[", "t", "]"}]}], "\[Equal]", "0"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807940414131181*^9, 3.807940455788547*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"fda311da-21c4-4ff6-87a1-f6f59dc0f444"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.807940430080929*^9, 3.807940456222934*^9}}, CellLabel->"Out[25]=",ExpressionUUID->"ab9a3b21-0672-4f76-b9d1-896897c60f1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RA", "'"}], "[", "t", "]"}], ".", RowBox[{ RowBox[{"RA", "''"}], "[", "t", "]"}]}]], "Input", CellLabel->"In[26]:=",ExpressionUUID->"836fb662-9fdd-4238-9308-0a6dbb4af847"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.807940477912704*^9}, CellLabel->"Out[26]=",ExpressionUUID->"2ac3ad85-800d-4a83-aa2e-08cb3422412e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807943554382678*^9, 3.807943560745365*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"e98de0f6-be15-482c-ab89-19bd257158e1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.807943561233879*^9}, CellLabel->"Out[32]=",ExpressionUUID->"4186fc47-5de1-411d-92eb-ed9240cf5307"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"(", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], ")"}], "2"]}], ")"}], "]"}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.8079434338647137`*^9, 3.8079434580698137`*^9}, { 3.807943566339703*^9, 3.807943612482945*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"b9ba4179-6a17-4ef3-ae40-d257e8641105"], Cell[BoxData[ RowBox[{"196", " ", RowBox[{"EllipticE", "[", FractionBox["2400", "2401"], "]"}]}]], "Output", CellChangeTimes->{3.807943615043624*^9}, CellLabel->"Out[33]=",ExpressionUUID->"987faef5-3d0c-4350-8020-d4ce416259dd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"196", " ", RowBox[{"EllipticE", "[", FractionBox["2400", "2401"], "]"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[34]:=",ExpressionUUID->"704b2901-5f5f-4020-bdb5-8c3760544e86"], Cell[BoxData["196.19505183619103`"], "Output", CellChangeTimes->{3.807943658858213*^9}, CellLabel->"Out[34]=",ExpressionUUID->"cdcdb7dc-1d1b-41b8-a8b8-5bd04c6c9a9f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}], "]"}], "\[GreaterEqual]", " ", "51"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807943870856329*^9, 3.807943904858984*^9}, { 3.807944114169044*^9, 3.807944116302415*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"a37d6910-7cba-4709-b271-38d7c71c3863"], Cell[BoxData[ TemplateBox[{ "Reduce", "nsmet", "\"This system cannot be solved with the methods available to Reduce.\"", 2, 44, 7, 33271738148348625152, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.807943919512725*^9, 3.807944126614255*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a0ea1756-ef24-4d2f-9e3a-a10a99fcdcca"], Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"]}]], "\[GreaterEqual]", "51"}], ",", "t"}], "]"}]], "Output", CellChangeTimes->{3.807944126620988*^9}, CellLabel->"Out[44]=",ExpressionUUID->"1c83c7fa-109a-460d-bd0c-3497639e152b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoots", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"RealAbs", "[", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"RealAbs", "[", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"]}]], "\[Equal]", " ", "51"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.807943933241592*^9, 3.807943936871766*^9}, { 3.807944006113051*^9, 3.807944102496644*^9}, {3.8079441520320883`*^9, 3.807944165316431*^9}, {3.807944371066267*^9, 3.807944383390341*^9}}, CellLabel-> "In[172]:=",ExpressionUUID->"4f4d11c2-5404-43ed-bffb-819a5d8a46c6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", "0.28016503988385466`"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "0.3531310490489315`"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "0.39545719466254253`"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "0.6045428053374576`"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "0.6468689509510688`"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "0.7198349601161453`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.807944004412425*^9, 3.807944040800941*^9}, { 3.807944073394499*^9, 3.807944103238014*^9}, 3.807944165946135*^9, { 3.807944376752698*^9, 3.807944384391452*^9}}, CellLabel-> "Out[172]=",ExpressionUUID->"cd221418-42a2-411b-aa5d-267c615f5dd2"] }, Open ]], Cell[BoxData[ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}], "]"}]], "Input",\ CellChangeTimes->{{3.807944415093055*^9, 3.8079444389258547`*^9}}, CellLabel-> "In[178]:=",ExpressionUUID->"7c112317-3238-4d60-9b3b-d2389c87e7e7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"]}]], "/.", RowBox[{"t", "\[Rule]", RowBox[{"{", "0.39", "}"}]}]}]], "Input", CellChangeTimes->{{3.807944614934745*^9, 3.807944627643157*^9}, { 3.807944721520811*^9, 3.807944740333213*^9}, {3.807944934523241*^9, 3.807944975660334*^9}, {3.8079450224420652`*^9, 3.807945037912614*^9}}, CellLabel-> "In[193]:=",ExpressionUUID->"ac97c5ff-280b-4e5c-b4d9-1a2235c30cb5"], Cell[BoxData[ RowBox[{"{", "50.6403604898982`", "}"}]], "Output", CellChangeTimes->{{3.807944619621314*^9, 3.807944628042573*^9}, { 3.807944722705975*^9, 3.807944740933311*^9}, {3.8079449408666058`*^9, 3.8079449762226267`*^9}, {3.807945024379939*^9, 3.8079450384781427`*^9}}, CellLabel-> "Out[193]=",ExpressionUUID->"bf8fc9bb-3702-426e-88aa-e1febe376e15"] }, Open ]], Cell[BoxData[ RowBox[{"0.3531310490489315", "-", "0.28016503988385466", "+", RowBox[{"(", RowBox[{"0.6045428053374576", "-", "0.39545719466254253"}], ")"}], "+", RowBox[{"(", RowBox[{"0.7198349601161453", "-", "0.6468689509510688"}], ")"}]}]], "Input", CellChangeTimes->{{3.807945004349346*^9, 3.807945014328403*^9}, { 3.8079450714804583`*^9, 3.807945087453888*^9}, {3.8079451189814587`*^9, 3.8079451290660133`*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"95eaca67-2c27-43d2-abe7-234f5257cd2b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"0.3550176290050685", "*", "60"}]], "Input", CellChangeTimes->{{3.80794517867152*^9, 3.8079451818509283`*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"49b3bc65-3321-4978-8cd0-8c2c2f2e7395"], Cell[BoxData["21.30105774030411`"], "Output", CellChangeTimes->{3.8079451838870573`*^9}, CellLabel-> "Out[195]=",ExpressionUUID->"077da948-eee7-4fab-9250-1d37b3287b96"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "a"}], "]"}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "a"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "b"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "b"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "b"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "b"}], "]"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellLabel-> "In[170]:=",ExpressionUUID->"34013d1a-e5f3-4f2d-8162-229e0e91139b"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = 0.875, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], 0, 1}, { Hold[$CellContext`b$$], 0, 1}}, Typeset`size$$ = {540., {294., 302.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 0}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ParametricPlot[{{ 24 Sin[2 Pi $CellContext`t] + 5 Sin[10 Pi $CellContext`t], 35 - 24 Cos[2 Pi $CellContext`t] - 5 Cos[10 Pi $CellContext`t]}, { 24 Sin[2 Pi $CellContext`t], 35 - 24 Cos[2 Pi $CellContext`t]}}, {$CellContext`t, 0, 1}, Epilog -> { PointSize[Medium], Point[{{24 Sin[2 Pi $CellContext`a$$], 35 - 24 Cos[2 Pi $CellContext`a$$]}, { 24 Sin[2 Pi $CellContext`b$$] + 5 Sin[10 Pi $CellContext`b$$], 35 - 24 Cos[2 Pi $CellContext`b$$] - 5 Cos[10 Pi $CellContext`b$$]}}]}], "Specifications" :> {{$CellContext`a$$, 0, 1}, {$CellContext`b$$, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{606., {391., 399.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.807944202156075*^9, 3.807944204768664*^9}}, CellLabel-> "Out[170]=",ExpressionUUID->"6ca310de-3091-40ca-a63b-e8a73e90792d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"RV", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"24", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"Sin", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{"35", "-", RowBox[{"24", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "-", RowBox[{"5", RowBox[{"Cos", "[", RowBox[{"10", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8079452877338*^9, 3.8079453090380783`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"12f50057-2e03-4c6d-aa0a-51e4c57d82b6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RV", "'"}], "[", "t", "]"}]], "Input", CellChangeTimes->{{3.8079453116835546`*^9, 3.807945315330158*^9}}, CellLabel-> "In[197]:=",ExpressionUUID->"6dc40f24-e75e-451f-9e07-1adc108874cb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.80794531590007*^9}, CellLabel-> "Out[197]=",ExpressionUUID->"8ce6ec40-5f9c-418e-96c3-62ed502a27f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", RowBox[{ RowBox[{"RV", "'"}], "[", "t", "]"}], "]"}]], "Input", CellChangeTimes->{{3.807945416682333*^9, 3.807945422916452*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"978f5254-c8e6-4e61-968e-cce8650dd2e6"], Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"48", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], "+", RowBox[{"50", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"10", " ", "\[Pi]", " ", "t"}], "]"}]}]}], "]"}], "2"]}]]], "Output", CellChangeTimes->{3.807946221979197*^9}, CellLabel-> "Out[200]=",ExpressionUUID->"6451bf4f-44e4-4484-8bdb-6be28f24ffbf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RV", "'"}], "[", RowBox[{"3", "/", "8"}], "]"}]], "Input", CellChangeTimes->{{3.807948845249256*^9, 3.807948851071615*^9}, 3.807948965302588*^9, 3.807949298400136*^9, 3.8079494338795433`*^9}, CellLabel-> "In[206]:=",ExpressionUUID->"2fccd58c-1db5-4947-80de-d1a0a200c6fc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["2"], " ", "\[Pi]"}], ",", RowBox[{ RowBox[{"-", SqrtBox["2"]}], " ", "\[Pi]"}]}], "}"}]], "Output", CellChangeTimes->{3.80794885149795*^9, 3.807948966093916*^9, 3.807949298986384*^9, 3.807949434306425*^9}, CellLabel-> "Out[206]=",ExpressionUUID->"e5d3b9cd-a9f9-4a81-a67c-46259e04dd7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["5", SqrtBox["2"]]}], "+", RowBox[{"12", " ", SqrtBox["2"]}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.807948890679607*^9, 3.807948893664074*^9}, 3.807949304849534*^9}, CellLabel-> "In[205]:=",ExpressionUUID->"065baa35-6c87-4492-8212-9517f4b1cae7"], Cell[BoxData[ FractionBox["19", SqrtBox["2"]]], "Output", CellChangeTimes->{3.807948894212459*^9, 3.807949305327181*^9}, CellLabel-> "Out[205]=",ExpressionUUID->"a99a7941-7b4f-4fc8-a3f8-12a343999810"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"h", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", "9.8"}], "2"], SuperscriptBox["t", "2"]}], "-", RowBox[{ SqrtBox["2"], "*", "\[Pi]", "*", "t"}], "+", "35", "+", FractionBox["19", SqrtBox["2"]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ SqrtBox["2"], "*", "\[Pi]", " ", "t"}], "+", FractionBox["19", SqrtBox["2"]]}]}]}], "Input", CellChangeTimes->{{3.80794960994693*^9, 3.807949698911489*^9}}, CellLabel-> "In[246]:=",ExpressionUUID->"7ec93f62-ceb8-4f20-81e0-9f199cc5d7f0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "t", "]"}], "\[Equal]", "0"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807949703365281*^9, 3.8079497086798277`*^9}}, CellLabel-> "In[248]:=",ExpressionUUID->"ef41a4dd-84ff-4920-af82-19ed1aba3109"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"-", "3.6298677793156`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "2.723156975609811`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.8079497094489*^9, 3.8079926527834473`*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"d214f1a2-a7ec-44c9-a8a9-9dacd8205058"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "[", "2.723156975609811", "]"}]], "Input", CellChangeTimes->{{3.80799266962684*^9, 3.807992685353818*^9}}, CellLabel-> "In[249]:=",ExpressionUUID->"f4eb4e77-ea00-4dd6-8e19-e633413641e7"], Cell[BoxData["25.53369650740817`"], "Output", CellChangeTimes->{3.8079926860230637`*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"e1264bae-b196-4a87-ba0e-bd34a9cd1628"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.807949761741398*^9, 3.807949768137909*^9}}, CellLabel-> "In[210]:=",ExpressionUUID->"94402247-3b7a-4a30-bba0-e210fdee804c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["19", SqrtBox["2"]], "+", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{"t", "\[Rule]", RowBox[{"-", "3.6298677793156`"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["19", SqrtBox["2"]], "+", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{"t", "\[Rule]", "2.723156975609811`"}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.807949769724945*^9}, CellLabel-> "Out[210]=",ExpressionUUID->"f1779f86-33b0-42ca-a371-4882c7addd8c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["19", SqrtBox["2"]], "+", RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.8079498297139807`*^9, 3.807949830112493*^9}}, CellLabel-> "In[211]:=",ExpressionUUID->"2f2f61d7-231d-4bb4-8c51-e8d54d89f802"], Cell[BoxData["17.877911780702767`"], "Output", CellChangeTimes->{3.80794983067467*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"25fc03c2-d1a5-4f30-b4d5-e0259bd24b7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "'"}], "[", "2.723156975609811", "]"}]], "Input", CellChangeTimes->{{3.807949928012591*^9, 3.807949938757359*^9}}, CellLabel-> "In[213]:=",ExpressionUUID->"c49fec37-10e4-45fc-a18d-c5364662c932"], Cell[BoxData[ RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]], "Output", CellChangeTimes->{{3.807949936016626*^9, 3.807949939353413*^9}}, CellLabel-> "Out[213]=",ExpressionUUID->"e897283b-6309-454f-b6ca-8bc1b9a58666"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"h", "'"}], "[", "2.723156975609811", "]"}]], "Input", CellChangeTimes->{{3.807949949696171*^9, 3.807949954347103*^9}}, CellLabel-> "In[214]:=",ExpressionUUID->"7e8e4b62-261d-4771-a868-0a33c036e12a"], Cell[BoxData[ RowBox[{"-", "31.129821299134516`"}]], "Output", CellChangeTimes->{3.807949954792706*^9}, CellLabel-> "Out[214]=",ExpressionUUID->"d7cc1f90-d718-4a31-ae59-212737b2c71d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"-", "31.129821299134516"}], RowBox[{ SqrtBox["2"], "\[Pi]"}]], "]"}]], "Input", CellChangeTimes->{{3.8079500684654408`*^9, 3.807950069903824*^9}, { 3.807950490967516*^9, 3.807950506015539*^9}}, CellLabel-> "In[215]:=",ExpressionUUID->"01f616c7-836d-4c17-89f5-b61e80ef69fa"], Cell[BoxData[ RowBox[{"-", "1.4290325778542867`"}]], "Output", CellChangeTimes->{3.8079505067543364`*^9}, CellLabel-> "Out[215]=",ExpressionUUID->"f46de8e8-580d-486d-a239-67edc607598c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"-", FractionBox["1.4290325778542867`", "\[Degree]"]}], "]"}]], "Input", NumberMarks->False, CellLabel-> "In[216]:=",ExpressionUUID->"3515b069-8774-44cf-9223-c0f8ae95fbba"], Cell[BoxData[ RowBox[{"-", "81.87753549775086`"}]], "Output", CellChangeTimes->{3.8079505099687157`*^9}, CellLabel-> "Out[216]=",ExpressionUUID->"b81a50d9-57e3-431b-92b6-0cf862e5a2ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["t", "2"], "-", "t"}], ",", RowBox[{ SuperscriptBox["t", "3"], "-", RowBox[{"3", " ", "t"}], "-", "1"}]}], "}"}]], "Input", CellChangeTimes->{{3.807951406069694*^9, 3.807951423231612*^9}}, CellLabel-> "In[217]:=",ExpressionUUID->"a5fe8314-cb40-4f5d-a21a-11fb00bff1f1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "t"}], "+", SuperscriptBox["t", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "t"}], "+", SuperscriptBox["t", "3"]}]}], "}"}]], "Output", CellChangeTimes->{3.807951424943594*^9}, CellLabel-> "Out[217]=",ExpressionUUID->"24394454-5829-4d76-8f1e-59a8aeff83a0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "t"}], "+", SuperscriptBox["t", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "t"}], "+", SuperscriptBox["t", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.807951458939406*^9, 3.807951473593794*^9}, { 3.8079515514172783`*^9, 3.8079516401539927`*^9}}, NumberMarks->False, CellLabel-> "In[226]:=",ExpressionUUID->"dac2307b-0820-4e5a-ba3e-17f27f1d0ae0"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwtWnk4lF/YHjNjJqEia5YoW1FUoohzkj2FUqkkiaLVlmyVraIiJFsSUomK bElyDtm3yZa1rNnN2GX/3t/3ffPH+1739Zw553nu+37OOX+8ktY3j9mSSSQS J/H47/1/P2X4vy9vQ3zKmqFyemEPvBRw6UqXoyE+/DZONXN6D/y1Zl1IyUVD vKbhQKT90B5onCqzNk7PELeg27Wd9XsgLfBj0sP1hrimf0B08s0e+ETtUfWB eAPMdeXz/k9Ge+C5ddqZ20r0cZfOkJN/7G6oeuCPWp+oHvbdbWptu20XXKGH /Z4rOoSN9sXufZirCG1TkgtLRiA24Yy95qy9A165Z6kkUnkATz4xOaD1ZTvM fF7X69Whih/cVDBb5yAHlQYiTLwK92DpC1FZNXwysEeymMsgURFHzJ6T/tC9 Fe7mpRubdclhgUnwwpYpCbN/vJAm2W7Fld8U2graNkPf5RV3l+eieHe3/D/Z Y6IwxdzG3jCQD4eY8gge5RaG1KLETKFuTtwXq3sYfOWHIb8i7r0HJJw5wH/q 4Ed+yLuk+0tLmIQ9hSuDdBP4YeN979bVv6toZVe355lAfujm63Cs8sgqqlKp PJN8mh+ap5dvyZZYQW5PH27tWOCDZhbIuKZhEW29k9b1GvDB4r6J61Y35lCR QRZHVj0vTLaJeP+hk4l6ts8oh5TyQnMBX7kzlkzk9XhFyCGPFwpxbYlJ+D2G pKqucKon8kJsWHVh+fcoUtd+H73syAsDSttauv8Oo3CxgrN7eXnhoE6qwDbe AdRzTc/15gkeGB+3/JErpxM5aETlFRnwQNy35tC/lj/II+jzF2FNHugtpeO7 Zvk3In3Q6KiX4YFWr4YEn+t3oF8932od/22AP/t4jEzHWlCKqslp69gN0Lvy zP6Ra/WobTGdQ7R2PcQXX9RC9q8o2HH+jXDueugdbtUqvCMHWViW3BBPXA8l Kv44SpzORJovB+5ruBLjU1p2WnqmIvn0E5V14ushaVu21ErxfZS0vSX1mOM6 CF/4thU/zgC8Tq512SLccHxPN7skew3oqNyxEkXjhkoBytablGrB9xi7U34T XJC0wFspfJoByl/ZPb1exgUd+M/LR9b/BGtAGH+UMxdcozJd08vbAGTrH3vo 1HBC/T6lw0U2zaDLUOgd24O10MreYNs3k04AGcIsGee1ELrcn76LOkHYoRsu x6zWwqXbQi+/CnSBDUvrVfPV1sI1BU4nbvt1AacPKrFtLA7I1S74Scy8G1Su 5enXOssBs8IZg5rMHnA2+CClWp8DirLVPlHb3Au62ErOnVXhgPtStpypM+4F RbnFlU94OGDy8V/ydWm9YMz2nb9a+RrYdSW2XPxqH2j9Pn+7UGUNbOw/WreJ 8RfEwtNXPkmtgT9Xns/8mf8LjmdyxiTwroHVzaaKB6X6QYyd/ecYJh12XFeM 67rdD4J51+Dmt3RYHfrlQcimAcBlU29xR4gON8y8vfb7yCCwWo4JdyXRoBuH RavT9WHgJBPdnzXGDl23/e0cDR4GD58nPF1oY4dri76/WEgbBuU6df0vstnh z/QVyfrxYRDOTH2vcpUdXvkpx7p9fQRYXzjqU91MhWHOdqj+2ChoGx4/5F1C hV6TP3mSro+Ck3kvz6lnUmHK/nWNXAGjwFpeIKIsmAorXZIj3nwbBRUnfEX2 6VJh8FBxzILYGCit0nNzz6HAJbnBukuMMfA6Ozg1MYkCxcn3hap6x4D/3869 DWEUeGDKM7BybgxYCiYYG96kwGOOwq0vxJnA4kdcZIgcBd6V88oOvswE136r +k0LUOAC1/Gmejcm8NVoLznPToH6n0uXMgOZADOgiVEPGZoFSZseTWGCxwce ut+JJcMPf7ZHDPUzQe0DJzHRx2Rowm3qLjrDBIKCdkJF7mSY8vrkQSaZBfI5 nDZKnSJD87MJN26KsYDQtQcbu3TIMFFG9fDm7SzgwffmymtlMnzy8cjiDRUW OKbKJg55yVBGK66YeYQFyj5regizkWH1vNyJzadZQNvpwY4FFhskFTa9G7/I AkdLlKPratjgeJ2Kr6sbC2Rkct1vCWSDAQbeofwvWWBL09dFLg82qHuYJFqR xAKb1C83610hxp98biD/gQXiGou+/zRkgys7OUyWvrKAwhrHcnF1NthhNBZ4 FbMA9N68z1meDcYLTsg9KmUBkuYdXUUuNlh+0tr8Vx0LfPBT+BuxRILJok0G 1GYW+MPdMUgdI8FLu52se9pZIKrjsan7bxLMh/n1Dl0s0MZS3zxdQ4JXxvdW pfWxwGu9UdNbBSSoMHzB69UgC0z3xg4tfSLBol9FAnCUBaqLj/Q/ekWCg5bt laEsFtg+vKK3OYQEreR3VoRPsgCvWfq6PG8S7OvT0DKYYQFvsrXaWUcS3K0c dCltjgVuzWysIluTIFdR3KWyeRaYVCjF6cdIcLvqjFPoIgvMJbuJ2B4iwaMH NuZzL7OAn718+2ZlElTx8HQ6sMICETf+rHZJkWB8dHqp2CoL7M4NDUzmJ0Hd Q3uHPhP4hK6OmyuNBEc3P1k7T+DlXZORz5mr4EiL6tkpAltZneE4/HMVyPB/ 40wg8E/BH9rcGatg370oIzKBTcwVDDuerQJNdOyoILFel2SEcO6tVfDvzrWD XUsscNeFlBl/ahVssbE7eY7IV8HkqkDE/lVwZ1PF92CinqGsX4eiRFZBsQFP sgtRb1ailvq75RWQE/NDZz3BxxPhtKWizhXAm2NdZknwdUtYNGCkcAWEazue u0jweS0x8LdE0gpYZDruEyP4dsqaW7J+sALYLQcCnhB6pDo3RXMfXgELCupG Twj9/kjoCLruWAHWf8QlxDpYYPOpbMuR9SvAds5H3obQ/6dl5OGlxmWwh1KX wl9D+EeJYyLyyzLw0iu6513GAt8feVrBmGVwKkLjaGIhC/S1XXj55fwy+D7b Ec2ZzQLBP5uuPNBaBj9O09yOf2IBXWNDsrX0Mjh5pZjn+Dti/IDyUzCyBDaq cqh5RLFAJVuq/8HaJfBN+/m2xBAWKEiS1Db5vAT6EnGEbwALNN7fIBl+ewnk TK2mXr/NArM/AjQrziyBTlXhbLcbLCDzmE2GU3MJeN/sWD5gS/RP1vSxbOoS kLe4umHSlAXuuHRLvQ5bBGOvZh5ulCPmp1363Om8CEweTaoviRD+W2TXkj+x CAZ1N6U8W0/MzxF1kyW4CHhFKlIZxH6QjKlL8nELgOdGPtWvgAnuX7R533Vv AVTLyRkOpjGBm13nmaQLC8D/rpfqSjwThEfJVppLL4DDnd9JGr5MUBBKarv1 cR7wZ3/j5j7IBGo66smJT+eB5wP/YyuKTFB+JtTjj+M8SPk2pZBI7G+SH57K +6nMg5K9SdHkxTFQMNBY4I3/gdx3trw70sdASpFPilHzHCh2U/C15BoDVpFO efZ5cyDM0GN9xOwo2F57t/b5yzmQxzPM7d81Cv5dGCKL2MyBYJt1J/wzR4H3 FvrL1olZsHrGt1r05CjQottGyG6YBbt9Wq16g0bA7mXOQeXpGVB2zZYZ5zwC VE7Uapi2zADTzuByvtMjwEP+zUxO/Ax4qxF9WmnrCBhzeBGhsnsGbBFP+rQj axj4n095STOfBhE2ZtK3K4bAJd0jUz4a02D7PPc+v9QhMO52sohz6zQQpZHr jYOGAK3wRbUhcwrYtKndlzcZAsq/J0Jd708RPjA3mqofBE90qjv9cyYBr1+w 21z1ABAcaKgaiJ0EjySbz8umDgCjxoO7TvtNgu13Ol1EAgdAbqiJ3WWTSUD9 /pPHVHsAPI3a/3DXyARwj4zz+PelH2j+2h/gtXUCtLjv2no1/C9w3v12bdna CaB045ze/A3i/G1zo0lMjoNrNrXA2OAv4OM2vbKMxwF+JxF5fLkPRKxU99ie HwdiRSytYus+oLy1f0e7BgsorfFNcdvaC3RYLMF001FgN1b8rPROFzjodPnA jMwosLgWvSXHrAvM9gWHHV8aAXpPWqU95buAT/RYw9l3BM/3ooO5PneC7WA4 JWZlGLDXxx02uvAHVHp1va/7PARcWsJeXc1oB7AQj0jJD4BP6ExkofAvIKKu ohtCGQAyEl5h2d+bwIeks/V8Hf1ApeaWqdWFJjClm3PPPqgfOOw8FtH+rhEI lKfsPDjxF5TNGr9w3tUA3uWH/H7/vQ8UDF166qX6E6zcMLlnZd8D8Hn3DXxb i0GBqGNb98Ee8D5/4sV2gx/gEWlfg/emHnDpuuVo+o0iAK7kvhSs7gaGGZte b8jFQKbULyJZqRt80gnJuB6QB+pA4M70lU5g9JK9rIzzPXDO+Z3SZtsO/H3/ FftopqOg8A+V2uLtwHtq/+s83gxU8KdMevhXG4hSU37YPJCJLL70BvXrt4FB D7367PAvKMw9XfqtYiug8UaEMf4VoN6Dcc5wTTMYoL4ys5suRZI9lQHdf+uB jqyfTJZAA4oZXys/9b4e2JiTv1UENiAJg7Cb+27Ug6K1fB2U5QZk0uLaeW6u DtTyXVbr621E+jcjz/Bx1YGn7/neGGb+QlKr17zO360Fb5WaRM3N25Dw8ZZb MKoMOOhudLHu6EI7prYbGe0oAzcEn+X+EuxGZ2W5LqOiUhCQdkDs1PFuxGbk caWdWQL6dAx8PSu7kecD9uThw8Wg33v09JGvPUgSNy/bCheCJ7/vKg9H9SH3 J7/k4ik5YP/LcZBuOYgCYiqC9h3OBlQHWqBQzCDikH/rHPksC2S+exb6oGkQ XWgQKUqWyQT8ix9lnY2G0KWD8/bCJ9MBlBU4Gag2jMKk5ytts96AWWC2w0dw FPnkaw0l1p0D2eX+x840sFDHhWoRdzltVPXgjmUIfRxNwVN/NfrsEHVXe5Cz 9DhivH+922+jN7ozZ3h3/4VxJLG/WWa5IBTt0hMQK2wZR0ICVhUGhomIXCbP mVo2gZTSfK+uX/yM9k/9vKmXNIV4MinmGkEZSKsgf79v8RQKP9/3xkc8E60U vA392jeFHmYU2x7RzEL3NTfdEpOeRhshm+uEUw5yhWy1OW+mUc28fcvV9Dx0 6k1nL//bGdQ35VXPp1mIkuKsvHMS59BaUu6fULdCdFGGmW1QNId8uxJFYjIK kUdVfGlT9xy6JB4gayRdhKINN1FaJP4hanDIQxX2H+iMbFeqT9w/FHog2k4q rRgZpZe1GEfNI+avwE82qWXoXmqA95r7i+jAq7kBi8YyVGvstP9WwiK6TZu8 zFoqQ9s8Wnxbvi+izM9P1HuNytGzkeFLvrOLSNfz9C7aYDk6xdlRb3V5CdW2 mZzaz1mJDJ8GKe7RW0bDoQHzTTsqUVVdWsqy9TIaHzDq4TKpRB+KQ/Z+v7uM Shw8Hxo8q0Syuuc3ieQso4CZmxIrfFWI17fnrrHUCnKqynlixl6NnHZKvL+/ soJOO+ZGPpesRv5ZL9ueC68ihRzdIQeNamTEL/oiWnkVxYhyWM06V6OIiRE7 zyurKMhCOvZARzWS7nwc8aZpFbXNP243nqlGZPbiOOPxVcSncu/CMncNusDN UHNlJ+EjjzkPymrWIA0Tf8HVzSTcmvztaE50Dbp1MzsSmZFwkMbDohdpNWhW JvP+nwskrODY6SVSUoOWreo9Zm+Q8O7svSVDzBo0lHDOkCeQhE+luycVatSi gwfYdk7kk7DDgRQjd5NatDpqQ22uIOFbly+rV1nXotaUPJ/sXySsF/NwVONB LZJ/JnXQYpyE2Z3Pv7Qsr0XHFw/7Gm9lw5Hislq7WmtRdY55zJpdbPhTpKb9 k6FalDX0Oi5Xkw1fm7TQ7FjDQMEh33Yun2bDvI0XR38KMlDnxPCL0MtsWMMv T/SoDANZvBHPFb3FhrcYnqL2HGSg2N/mWCCEDXdcePnt31EG+m5cFHT/JRsW 0dszE3mWgSqYM9XDKWxY1uMo66YzA50L9rkYVcKGZ8oa0pLvMpCu14HYrno2 rNebPGkfyEAtjg85NnexYS9frdX7Lxko6+gz7bsLbPgcjV7R9ZaBLLd+mYqj k3HxKRH+4jQGutmmFJPNR8Zprvd6FXMZ6PnwZ7kiSTLefHGPshRmIN/KkafF O8mYX0yVnlDGQL3jT3G+Ohk/TXpk8baWga42Gqem6JMxr6hksGE7A735OOh4 2ZqMRbhsrgx1MdDXEClFlZtknFIxW76hn4HSOLXsFzzJ+LtZ63s8zED7nk9u yAogY7OPnNzzTAYiJw0IXHxOxo4NQZNfJwk+PtVfpSeS8cay82coswwkomBL SvhExmoBPtpN/wh+wkxKFL+Rcb/AVLriIgPdPq2bmllGxgLOWa94lxmoaXYu UaGRjKtjSzbcXWGg0G6BlzFdZEwPl6E6rRJ8hpg9Wh4l41LzZncmgfvdrc+e mCfjtSPNjlME/s03SUpkp+BGQ7lRbwJPNmdd7eWh4C1u5YMRxHwN+y2eCItT 8KxT7uW9xHpKn6OPa2+n4KPq/+wsiHzyssQzLqpQsELdw1HOeQYS+xYbdVuL goOVL08eIurhVi+Zu3eUgl1sIzyoUwykmmqAvc5QcNdF/vtHWAxk6Nvec/0S Bdcr9vFsHmGgORUFk+NOFKxfQZZ0J/gkbkb/FO5SsJaSY8bZbgZq3fizZiGQ gotsFEtLCT1ubnuA8p9TcPklDYu8JsJ/c7jAKYGCj6m8cFFhMJDJ9K580Y8U bNWgv169nIEWIh4l5+VS8LSGrkI5of/ak14uRsUUzOX6rOo34Q+l5NwN9QwK rj4qFpr4joE8u3555fYT+bNOfzGNY6DlTJGdwpMUHH+u/3xgOAOZzTg4XV+m 4IBEpmrYPQZSi+W9Pb6RirXcr1y+6MJA21iFQps3U7GvmIrwdzsGev9Ib8PB 7VQcVptPWWtC6O364oclpOKcjx8Oqx9ioFo3k+2yh6n4k88Lu/m9DNR93V6y 9wQVb1rjKim6iYF2/G1+sPcqFQfnXfjuzclAdkV7W6puUXHLBaOdTku1iEN/ jfcJbyoeDBZ/uthRi7zJotFaz6k4nY9271l1LToTZjv25hUVGz0dPZT7rRa9 8la2XHpPxaSLOUbJUbXIcafzWd8CKrb01ziz5UgtsqgY3DnRT8WV6aKTEvtr 0Vfd+rqRcSpeW79g+UGqFgUFW4u1LlAxbSrzi/1CDYrbE+DyeB07nv4kbHs3 vgY9q7EIOrKXHVN9x5N6A2oQI2qis12THQ8alH5tcqhBQTFHL1vos2OF3BvW VqAGRc45tu05y44/rMtMW99cjei8Dflq3uzYKsAnsv1bNbr3WFzidCDx/9mj ZsrxxH797ri2fRg7dsnoN3pyuRrBO4+fWyaxY//XHGq/xqvQq+i3JS/K2HHb D0bFmvoqlCaZFaP7kx3TWsN3lmdUodO51fk9LUS8W+T2mFMVulem+Ik5xI49 rotR68cqkebl3enHOWnYRbld/WpVJTpkyW3+cCMNa49H6ocmVyImg681VYSG rXTXdftdqET7Wr8qlMnTcMg1JjeltgJV3Knz1zlMw+XxXqfsQ8uRVNefw2YP adiisXr21ZVyFDmaWsAbTMODR6psnA6Vo6/NUO1HOA1P8zZ8GJ4qQ7pRSHQh gYaL+7jH5EzK0Jn+ZZ2CbzSsoP+TTVOmDHFyzWVzFtFwwAT8y1wsRcwPGT8N y2lYWWCHkNTbUhT66Ubzy0Ya1n+ntLNjpgRtaurvej5Kw95qtrmM8hKk+q/r 3M1JGk7fqM9z/kUJ4toTJav2j4ZJUUKKpqAESWmqO72m0LHZYN8mP99i1FUD X/wQpuPRd9szxWaL0LbJjCnFQ3RcHHNIrraoCH3I35EnpE/HUQ1rr216WoSm m8/wTBrRsYJg0vkHMkWI37hCy/UkHXP1s82lmhQip4t9dj/s6DhrTVC32qZC NNH856ridWI9x9IY216M8vY/SHjsSMdP+LTdg10wurmx9RafBx1b6TRVn5VC SP2Ql/ulR3RsPsx4ovK5APXpVJUfC6ZjKCI7rK9RgCzqC0d3htHxuMSIF9/x 74jWnOiXE03Hud8qyHq3vqGVDMkktmQ6NsHJH/8s5iE2uRjjq6l03GXSN/PR Jw+d/ZHlWPyJjn/yO1pOPfqKTn6rGdbOpmM5xe6nwsQ9Wq3R8/KdQjpOL44q juX4gtYpvNv/qpiO1yTsNFG+m4OYLM9tH8voWGnnzNV4m2w0u3uHTFANEe+U XnL5lYU+X1/Pf/4nkc8v5d5zelko7vHbv6INdBwSM5Z9TSYTKQ+usM62EPFL kQlh4RnoZk8J5+82Osbum/uq2TIQm+qRGoPfRL0uldfvtqajY5eS2fu76bj8 7FjWzKF0lLTkY8nfR8T5fr8hn01DLjaykkr9dBzvKiibuvgBpW/ufic7TNTv ZXztQEUqSt+5eIQ6StSzXvv8bHgKMnswKlk9RmClmdUWy/fIhprLd49F8N9p fbRPJhmlPLASFJsg8hEJMhQae4vGhwc3vZ0k+PrrPO3y+Q1aXWe2YdM0weeW 26bJyq9RHPef8KJZQo/nz6j3phJQ0WsybW6OyCfimu3d9HjU6MC/Q2CejkmG 1EGj5jgUd0x4cfMCHUv4JlsxDWLRiAzPBb5FOvZuKlHuzo1GflWrxlMEhtoW NtJSkUhJfDA3f4nIr/YqK+9xOMpfqn7isEys7zzdlMAKRUztz/nrVojx9qOK Wa+C0bPGyP2RBPaW7LlSZh6InAL9pjlWifiGSos7a/3RiYO3/1wiMOmaPucH +zuI1nZr8COBvaW6KxPTnNDRXb6Uzv/icu7dni/OozmpVxIL/2EhNutFfz1Q GcZQWv0Pa0+XpH+8CkLMBaSZ/+EsxkhVlRvgM3Nllv433zUryvcBHyB+cfJO 4H+4vP/0hMNDcPtiUPHe//CYx7wvWxAY3m2YWUXki6+vm8g1CgUwTV798H/Y oJ/jvGg4OJSjfCSLqBeu1SnLZEWAb9J2bTQCe6dt3/alNBo4tZc3aBH8wP2R ivYJsWBP9untdgR/+N2jtop7r0BpiBjDleDb+w75+ahSApg+LJh5g9DDSpjy tOp1IggoNigz/kfoJavX7iOUBAxbviwJE/rB5Fr39U/fAKqtjXbNDDGelPwx 3ScZPLDyr2USfuhqntcqXn4Peh4tT1oQfumSfLo9zTMVnHmDxzIJP8Vz+Y+v vfMJ1EgqbRcl/Cfxqkp+zDAD5HlQRRp7iXxu876Rp2QCPYvoPWmEv71FxtxU 8zPB3Ygb2bc6CX+WnlP6opQNhOj8xcVEf8D3Cn9Obs0FOm7ML/ZEf23o5FEg 9eQCu4ItJXFE/6V3PWp0TfgKwg5ytxVUEvno7ttbveUbUJgAw4jo3/hX3nsF FQtARnju0eIvhF57qOby0wXghLW6tkkW0c9hIk1ceQhYmA53lqYT/dnqyxJJ wqD0Pr3V+T0d7yvsFRJULQJmA+1eVcR+U57sPXTEoQR4PqzrvORKzPfTiqHV WgK6qle8I4n9TeL3I+s4rVJwfukQe8Y1Om5Jzg8JFCgDTE7TB0nWRL20SC6l H+XA+wkv/90jBL9tMr7fFatBJrdQ3j9xOjZyOr17LKUOjHebVeSkE+fB1R9c 7/vqwLEDiuv3vKdhJWUtjQjxeqA2uysuijhPxvfcjac+qwd9aQX2m8NoWGiM dXPX3QbgecT81iYnGl7Sydtdda4JKFQkmebvIM6bsGG91YOtoOPO5S+Wz4jz 1oPZ99enFdAYct1jAexYaTe9ZbmwFYx89euzucuOuTbcxoVabWCrP5/hWnt2 7HDfJCZatx3oLFONd2mw48aTw46Bp36DNGG1Pf1dVLxSYdGizOgC5jlfl2P4 qbhaLWdo/0wXyBb3re6nUbG+QwrNQqQb3BNlufP9o+AD2y5enLvcDdwuUFT4 2yhYoIE/+RG5B1z/qRCVEkvByTRvy60avUBO8+AOIVHiPjl2+Z5Y+V8grmrV FUkh4xu590OV946Aji0jewZ6V1BylqmM8/kRkCE4pfrs6wpSFpikVAWOgMFC TVvq0xVkzpEeXfpnBNRf0O3Yu38F4TQJxbHAUUAlvYivf7SMRJcb2f71jYHk fZ5v/2xZQkvV2lvJp8bBUvrW8mjpeSR+I/Ttos4UsLl+66qtwyTiSFg52W68 AEj5LvbuYpHIxTNI1LeDBOUuPDX+rDYDQjd8fSTcS4USuz99KouiQwnt3PqY zxzwxnJrao0BH/y9btftssh1MMSSe3n9BzFYa1qxjncHLzx/zV0kv0QK3n7d KiKpzg9bqjftHfCXh1TSgC7SF4IRLdfO+53aBWsH/TN46kSg0XFTIZ+8vVB3 49O4z8c2w18VBzgVj6lBg+hU/1MeknAfI1lN0ATAKPFbz38Fb4UO4X43m95q wS1Dx+zJMdJQi6/renCeDvSN7Ra3eC0NU1L4OpnlOtDQzrL2ywdpyOXnsGTW rAOFDLaI3ELSML6pHOye1oHvFBuu0v9KQyN2OdqunbowKKR16JGSDHRKJnnC 17rQJ8HNnLtCBgZWi5h8CtWDG6wrD7+tl4FeUouGpfF6kFN97f6DHTIw4KX5 xr40PaiuYsZ2hyUDy2tzN+yq1YNBpjwGXAKycNcutfYNnPpwSUQpO/CiLLy6 PiFq8L4+lLp4UU/ruix8pGE3eO65PvxS5N+w5CoLjZfMBVqT9KFQVWjr7Uey MIPes6H7hz6sITXF3v8sC3lOF7xUJRtALU73lSPfZGH8+pXFdh4DKLmT84xQ iSyMXfcdPpA0gJu+z69ktMjCosJen1FoAFW2ndT365GFf3qtvJNNDGDex/jH J0Zl4eHtAfZXrAxgsmFr+bZZWUg1stHc7WDwf98lkOT+//sEA/g/N1eN+g== "]]}, Annotation[#, "Charting`Private`Tag$84214#1"]& ]}, {}}, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-4, 4}, {-4, 4}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.80795142837746*^9, 3.807951474241055*^9, {3.8079516062166767`*^9, 3.807951640521338*^9}}, CellLabel-> "Out[226]=",ExpressionUUID->"9b931b81-6fad-4420-9da9-eb7d4b29d93c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.807951680684802*^9, 3.8079516994571047`*^9}},ExpressionUUID->"505d8a0b-df15-4ecb-a1b2-\ 386aab680c7c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "t"}], "+", SuperscriptBox["t", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "t"}], "+", SuperscriptBox["t", "3"]}]}], "}"}]], "Input", CellLabel-> "In[229]:=",ExpressionUUID->"cbcd055e-f50a-4c13-b3ab-ef550b6fa47a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "t"}], "+", SuperscriptBox["t", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "t"}], "+", SuperscriptBox["t", "3"]}]}], "}"}]], "Output", CellChangeTimes->{3.807951925271905*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"32de2835-62f8-4c33-998d-3fbab695c4cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "t"}], "+", SuperscriptBox["t", "2"]}], "\[Equal]", "x"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807951933458906*^9, 3.807951948816989*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"9928fd58-e2b3-450a-a911-da65f5cda45f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.807951949416798*^9}, CellLabel-> "Out[230]=",ExpressionUUID->"feb8f2dc-8302-400c-b404-83bf60fa20a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ForceSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "t"}], "+", SuperscriptBox["t", "3"]}], "\[Equal]", "y"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.8079519611742897`*^9, 3.807951985523666*^9}, { 3.8079525490440693`*^9, 3.8079525540980473`*^9}}, CellLabel-> "In[245]:=",ExpressionUUID->"88bfc157-4db5-43c0-8d20-029c028ce242"], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ RowBox[{ FractionBox[ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]], SuperscriptBox["2", RowBox[{"1", "/", "3"}]]]}], RowBox[{ RowBox[{ RowBox[{"-", "3"}], "<", "y", "<", "1"}], "||", RowBox[{"y", ">", "1"}], "||", RowBox[{"y", "<", RowBox[{"-", "3"}]}]}]}, "ConditionalExpression"], ",", TemplateBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]]}], RowBox[{ RowBox[{"-", "3"}], "<", "y", "<", "1"}]}, "ConditionalExpression"], ",", TemplateBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]]}], RowBox[{ RowBox[{"-", "3"}], "<", "y", "<", "1"}]}, "ConditionalExpression"]}], "}"}]], "Output", CellChangeTimes->{{3.807951971441678*^9, 3.807951986236107*^9}, { 3.8079525503208637`*^9, 3.80795255474085*^9}}, CellLabel-> "Out[245]=",ExpressionUUID->"9e31b05e-df04-470c-8cde-7eb8c90c4b0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]], SuperscriptBox["2", RowBox[{"1", "/", "3"}]]]}], "\[Equal]", " ", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], ")"}]}]}], "}"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.807952086063498*^9, 3.807952240275715*^9}, { 3.807952281500188*^9, 3.807952295312352*^9}}, CellLabel-> "In[239]:=",ExpressionUUID->"cc6ff087-aa68-4ea6-a2a6-80dcf53c74ae"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "b"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], "-", RowBox[{"b", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.80795218360224*^9, {3.807952220861525*^9, 3.807952241009016*^9}, { 3.8079522917956543`*^9, 3.8079522957866993`*^9}}, CellLabel-> "Out[239]=",ExpressionUUID->"913ce856-ac0e-4665-89e5-6bfd670fa82a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y", "+", SqrtBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "y"}], "+", SuperscriptBox["y", "2"]}]]}], ")"}], RowBox[{"1", "/", "3"}]], SuperscriptBox["2", RowBox[{"1", "/", "3"}]]]}], "\[Equal]", " ", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], ")"}]}]}], "}"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.807952313155588*^9, 3.807952313407813*^9}}, CellLabel-> "In[240]:=",ExpressionUUID->"02d516d6-68c1-4278-afe3-5672853ebadd"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "b"}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], "+", RowBox[{"b", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.807952315382587*^9}, CellLabel-> "Out[240]=",ExpressionUUID->"552121c9-b4fa-42d4-b2e7-70a3401c586d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "x"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]]}], "-", RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "x"}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]]}], "+", RowBox[{"x", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.807952321663356*^9, 3.807952375592546*^9}, { 3.807999247746316*^9, 3.8079992672393503`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"6dfd3520-c991-423f-b966-9ad0b0d53fa8"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nk4VN8bAPBrXyppsxSR4ishLSol760oSUKFbEklFSVJhELWkqQNJRMK kX0ZWY4sJdIgO0lKBjNzrRljzPzu76/7fJ57zn3Ofc/7vuesc75qeV4QwzAd AQz7/9PHhp/1nk9DO3uvN0dMCFZV6WOz237R0LIZ+8jhq4JVvqml9uvu0dBy mvpfkV8CVVsXX6+W2kZDM6Gfx52CBKoY1zXVub3fEP336wCbbQJVb3qHHoyE fEPIlrv8DIFV9fjLJCVu+4ZCEwLYS4qxKqm1h3ItBpuQyWOP9QpBWJW3U3pr KTQhOaOMAwPKWNU7ge7f7qyvyMqAGjhN56P+ZImZdYlfUYfVZQXFJ3x0cOiS 7D1OI9LsO/vNaJqHboW9UDfIaEQSZloJwek8lP3fV71J60YkWat6Xvk0D8le 0rK3LWpARyef9sa3LiA6i6BoeHxBkTnBR8eauEghRjm/f+0XRH23sdMohovM t1jUxDbVIx0T+fau41xEvZ4/xNGoRxVneyfs+udRJNtLo3HoE4pcLyaygc9B GoKcgst2tUjk7Yg05jKHHFM06pQka5HMhXTRct05FGto1/GdWoNsjK5Pi4rO IU5YOXuPTA160+KQoJvORo2L7uxd3PIR1ST95+07OYu6NMSjTz2oRD5n/aY9 X/xDDhYKhb1nCxG+88RMrNY0YkzN6N2oLUCx3fEj1RLTyP8ZDUmpFqBnLNM3 2n+n0Mve4MZ9f/PQ0rOs9UVJU6iwsbXuWEs24sY/FnBeNYVypt3W03tSkaej s4On5CQKbFNvW1PjgJ5Wm1Xay4wjzaU/LoloGUL+d3riwDiBOiaCk6TZrsD8 eGfGoohAfo8PNlzeHghlC7UVS4FANcqR4YnSscBdnyI2cJKFLlzQcCnmJYOo xJblqjEMVCrp1159owAa+tJ3Pdk6gihaq77nqBTCiqW5n7Zx6CjMPKf5Ja0Q tmRFiS6vpqMTz343em8shlb34/oRlnQ0vs60WuMHFdrCUu4c8R5GanqKObGG lXC/6ERdUf0Q+lJw2jAvshZE4jMu0J4OIt1BgbVBNjRw/N751MOnG2l/sJ7Q yaCBlcpCnYJaN1KLfV87MEeD3PR3DYvbutCi11m6lKPNUHxSpadYpwtxzW36 +KxmkFgrLL6R2YF+5OZsRFtaQeDXfwm7PNtQkodj7d6SNtjsv3L6+UkaWj9e Nre7uhvcitv3DMqXIf+mAyHTzG4wToiuOT5dijreNUply/fAHxqtJp9GRffO 965fd60HVpZyt+tGFqPxHs5RMeVeUJavidIRy0eVdXrJ3wP6AFvd0GZnn4xs X5SYuOn9hBjbwoJ3N5PgcEp3k5nNIIg3JsourquB8dBslzr3QYgRismDPbUQ 53qXv+fuICjvZSfK5dUCXUtry8Zs0lJKUWUv6iCCGvhESPg30DkPrje5fYb6 pv/sqDm/gf35YIQDrwEOsW/Q14kNgeNe2WG/8WYwOrpcaKZoGLK32dSH2nRC 9BmJibkvw8AoLrrECe2ErhvYT96PYTDwZbOPFnTCpVesD+KidPgg7aQWu6QL ookGTwUrOkSVnOiNqeqCrkd3Bw/8o4PZJj8pH+UeuNQx/TF2xyjI3S5KuFzf Bw9PdwbqlDDgiOklpUP9AxDG0Ie/XxngfEYp4cPkANz2TV54MciAhw0LSxXF fsGVx+63xKSYcGi70LKczb/A7LOQV/85Jri9NHcSD/wFUpt1LkQtZwE3oKn5 ueIgRPMijtLdCciSEyw5Z/obPpspLjFfPgGUwwq9breGYKX2LxlPhQnQIUyT PkcOgdOSN8pP1Cag+lmVwar4IeA0am7v2j0B4tHrVSNLhkDzsL6d09kJ0Edh am1TQxBzwC7Do3AClquEJc1f/Au2u+KNHllNQkf6u5uFpsPwVtbhWIHTJKS2 f6n2sh2GqX/Kp9ovTcJipe9R6q7DEFWU7iZ/ZxLYii25l+4OA9pKffw6bRJC DpdUnCodhg1anb/y2JOQLe4sOqxCB+a6VbdbE6bALGLmcD+DDrv8Xl/7mDoF rQ7lf7vZdAhu0zqfmz0FJ/SyJRuER0Am/KBpdPUU6KRtZIcrjIAB4+Zqk9Ep 2HrWpvvWkRF4WNxT/FFvGjwsuf/haSOw5QiFyO2ahrdTBr/OWo2Cf6rm76TB aXCOGGXOOo3CpwVqRzRjGp5pLOYGXh4F29yWCjdsBqLuqm7yDByF4FVCUerq M2Bgs12vJWMUvv88r065OQNXOLqbQzmjcMNr05mHMv9A87tlVd/jMZCRJMqt 1v2Dng1uTgOJY0BNypdbq/kP1ubGx3SmjQG3Qa85a98/8P7an0cpG4PgdcbQ 4PYPuK1ibq8GxyD62zlFkZp/EKslc/yINgPeqr/qvnV1FjrGQ/vCyhlgXHlG d/+tWbC107UUrmPAyHHVRxKhs/AvnNlxo4kBmneyjOMSZqH4wh0F3X4G5Ld/ KCmqm4XAtHxMlc+AyuDOp+Nr2CAs9ONCkwETOvukLV3q2dB2NJN5qogJJvfP d3m1siHk2SM9ehkTyvU+ON7tY8NAOueuWzUTKM/OXqaMs8Em67ySNY0JrubF IT1ycxBol1pRSGcCp8auxOziHKi3Rc09lmeBQuZbhZ2SHGAI/pWfuc6C6FPz yUYrORC4f8Td2JcFmLj5xhNrORAlZrUq9jYL/pyb0722lQOu4Q9dxSNZ8H6t 6bFMWw6YF8lfCEpkgUHsRJBSJgdyf+dNva1lgZOv/rCY6TxQnNTdWxYRoHGu vp1lNQ9ZI10hptIETJmdqG0/Mw9VFGZ8+UoCwja4vU65OQ8++zbU+ymSdUR7 YQcp8zDOvhHurU3AnOo8zZszD31WLspOZgRUS4dXOohwwUbV5YqmJQFR88vf G0pzYfqKI515kgDlFo17y9W44KP3/LK5AwEH/W0Nsy248PLrcd7jywTEtpZS h9K5cM6e/Vk2jAD7CqO0rwVc8Fd5obYrkgDV9JanBZXk/IzWH0ejCKAGjHgG tXGhy3jI6VQsAf3q8lqK2ALovLspMpFIQPqKN2uEFy1AlFGWVzmFgGs8Hcmx VQtgyJG2DEghQLjNeJi6aQHUt8g4/0wn43HH5/UJ6wXIPeWwTrWAgOmLwjF7 nEk3upm+LCKg4kTMbRX3BTB+3s4RpxJgrpFuNx68AH2f1BjV5QR4t3euispe AC/vmIuldQTUbNp5r0aEBwP++tIF7QQ4bj6RMrGUBzrhi7ef7ySAvfVaudJq HlDuvbOS6iZAc3cmy0+bBxGv/ClGfQQ8MVY6vt2aB+KXL94xHiRA21TfzfkM Od8quTX/NwH1x06FxlzmgVfbr+0rhwhYsHpcwrjDgy6mr3b5MAEu58UU3qTz QK5+Qus1gwDs4gbd7/k8aB422VLLJCDBbZ+ZQAUP7CnPjvezCPh23S/QoYUH 5S+HuLPjBLjejIu/30u6rz18doIAQb+i/NIhHkjnxuqxJgnYGUz8WcXhQZ8L yH+cJqA1dDHvgDAfmtesOJI4Q4Bb5EZZTyk+CEv4ZXr8I4ASc/bwNxU+DHyo 5nNnCdj9JNCZq8kHn0MBs0VsAtqeJ/pp7OTDrldBqi5zBIgndb4PO0KOn5TW zOIQkJw8/anwJB++0tzF988ToP922cDgaT5M76Cq0Eh3ZGjPSV/iw0rrDv/j XAI83h9ZDl586Dr4Xo5GWjLPdZP7bT7kiqxj71sgILUw1PBFBB/G/VcqZpE2 oCY7fInlAzXwYuQSHgHdZch79iUf2M0YuJD2Qn0PVdP4YL76AxSTlqqZSz+e xweF2esPFkinf5KpDirjg+v4Ig19PgH7G7b15tSR8bjtKOtJuq/JfPoHjQ8h iw5ZJ5H2bnFfsriHD9snksZqSEu331Pb/YeMV8D+jp+k33WlgSuLjA8hKj9F 2qiv1uYZmw82AbVFC6THifFdzgIYnmpukc0nXXHtjpGvKIZTIoOF50jfm1pi GbMIw31A88MIaesbLx3TpDHcPmhdSwvpDbMalytXYbi/9fYjeaQnfEpvtq/G 8KwaXY0I0pWcQyEMJQwPqZ65akX6vn9HjJAqhm8wPbBWgbQN71ziag0M33WS saOb/H/VwKmMLZsxvJxWUfaA9KRAcLHxdgwfyLybrUca3ZWuOa2H4eLd4st+ kPGOEkmieRtg+JODskM3SatJlNNTjcn1vZmkPyb3a/Kz9qXkoxj+58XL97Kk K8NejyVZYrh0VRo8JvfbSjiclWCP4a57olqvkfmhUjN3Ne4MOT6V2tFG5g8r yG3iqQuGGzozsjeTDuVbTMd4YHjMGtHBr2T+mVfW3oi+Qa6HtxNfSlohYOfs /VsY3iUo4XuYzNdCjgInLATDlQNlgt6Q+f1nZpjvH4fh45di5LhkfeQW2gbd SsRwYaqn7wJBgP/1JkGfZAzXD5j7+I+sp5UT+SLXszC8OdFFuoWsvwOMgEUX qzC8KjSbtoFO5k/meJRLHbl+IiNh6C8BPRfPSp1rIPeLL2v7iqxnz2HjZafb yPjKp5TPkvWfPLhC9iQdw50y0vRNfhBw5XVYnCWTjN9rj86GXrKenObkzScx XDPP8PqBHrIef/QrHOFi+Ik0k0IFst8IdGeo7JMWwHPtjcOvNhPw9blCqsEq Adxef/Rk7jcC4qwequqvFsCVjea3jHwlQKfNS33nBgHcI+6B3IEvBDjRQFtr lwBubL674flHsl9F5+do7BXA/yiobI5HZD8zVd2ivl8AV5B99z62giDvbZLb 15uS3pG64F5K7l9du568kwBO3X9qxadcAhTLLxuJRAjg58RFzi2Q/XqlPIdz 5YEA3vygpN3kBQGLvSNyu2JJH5SXexhHAHfzmzVZieT8CCcZLtnve1L6JywL BPDUJkzLNZyAZ/ctXlH6yfVuPXb63hUCouk/j0v+EcCdQqmlRuT5Emp0RcJr RAAvP68ryL5A1jP/ntehafJ/HCnn9p0hwPJ6rQlLQhCPWH339YXj5P7Y7Zzd oyuIu/nF3xPaQYAotS7rzW5BvO3cm5faW8l+u/KE81JcEO96pVNqTp6HjG8e TYMmgviubUjulhoBDfvfpUQ6CeKGA07JZ2QICNdQNO+8L4inWv84EzpNnucc wQzPQUHcfs7ca9M78nz+3T11Z1gQr/dTq3z4hgVVX3MNHjAE8fQV+EUGhQWB SY5taf8EcSexR/To5yzgG37g90kK4S89Pub6hLCA9/Ca1aFtQnib6ZLoAXvy Hqw6IKQQIoQrx9Q+khRngf3SErONkUK4U+vU/QBBFpSzH8TviBbCqa310iNc Jvg37tlsESeEU0JcUcYEE+Y9ntuGZQnhuV0B31t6yPtKmVneeJsQLleowKzI ZMKsRYVjnaow7squ9pUyZkJwd84Pg03COBbRpC25jwlSZ5LtqTrCuI5syrEF PSaoeYTbZu4RxinNJT1fNjHhRLSF1SMLYTwm6AXOJe/1uQ1DRx0ChHFlk0fx n78z4OIBqb0zbcK4NNu/SdCaAb3bT69RDRHBXa9w3O0Mx8BlTndpaKQIjn3P XO+6ZwzGKxYLDUWL4OKLTzPcto6B8KEPo6nxIjjFfaDMUXkMtE+t+rAhRwT3 qK3z/j0/CoEBjTYbekRwudWYt2feKKh92vlsvY4oviu+1jRHZhQ8rKWXqfSJ 4uorbHTpX+gg/+SPjbCiOE75EWBCX/QXsu0oaVM+EngXvyiz4dUgWO+9Y1xf IYkHqjzD1UX6Ic/RXWU3dxGuY6by9/WWDmBLHhAqPbkEp8SotwV8/gKWLXt2 KMZJ4ZjhwYEmaiZI7ln0sTxRCg+8eKPb3u4dfEztOWKfQr4Xe/3YfyEddHx8 z7zIJi2xMeAK/haklEqi5OtIh5TdVfxIgS9uW3+vmiRNsVFqKg4DXHxjjJTp UhwzU+oda6Qg9jX26myLpXjguAVVc2cyyun9/OaoNWlfTZPe5BS0NselLIrM 6EDaQ7sgv7eIezL1r6QvaeLnb2JLFipJUdor9pZ0QZHo2+4CdGUJ8fltJvl9 aWWTvNhCpHaz0vJgHmn6evGpI0XoiYmDa2g56UUmffKoGHlOJDwW+k7O31wI 02mlSMPu0tqULtKpQfn5zh/Qr1q9jP395Pi+Mo80xTJkHtdVGTRCvn8kSN32 pByJC6YfXkeQfnBKt/FYBUKXb7ZVTZM2yv8bt6gSebcfPO3EIed77vj08nMl 0gaZUT6f9JNl3zruIvQ/gAXEKg== "]]}, Annotation[#, "Charting`Private`Tag$9643#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlHk81U0bxm3nDNE5Uop0FpRQUlFCmkGJkrSSJW3Sa3milJSylaJNKLLE EyWypAhZZjhkOSFLlK1sLUJOdon39/wxn/l8/7ln7uu67lvx2Om9jiJCQkJZ 1PnvvmA9l5Y+V4cdaDPYiSFKyGahCa2uOrxv8Yj23hBR4p2Ub6cYUofL5nRt v4iLkfVSZ0sZWnX4gFRG4zprMTJwdrXqTFstbvL4WvX1vhh50tZ3+8fVWuxR /Cg3pEqMtPosjo/TqsU9sQfvx4+IEQZ7+4s93TXYujRWY588jRhhrxLavRo8 0Z5ZGqlPI+ePPGvIhzV41rw5XMaWRlKFP/W4Db3DK+7Z2ehdoJHOxxJjinHv MEe5sM4pnEZM+pyXhEzz8bdl6/82l9HIxaAY1S0pfKwdEGRzsY1GMla+0/1t xccujsabBodpZImzhp1NTjUuCrksmi1HJ+aSh90YJ6pxtYJZ0MZVdOKXdudK qUw11hmbO/5tM518H/qVoO5ehcETFyuZw3SyLJT7spNdhVO31X946kYnluv2 8MJqKrFqhMzSeB86yTv7sm9avRI38ZRluqLoZGBRz3jGpwrMX2rkrv+UTriv F4ofv1GB3Y5sXaXwik6CJz3V+X1vcbPdGdmrfDopfvhE3zfiLda8tPG+XAud /NZrNtcyfosX2ndpmXXTic1lndMxCeW40JX3MnSCTtRFpl+52Jbhk/N3qC1n A3I4Ub2cM68ML+EnCsBKQMK22jY35vGw5sUJgyRNQKaDCif1F/PwJXdPD2kE yBrVQYnhslJ8wTRntnc7IMeqWApJZ0vxo/sxxy7tBoQv6WsgVV+CD4h4ho7Z AyKUnmlBfEvwfVc5escJQLQtvjh4rqHY7W/6bRdAYkMNA9pvEpy8XuKr5QVA PqqL3zl0uxibyiz8GXQXEOT2vxcl/UW4Y//7kC8RgDzLrG5QMy3CfTKH1BjR gHhr314yLVKIL5rdSf2RCEj3+SHdY0cKsGrWvfCHzwDZkb/brrroDXYL9A5W TAdk6RaZf6Mv5OP7HMcNRTmABPid5Yk052GvQ+MJDfmA/Cxt6nPWysMOv0Ov 8YoAKdweqa4/9Br7bO+u0isHxH7Psuy249lY6NYmdngDIAMjY7rnyl7hRUqP bwR/AMTnQR1mrHiF62f3M499pPprC+Abfs3CzIWshwUdgKy+YrenzSQLb+cm Jxl8AaSAu7HFM/kFtn9S25HYDUg2v6F8d30GvrPIp5D9DZAm6aD6gLB07Kdx dIf2D0BGDuh25OxLw3mS482aPwFZ/yV+VKE5BacYz49sHQJkz4p9Qrsjn+HR hZyokGFA3J3pUgHWyfhasJGW0m9AMkddlb+3JmE4MPFSYgyQWl2upkJsIv74 9rKFzTggQ1ca9SzsH+NOttbv8AlA5pcFmfiz/8UH1Y+MvJ4ExFrGM+kUjsc2 vNkk3hQgkbGtBbWGcXhM8N7qzTQgzSqGjdpl0Xja9rxNzB9AFmUl90ebROF7 z/2mTs4Ask+fISJcdR+LzQT5sv5SeSv3lHfaGY5tbTdtwBS/3922tqYmFKv8 43bUfBYQdnZg6MmEW1jHSNesnOKYSku8/sl13Gk7pak+B4hcB2toNiUAN4o7 Wl2ieFXPB90H9pfwT5HYuTyKVaTcI9c4eeCdrtpOPRT7Nak2KfDsMW2NKX+a 4tXMDmeaxlaYUOLvNEdxsyAgXnryFLR0Uz0voHh498rfp8+ch47Tq9bWU3wp 3KTaRdsPtgxo1jyiePaKd0y85jV4yuhBoM1/9Z3TXBvVQ+BDHHxDjGLRg58N gMpduOw9kI6j/s/jBl+Pkw6DBkL95sspvvpAyV3nTgS0X/TLPZrq30Sq0Lpe MhKa83hpc5ReIOCAoUvwQygsJ7l2P8WVE0NqNBALxXxPqkVR+oa43ZCJv/oI 3g28/JZP6f9UEHp5mX8CVEE07V+UP05O6idfzz6GfSRlDZ3yz1TJyybQIAny wl9JT1N+q3bwLCx9nsCUzbJunVQe+vfa6/RPJUPHZ6EbvEcAqZ6fuip3Uwrc IS01rEnl53nlOOeqVyp8Xp1e0kLly3VLqDh7LA3KXJ/e8mcQkF1T7TP9WhlQ 3ExTy2uA2hfZaoLcM5mw6XZyXW8/IJMRXQOqky+gcIDyzftUvvPnXfpQeu4V fAcb0i2peUjQkG3MVMqGo3PBYes7AQmyzHwfW5cNnRzfVYu1A7L/QQ//vNpr 6FlbU3OxhfJH0bxUvSMPsv58ZmXVANKy9SteEpIP4ytMk+T5gBQ7+RWJ6byB PUOusWcrAbmZnp3XGVoAHWWYjjOlVD50WZlhW4uhkSyqPZELiJRdbpqvoBi+ Tt9mb5dNzduVPamujzDM2LbkoEkWIEe6S/cq+xBoN3NqQpD63z6c2PX3QwlU z+udTY0DpOqVw9as4DIo/sz4xxs/QDaXr+at/FIGT1gl3uvzAeRF85Tho43l cEF8rr6YNyAPpsLhzZ5yWMWqHWR5AHICVuo5GlTAqELrFeVHAJmrXrtOXlAF c+WHS0YNANnQLcz2t66D6s+Tcg8N08maN1aCtSl1sPb7nG7gTzpRCUsv+zJV BwM41YZJX+lE8t+0DQm73sO+yWjpmnY6mbG0bp8beg+77A8PvKmkk44XmWp4 XQO8rShvsCCeTuLdD5cZ5DZBEQsFq1/b6ER5uGBKr/QTRB8vvre5QiM+NcZX Rwc/QS57xwtFLxppTuUzMuRboYfigeVdp2kkxLFNWdGjFSo39X03O0ojw63T uwC3DbI/2BbzjGmkuFz3cePlduiu0aLlAGjEJiZ3h6vuZ+h551j+yWAxYpb4 qcbCuhvqPV6cLHtRlGzbJSM6lvMN+psXjUcpCZO7Di1+a3MHYO3iM7U2dn9x hQVrvqWMAPps2mhiEjSBBxVlrzREj0CHwwWpE08E+JznqqN3F49DVzkLbz+p b7ilXXrvycpJGGV4S+Q7rQEf8d78DZj/gX6dElNeglLIW6UTwqPNwhfBDI1u 816oIlH4PclUCGn3DvmG5wggq9BlG+2GMLrSGzjEPToFhaZFUs50i6DUzFFW zYwQmthTdLh8hRiq1qm4bM6hoTZtB4UVV2loXCT+vHWBBHK3kl6g1E5H14Xb VgwcZSD5iF5rMZY4OqMEfCScF6AM24TkkQsSKLhqakVE10JkZeBrWlk0D7V6 53w/tHkxyjrspqQ3I4lUfxjKGkTKocl5xqL5B+ajXzuNHxxar4D21utvZEUx kKfGww1v0lhonr5kSWEcAxUNdjj15rJQSVLrTrtEBlqUk3CByWOhtRe8j8Zk MNDGbv0Npz6xEIOTe0u+nIFu6UjKLaezUZXr+h7Z3wzUOa7/T7kDGyFxtVCG ORPNVI9kpi/koEmPyaUZe5jog0Wf/wibgzLbKp7ssmIibyWkqafOQezMkwW3 jjHRTpV6hWrEQTMHkr7O82aiT6hYd9SNg3ITOQbgKRM5mFef9ajkoH/m/6p4 +pyJji9iCsoaOUjFq3ivSRYTHTLaYir/mYMidtifulbIRBJyfwPLxjjojCA6 XLSRic7FaUWGLeAidVtnduJHJkqp0C6ES7ioq0w3xaiTiY7y3+0aXMZFllEf i/1/UO95hb02U+UicZFnZoq/mOhx9rPbkxpchF28msgoE9mMqdQna3HR+Q8m DkemqX5vCftb6XLRGri4f26OiUIaVscByEX/B4rldJQ= "]]}, Annotation[#, "Charting`Private`Tag$9643#2"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-4, 4}, {-2.9999988638375754`, 8.12310496494435}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", TagBox["x", HoldForm]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", TagBox["x", HoldForm]}]}]]}], "-", RowBox[{ TagBox["x", HoldForm], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", TagBox["x", HoldForm]}]}]]}]}], ")"}]}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", TagBox["x", HoldForm]}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", TagBox["x", HoldForm]}]}]]}], "+", RowBox[{ TagBox["x", HoldForm], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", TagBox["x", HoldForm]}]}]]}]}], ")"}]}]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.807952377731018*^9, 3.80799926910106*^9}, CellLabel->"Out[18]=",ExpressionUUID->"4e9ed26c-dfcc-473a-9414-cf00bd200b58"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "b"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], "-", RowBox[{"b", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}]}], ")"}]}], "\[Equal]", " ", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "b"}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], "+", RowBox[{"b", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}]}], ")"}]}]}], ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.8079523906896887`*^9, 3.8079524058619957`*^9}}, CellLabel-> "In[242]:=",ExpressionUUID->"1866295d-ed7a-4648-bf50-27f04324c78c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", "\[Rule]", RowBox[{"-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "\[Rule]", "2"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.807952407805475*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"d2dd108d-d196-42cb-b1f7-f3d6bdd5a820"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"3", " ", "b"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}], "-", RowBox[{"b", " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", "b"}]}]]}]}], ")"}]}], "/.", "%"}]], "Input", CellChangeTimes->{{3.807952422044016*^9, 3.807952430032715*^9}}, CellLabel-> "In[243]:=",ExpressionUUID->"1f2367d8-bca9-4fd4-9ba6-708c4b7e9752"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["19", "8"]}], ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.807952430817354*^9}, CellLabel-> "Out[243]=",ExpressionUUID->"b581fe24-b0f3-41dd-b3b7-b3127974068a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RV", "'"}], "[", RowBox[{"7", "/", "8"}], "]"}]], "Input", CellChangeTimes->{{3.807993362162405*^9, 3.8079933785861387`*^9}, { 3.807993442599573*^9, 3.807993442935158*^9}, 3.8079935107624598`*^9}, CellLabel-> "In[253]:=",ExpressionUUID->"351769a8-7027-463f-8b01-91e83de2c849"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["2"]}], " ", "\[Pi]"}], ",", RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]}], "}"}]], "Output", CellChangeTimes->{3.807993379210742*^9, 3.807993444819379*^9, 3.807993511205779*^9}, CellLabel-> "Out[253]=",ExpressionUUID->"7dc9e2e8-2ed0-43e9-9641-027911fa2dde"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"v", "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", "49"}], "5"], " ", "t"}], "+", RowBox[{ SqrtBox["2"], "\[Pi]"}], "+", RowBox[{ FractionBox["1", "10"], " ", SuperscriptBox["v", "2"]}]}]}], ",", "v"}], "]"}]], "Input", CellChangeTimes->{{3.807993713737444*^9, 3.807993741938747*^9}, { 3.807993846683702*^9, 3.807993862296427*^9}}, CellLabel-> "In[257]:=",ExpressionUUID->"14f8378e-691c-41ce-86c3-d168c743c370"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v", "\[Rule]", RowBox[{"5", "-", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"98", " ", "t"}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", "\[Rule]", RowBox[{"5", "+", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"98", " ", "t"}]}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8079937427667093`*^9, 3.8079938636099663`*^9}, CellLabel-> "Out[257]=",ExpressionUUID->"0befc420-11a6-4cb9-9312-b8cb858cb024"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"5.`", "\[VeryThinSpace]", "-", RowBox[{"1.`", " ", SqrtBox[ RowBox[{ RowBox[{"-", "19.42882938158366`"}], "+", RowBox[{"98.`", " ", "t"}]}]]}]}], "/.", RowBox[{"t", "\[Rule]", "0.875"}]}]], "Input", CellChangeTimes->{{3.8079937745138597`*^9, 3.807993781562684*^9}}, CellLabel-> "In[255]:=",ExpressionUUID->"40c2c481-62b0-4963-9504-4430432ceb3d"], Cell[BoxData[ RowBox[{"-", "3.14378110084108`"}]], "Output", CellChangeTimes->{3.8079937828884907`*^9}, CellLabel-> "Out[255]=",ExpressionUUID->"1745bf25-5fb2-475f-b4be-fd8c00667e90"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"5", "+", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"98", " ", "t"}]}]]}], "/.", RowBox[{"t", "\[Rule]", "0.875"}]}]], "Input", CellChangeTimes->{{3.8079938062186003`*^9, 3.8079938121849747`*^9}, 3.80799387430291*^9}, CellLabel-> "In[258]:=",ExpressionUUID->"bd38291d-45b8-4c63-a94d-10676a58ed55"], Cell[BoxData["13.14378110084108`"], "Output", CellChangeTimes->{3.807993813095891*^9, 3.80799387551301*^9}, CellLabel-> "Out[258]=",ExpressionUUID->"9acc65bc-0389-4a7d-b2c0-ff2ade4e5e44"] }, Open ]], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{ RowBox[{"(", RowBox[{"5", "+", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"98", " ", "t"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.80799392131352*^9, 3.807993936012501*^9}}, CellLabel-> "In[259]:=",ExpressionUUID->"34e59f60-54e1-4e30-9cfb-a1a3f8e23ae0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"5", " ", "t"}], "+", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"98", " ", "t"}]}], ")"}], RowBox[{"3", "/", "2"}]]}]}], "/.", RowBox[{"t", "\[Rule]", "0"}]}]], "Input", CellChangeTimes->{{3.807993958790992*^9, 3.807993978227594*^9}}, CellLabel-> "In[260]:=",ExpressionUUID->"d18f7dc2-cd46-45aa-909b-1cc3db4a02d8"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "147"]}], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "25"}], "+", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}]}], ")"}], RowBox[{"3", "/", "2"}]]}]], "Output", CellChangeTimes->{3.8079939807767076`*^9}, CellLabel-> "Out[260]=",ExpressionUUID->"3de7ebfc-bdad-4897-a434-ceae7001fdbb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"-", FractionBox["1", "147"]}], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "25"}], "+", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "]"}]], "Input", NumberMarks->False, CellLabel-> "In[261]:=",ExpressionUUID->"91fe9fa1-abe8-42c5-9b21-f2890dd900bb"], Cell[BoxData[ RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.5825760370227646`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.807993983441497*^9}, CellLabel-> "Out[261]=",ExpressionUUID->"642e32eb-9752-411c-b466-ceea74f6bf12"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ TemplateBox[{"\"convert to exponential\"", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]"}], "-", RowBox[{"0.5825760370227646`", " ", "\[ImaginaryI]"}]}], RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]"}], "-", RowBox[{"0.5825760370227646`", " ", "\[ImaginaryI]"}]}], "]"}]}], ",", RowBox[{"a", "=", RowBox[{"Arg", "[", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]"}], "-", RowBox[{"0.5825760370227646`", " ", "\[ImaginaryI]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"Defer", "[", RowBox[{"n", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "a"}]]}], "]"}]}], "]"}]}, "HiddenFunction", DisplayFunction->(FrameBox[ DynamicModuleBox[{Typeset`open$$ = False}, PaneSelectorBox[{False -> TagBox[ GridBox[{{ OpenerBox[ Dynamic[Typeset`open$$]], StyleBox[#, "SuggestionsBarHiddenFunctionLabel", StripOnInput -> False], StyleBox[#2, Plain, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], True -> TagBox[ GridBox[{{ OpenerBox[ Dynamic[Typeset`open$$]], StyleBox[#, "SuggestionsBarHiddenFunctionLabel", StripOnInput -> False], StyleBox[#2, Plain, StripOnInput -> False]}, {"\"\"", StyleBox[#3, ShowStringCharacters -> True], "\[SpanFromLeft]"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> { Dashing[{0, Small}], GrayLevel[0.85]}], "Grid"]}, Dynamic[Typeset`open$$, TrackedSymbols :> {Typeset`open$$}], ImageSize -> Automatic], DynamicModuleValues :> {}], FrameStyle -> GrayLevel[0.85], RoundingRadius -> 4, StripOnInput -> False]& ), Editable->False, InterpretationFunction->(#3& )]], "Input", NumberMarks->False, CellLabel-> "In[262]:=",ExpressionUUID->"167a8284-73aa-4634-9346-160df1538706"], Cell[BoxData[ RowBox[{"0.5825760370227646`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"-", "1.5707963267948966`"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.80799398941426*^9}, CellLabel-> "Out[262]=",ExpressionUUID->"d3575c9a-597c-4144-b4eb-ce76e95d519a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"c", "+", RowBox[{ FractionBox["1", "10"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["2"], "\[Pi]"}], ")"}], "2"]}]}], "\[Equal]", RowBox[{ SqrtBox["2"], "\[Pi]"}]}], ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.8079939440137577`*^9, 3.807993950468383*^9}, { 3.807994089330948*^9, 3.8079941181620283`*^9}}, CellLabel-> "In[263]:=",ExpressionUUID->"c795f305-3165-4d06-be8a-adc80cf676d9"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"c", "\[Rule]", RowBox[{ FractionBox["1", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SqrtBox["2"], " ", "\[Pi]"}], "-", SuperscriptBox["\[Pi]", "2"]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.807994118632235*^9}, CellLabel-> "Out[263]=",ExpressionUUID->"8e64452f-74e6-4e8b-9128-3ef52ec88064"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", "49"}], "5"], " ", "t"}], "+", RowBox[{ FractionBox["1", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SqrtBox["2"], " ", "\[Pi]"}], "-", SuperscriptBox["\[Pi]", "2"]}], ")"}]}], "+", RowBox[{ FractionBox["1", "10"], SuperscriptBox["v", "2"]}]}], "\[Equal]", "v"}], ",", "v"}], "]"}]], "Input", CellChangeTimes->{{3.807994127552981*^9, 3.807994178420945*^9}}, CellLabel-> "In[264]:=",ExpressionUUID->"1370374e-5498-4de9-9285-94186d58ecb7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v", "\[Rule]", RowBox[{"5", "-", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", "\[Rule]", RowBox[{"5", "+", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.807994179496602*^9}, CellLabel-> "Out[264]=",ExpressionUUID->"082ccab4-a812-4f65-9c1b-ce9d1fa7ea2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"5", "+", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}]]}], "/.", RowBox[{"t", "\[Rule]", "0"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.807994188216257*^9, 3.807994210387103*^9}}, CellLabel-> "In[266]:=",ExpressionUUID->"0de98fa0-6700-4aec-a01e-5e00327d01cc"], Cell[BoxData["5.557117061841634`"], "Output", CellChangeTimes->{{3.8079942076215878`*^9, 3.8079942110413733`*^9}}, CellLabel-> "Out[266]=",ExpressionUUID->"e85d434b-b437-4a0e-8d33-96d404be9f70"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"5", "-", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}]]}], "/.", RowBox[{"t", "\[Rule]", "0"}]}], "//", "N"}]], "Input", CellChangeTimes->{3.807994224099526*^9}, CellLabel-> "In[267]:=",ExpressionUUID->"a8e29fa4-8f43-4d5d-bf4f-a49529ad404f"], Cell[BoxData["4.442882938158366`"], "Output", CellChangeTimes->{3.807994224874608*^9}, CellLabel-> "Out[267]=",ExpressionUUID->"86246532-17a9-41b5-88e7-622111f3bdba"] }, Open ]], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{ RowBox[{"(", RowBox[{"5", "+", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.807994279876333*^9, 3.8079943001065197`*^9}}, CellLabel-> "In[268]:=",ExpressionUUID->"e7a38440-8dc3-48e6-9734-9c625e8d96bc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"5", " ", "t"}], "+", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}], ")"}], RowBox[{"3", "/", "2"}]]}]}], "/.", RowBox[{"t", "\[Rule]", "0"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.807994319778356*^9, 3.8079943615056868`*^9}, { 3.807994392636565*^9, 3.807994392736231*^9}},ExpressionUUID->"424480f1-abc3-4e15-bda7-\ 3f209824372d"], Cell[BoxData["0.0011763106861090186`"], "Output", CellChangeTimes->{{3.807994358815757*^9, 3.8079943633964863`*^9}}, CellLabel-> "Out[270]=",ExpressionUUID->"46c23abc-f066-4c94-bc4a-d95dd9025b46"] }, Open ]], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{ RowBox[{"(", RowBox[{"5", "-", SqrtBox[ RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.8079943793181467`*^9, 3.80799437960997*^9}}, CellLabel-> "In[271]:=",ExpressionUUID->"c09e4045-1ff3-4164-834d-7c4d030b4caf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"5", " ", "t"}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}], ")"}], RowBox[{"3", "/", "2"}]]}]}], "/.", RowBox[{"t", "\[Rule]", "0"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.80799438471025*^9, 3.807994402621974*^9}}, CellLabel-> "In[272]:=",ExpressionUUID->"4c7a8308-27e9-416e-9db4-4a686e067b6e"], Cell[BoxData[ RowBox[{"-", "0.0011763106861090186`"}]], "Output", CellChangeTimes->{3.8079944035910254`*^9}, CellLabel-> "Out[272]=",ExpressionUUID->"a3d91a74-e430-4f85-9e1a-9adc17d797f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"0.0011763106861090186", "+", "c"}], "\[Equal]", RowBox[{"35", "+", FractionBox["5", SqrtBox["2"]], "-", RowBox[{"12", SqrtBox["2"]}]}]}], ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.807994418189232*^9, 3.807994457828438*^9}}, CellLabel-> "In[273]:=",ExpressionUUID->"91697b2e-3a94-4da3-b51f-62bf655d1995"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"c", "\[Rule]", "21.563794846769483`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.807994459239547*^9}, CellLabel-> "Out[273]=",ExpressionUUID->"4956e756-8526-46a7-8a81-56e426cee739"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "0.0011763106861090186"}], "+", "c"}], "\[Equal]", RowBox[{"35", "+", FractionBox["5", SqrtBox["2"]], "-", RowBox[{"12", SqrtBox["2"]}]}]}], ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.807994485846828*^9, 3.8079944875847282`*^9}}, CellLabel-> "In[274]:=",ExpressionUUID->"e0adabb5-b536-459e-ba5b-d0c4347b3066"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"c", "\[Rule]", "21.566147468141708`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.80799448869289*^9}, CellLabel-> "Out[274]=",ExpressionUUID->"3e474d82-d05d-4fe7-b1b9-82861760e44e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"5", " ", "t"}], "+", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.563794846769483"}], ",", RowBox[{ RowBox[{"5", " ", "t"}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", "t"}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.566147468141708"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.807994502669119*^9, 3.807994582730154*^9}, { 3.807994618493278*^9, 3.807994631950117*^9}}, CellLabel-> "In[277]:=",ExpressionUUID->"cc01a640-cd03-41e0-990b-98b475a073aa"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVznk41HkAx3FXIccPsTVFGlERiZrpEN8PcqvcP3YlDypRktXh6FBUokLz oIQR5SrjGlubjkXadMi1eGIGWSXkSIlitv3j/bz+fTP9DrnskRATE3P92f/a 7/nQ9GTwiFl525OZnCQWpCyXhAoZboRjw30bkMLC+uz0GxWMAGJwlV5hyGHB 4VV7eSYjnJjzdtz5J40FOmDqYQojloR1/JoUkM1Ct+F5y0sMDtG/9eaAFY8F rtrOcxcZeYQqCNXxbGIhRqZiVTyjkmxwe3bcSp0NPZvkC+WhlcRxVVXf2DI2 muMODb59VknqmFH2WUw2tCX1i9ce5ZPVzZGSopVs1M/mrW1triLdWxVL243Y kP+cytJMvE+aCk27+2zYSO+OtOTPPSJ7/tKwdjjChqdXDm9svI5cDRHwelrZ kBPFeNssayTqwaaHxVM3Qsf504fahFayO/louKb/Jhx7vZmkT3aSnL9N3Qed NmNRpbJAXFxILFqtBUUmW1DVZ/mycWsfcbFiLm62NkFNUOZSr+F+8kJN99s8 r634stKUunvwPVHgXLd77GcKielipaU6H4mWRqm/xiUzsEW+Va4lw4QODper v0PwMnbD63q9URJi4HLo6D5AM2louvDTGBFFTe8ykzXH0JRQ0LZugqTqcBbp 5Jkj7+ODBsXLn0n/Q9mVxk4WUNTIH+3vnyQN/Aq/lbMWSNzP38vV/kpo7mDe RI4lvqK4P/DUFLk/2bAzwHMbwo3rKn+p/UYmxu7dpOZbQVhSl9DEnCGxd7vW tz61wveg1gzdyO8k8KF2Vm6cNdaYS8/tffCD9FhLdBaY2MDmJnNf2aI5cib6 4IidlC2OaezW6vUWkZ7skYLsGlvoD7vLtW8Xg1dN6MSPU3ZYSI3J1M2I4Q5D VeqIkz2kHmfwVtwQh1gF+C/UHBC84UGnrIME8tI3riv65IBiOz/uo68SEISd vZ9Q74gvQ0uUBlIl0d+ov+9MynbwXW0kOdukYDj5Puhk2A6cso3LrhyQgnR5 0SNd651gdtt35MbNw4hRueR8eSds2RjLYRjPR9nF4nHWKSd4L2ucFm+ZD3Oh aOjfISd8abjUFxojjbA/8o2l/Z2RLuUT7qItA2FE6ZXIFmcsFPBvStTJwGus Y3WHhQvmnYhx23xYFrfViXJvtQvECn14fSoLcOBM4tshQ1eEXeddUqlZgAcD ivub77ri4ZoLMsohcnCcuqlcqOcGZfsw/TOK8shLuZO9nuuGLoM3LRHV8uCq SHxuXu6O0iyi3e+jAJ1So/1z19yxi8dW1phTQDe327tB2QOn43JiuooUYRyb nNbL8cDdDxoZio4UNEe1/MyUaFzIjPMV7KCwqsk7ap8KjQCXEZ0SZwqZy70L klRpqFdXl26nKTRF5Zu+W0zj4pXf6hP9KOh7eLrHM2kEsq+NL4igUMvx3tRp TEMrVtVW+jaFH2ZP68+705jbFK3QXkChzHTKo4Km0Tnyrvl2MYVbZ5tnBF40 kuiKXdZlFHwDY06wfWiI9Fx+j6umoGdUEDKwl0ZX05UsyRYK7uK0yO44jXvn pvxb2ihwFfjPj0bS4Jjs1s3toCCMLMnPjabhcGttpYWAQqlEaNbsaRp/Hn/1 PGbw52+a2rHyeBqpBqwrzsMUeiPYAmECjcN9N9yYoxSC24Y8FS7TWO14QPhk koJqnFJ8YAoNKfHWvKQpCvHLT5qlcmj08E2CfGconK6Nlq5LpVEdlGu4bpbC YLJc/3g6jTRNuS8iEYU2nm6rZgaN/wCNoVir "]]}, Annotation[#, "Charting`Private`Tag$129602#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nk4VGscB3BKIWWyVWSJzLTZkoNc+b2huNImiZRkq5BsRaumIrJmS4UI E1kqoaydZMsyZgaNZMlEV4xwy1p03/vHec7zed7znPPHeX/f76vsdM7KdZGA gEA/vv6/W7gOsclv541athjMpscQSMhEzrtP1hpuUGNlFscSaNujpOSXsi5w fZdk07E4Au1p4RamyPrDQ4E7hvMJBDriMl0ZK3sLGoLt9/55QKAezdsmkbLx UC+TftQok0Dxj9aQVPsE2JzQGmeTRSALylPDquRESLC9xvBgEKjkezMxpnQf logdY0RkEygqX3LjQVoqyA7PjOTmEShNZn/IHdlMsGsOOO9RRKDLLfdqbMoy Qbmy3sa2mEA2wZ8XrbfPgkD/nn7jEgItn/QJKk9mwPXvkzISrwkU2B4fyFfK gUG5iobYcgIdjOty30crgMLZg7JbqwlEF3m5IUy2CBTixN/PtxBos9nd0ELv IgjwGvpdyiQQJ/jct0/1ReCrwtf2byWQ6mK1XI0LxfCDebWYxyJQ3XymRjun BEQUV1zPbsPf/5FIKEWUQo7q+p1dnQQq3no+0fxLKeQVjVoGfiSQg/ehaR+D MlDf0HNXuotAz0YppTVDZXCQ+4Bj9olAVkOhhu67KqBioOTK/R4CJfVcMile qAL42VI00k+gnfJ2mb2H38B1b/MYLx6Bho/qLRHJfwMhhoYtY9iK/IvO+eok dFnv8B/9QqBzZ3SpAt0kMKrCXnQMEkjS5Vl2ln41LNInGfbfCOR2U9HOwKUa prckR9Zilz+OFG2NrgZ90Q2T6sMEcun3cJ/5Wg1hazbtncMudtiotifhHTDt X++n8wlka5f+bHyiBlxk1gtZjBFo7JP1ssdytTBp0Wx+DzvEQcT1kEktNNwX O/wF+6XzObmS+FpI4n1uCBgnkLjXjuDLenWgxzXZETtBoKzx8T41xzpw5kr2 dmAb+mUa9IbWAal/YP+afwnkHig2jrrqwEPH4sl97NobH48uvVoPhXLiFlE/ CHRsSWTxq6x6oNvqhTdg/3sbrTzDrIf9ehOZgj8JtC7ySW2TUgOIq0y7emNf uXde6251Ayi5/6OPJgkkJbcp3HikAVKFTOx8sJ8mdw/+kHoPRamFdunY3HST hzau74HPcFmYx9bOk1gqL9IIiimVYzlTBHqvUevYotUIIka+mzjYji8Cy6/Z NcL5RG2LWezIkj7v/qeNoOCjZmo6jffT9rim2LZGkNyxXOk0dln5bprp70ag OZkO3MEeIvM/MfY2QajSlFYLdpDJSV3bC02QEihcxsdeVSd9V/RREziXpmmJ zRDIpOnybs/xJoh2v/3NFLtrr2a6gmwzeH9xUHfE9mbxfjF3NoPASc7JS9ip HX+/2BrXDNbXoh/lYhO282JfypuBr2HztBq7ueu5W/wAfl7iZXYn9mzfavlp ogXOhKy5KThLoBinpgvZDi0gO3jXURqbNniNbXe7BcxX3dShYVsPD4ZUdLZA 3qnU6t3YI573+88KMoFTqH7tMPaNMUtDpc1MGNL8o+2MLesrcI9lxYR/Z972 n8N+/vPlBP0yEwqa1odfxjYLOGW5LZMJFHG2Zgh276zck4FmJuRw/FnR2P5X mIKJk0wQ6Hl9Nglb7A/9mJliKzRn7RJJw046c8RBbXcrSFxWuMHAVm1Xc5Tw aoUu0VChPOwXRoucphJawSh8XcxzbKMcrvOnylZ4IEOnFmE3SeW7koOtoJhm XFuCrQZvX3KWsgAtnT/3Gtv3Z65OrRwLNoqZ0UqxS3MSi19psED0eMnQ/+sC J+i6T41Z4JXU9+oV9m5pz1fJNiy4sMcmvhg74r2NfrQ7C4Rn864VYrdd21lK v8YC/trzAQXYcjpqBv6xLJjYBEE52I7fVpW7MVjwLfFBYgY2I1XQ0K6MBQyu TFUy9ughfsUeJn7exWgqHltHlLvDiMeC01VpEIF9qeptldYUC46cbXhwA5v0 y4P1y9gQJoxEArGFN90jZRTZIKB9N9QTe18vfaeINhuKMkzlHbHj4zyr53ax YftG3jsrbOWFnTV9Z9nAFZ86QGCffqm2i0Nnw8OQAD0qdsHp1XU1CWxI3Dm7 7f/98lcbvz6nkg1zost8xvD+uhHKNU9ms+GRXkrhJ+yGHdXvowbZUDiqv7we +3D2vSa/FRxImAsVfYidfPyGpZsyBwwaDApuYvMkz7bYEhw4u3Lc0wP73FXj 1h3HORC48YiBPnaY1ShHOJ8DhNMdlXo8PyzhzkNzJAdux7Iys/+fp8rqdn47 B94cGzYNw87YkPSB/ZsDhhG+n82wK38bdz20bIPewvS7ZXiehQrV7aMc2+Cb oQ0lAdvi1Jru6/5t0EAPKvDC5rJHe1yT28Ak+4eVEvYEI6lfk98GUboJ6ALO D+rB70PvwtthT7ye+C+cV3JBZgan0tvByT76/Dvslflp4ctetcPyXpG+O9hz Ioc0DvLaIUrMq2wVNot85der3wF+RZrpKjgPL2nRF2YGO8D2bXCKGM7Xcw5d +5N/dcCp1f841eD8dYnYlg4SH6B73W7tK9j7hwZNQgw/gL3Kp/Gh73ge0izC pOI+QLqg5VzJKIGYFGlpDcSFjrdXM6gjBHq346wr+zAXtkUdg1bcB6896kr8 PbjgIeLKD8DOqA+0K0/kQptj9uU63CeBQT2p5qNc4MW2XLIdIpDKGGOT84NO OEM9YXsA91EAczsk/fwIKRv5R2N7cR9oFA++F+mCypfC6TTszEitiF/yXZDV I6dShvuQbbnho8OuLig+bPOht5tAW5qk/aiJXXBp3IqihPuzr36MUaj3CWaM uIsvc3FevM0Sb7nUjfNLbfgx7u/edcrFC1HdUPo1dq0Stv/1ZHutjG5wyHwf 8wD3fTrEZcc1dUORRYFZND4P/Kq8bnxUvgey3S5+P9eE+7rM/sI/lT1gHeVs K15PoNVFEr2Cgn3Q01lk9bYS90/EL+uBVX0w3lp9URb7sctgU51aH7y7wm/2 rsB5IVNaGm7bB3neZTPy+DxifMExQeZ5H7hbmHp54POKbvIRRrzmZ2hoJlb2 FxLopAPjeHbvZwg4NSe79Qk+L/FMmlsNeXCz63elbySBPpjTJyLNeKCnyRBK jiDQVEHVKksrHnQw+6Nqwgmkd3n7yYZTPPj6aMRL6g7+X1KaU2QsD8zHkXN2 CM4nU7l1hUM82F8oZfksiEAVjHG/+PgvcNFybZS2D4Gq3VPW2vEHIErobZ2s FYEmaTso+Wf/gbU+Pi8aVxJo0WzuyrXUYXgaxpyueqODdP84lhwq4INbC2fx jLsOar6lw6zbPAbp09Ibiyk6SClmZDbn+zhIbglzm8jYhkam+3o7tP6Fd0me TkF621DmcHmjeNQP+Ng33Jldqo3EFZ6MDQz8hJixHN2lutoo4kyxW5rqFOxa 9qTbuGgrmkK5A6eDpkFVJLVDft1W5K9dU7Tq3Qw8ZrDZktFaqK+gJpytPAdX ptpHrnRool/u7Q83XfoFkk4NNvm3NNCWncILbuW/YaxegkY1Ukdmj5VPvVi9 AHXDtdx55hYUoHBCpf/YH7DU48SpeG5GavzDYty9AkjwHvWR+pJNSIoyLlIz J4DmYu5zUvw2IKE3D5+tTxZEN53jNQonqMhDp/yj6J5FyNdXOC/ARBXl/u2U VjW1CBVUXQwg7qqgyRG5lV8TF6N9n5VtKyfWoeJDZovjTYWQQJa5lYC5Igoy D35U9FUI6V47/da8Qw4p91h0ZgQvQdUfLtzjOa5GBnq34mW1lyKhFQKuWhFS 6Jhi66xg21J0INrJ/3wTBU02RvK86cJI36yrJP2VMEoScvC3UhVBM9sH6pcs FUBSvcWPF9WIIIG22wOnC8ZhyVW69XYfUSRwrHh3Oy/2jUCOwzOe5DLkyFVr WnR2/I3vg2eRktXL0JrbpW7+awXJyi2hIhJeYkiLX5tnuyBKSlj4qt0QX45+ SrnffERIkN3qrLaLFcvR6zS+X9VHGfJ5KqgOOKxAM6alpk5Ijjz+TFdCYWEF WjOf2SuUrkheD06ndz8VR530r7nHS5XJ/CGFh+KWFGTdX0buFlQlQ1OCHXv3 UZBX/lKFUDFV0sVqlFpwkIJ+Dlxd3SijSspXVDzfe4SCzHU5X/dvViXvRNvX RThRUMzMnu9Oh1TJ07r3J5ZdpCDF5kMPGFmqpMotaXNhBl7/5EJkWlDJBf0r K7jZFLQy0ufvWWsq+XH0C4eRi9cDG+b2naCSMUdeHt/9goLWrdpO/Pajkn82 W/kFV1DQ5z1OIg4pVLKbHZ26uI2CludVKcM4lXwdMu3c1kFBqHGLcOoclYz/ 68SmjE4Kkh73C5sXopF7sjSKjHsp6ADjokuVLI0sC2x5T/9GQUnb7/uZmdDI RHUi+iCfguTFFCB3L4304SVbK4/h92WYPqHY0siNlp595E/sJOe9XZ40Ukiw PTNmmoIaNPeGowAa+bn4L3fHOQqyXfzG9QmdRla4Z2hqzVNQoHZht3gEjbyn JDb55w8Fve5RGr+QSCP/A11Fv8c= "]]}, Annotation[#, "Charting`Private`Tag$129602#2"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 4}, {-11.293876174821762`, 94.42381767340642}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ RowBox[{ RowBox[{"5", " ", TagBox["t", HoldForm]}], "+", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", TagBox["t", HoldForm]}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.563794846769483`"}], RowBox[{ RowBox[{"5", " ", TagBox["t", HoldForm]}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", TagBox["t", HoldForm]}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.566147468141708`"}]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.807994583744607*^9, {3.807994623752633*^9, 3.807994632443266*^9}}, CellLabel-> "Out[277]=",ExpressionUUID->"916f6eb9-b5be-48e8-b689-effc366c741c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{ RowBox[{"5", " ", TagBox["t", HoldForm]}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", TagBox["t", HoldForm]}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.566147468141708"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807994643961319*^9, 3.807994675601385*^9}}, CellLabel-> "In[280]:=",ExpressionUUID->"bfb356a6-fa8e-44c0-8205-bc58c87c83df"], Cell[BoxData[ TemplateBox[{ "FindMaximum", "nrnum", "\"The function value \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \ \\\"21.566147468141708`\\\"}], \\\"-\\\", RowBox[{\\\"5\\\", \\\" \\\", \\\"t\ \\\"}], \\\"+\\\", RowBox[{FractionBox[\\\"1\\\", \\\"147\\\"], \\\" \\\", \ SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"25\\\", \\\"-\\\", \ RowBox[{\\\"10\\\", \\\" \\\", SqrtBox[\\\"2\\\"], \\\" \\\", \ \\\"\[Pi]\\\"}], \\\"+\\\", RowBox[{\\\"2\\\", \\\" \\\", SuperscriptBox[\\\"\ \[Pi]\\\", \\\"2\\\"]}], \\\"+\\\", RowBox[{\\\"98\\\", \\\" \\\", \ \\\"t\\\"}]}], \\\")\\\"}], RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]]}]}]\\) \ is not a real number at \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \\\"}\\\"}]\\) \ = \\!\\(\\*RowBox[{\\\"{\\\", \\\"1.`\\\", \\\"}\\\"}]\\).\"", 2, 280, 38, 33271738148348625152, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.807994666463159*^9, 3.807994676670343*^9}}, CellLabel-> "During evaluation of \ In[280]:=",ExpressionUUID->"57223f18-7cb0-43c7-99e9-0f5a823e90f1"], Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{ RowBox[{"5", " ", TagBox["t", HoldForm]}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", TagBox["t", HoldForm]}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.566147468141708`"}], ",", "t"}], "]"}]], "Output", CellChangeTimes->{{3.807994666479374*^9, 3.807994676678999*^9}}, CellLabel-> "Out[280]=",ExpressionUUID->"67108672-79bd-4b89-9412-eb870e119bd2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"5", " ", TagBox["t", HoldForm]}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", TagBox["t", HoldForm]}]}], ")"}], RowBox[{"3", "/", "2"}]]}], "+", "21.566147468141708"}], "/.", RowBox[{"t", "\[Rule]", "0"}]}]], "Input", CellChangeTimes->{{3.807994686060191*^9, 3.8079946972738743`*^9}}, CellLabel-> "In[285]:=",ExpressionUUID->"724110dd-f34c-4935-961a-8b6c3480c4ee"], Cell[BoxData[ RowBox[{"21.566147468141708`", "\[VeryThinSpace]", "+", RowBox[{"5", " ", TagBox["0", HoldForm]}], "-", RowBox[{ FractionBox["1", "147"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"25", "-", RowBox[{"10", " ", SqrtBox["2"], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"98", " ", TagBox["0", HoldForm]}]}], ")"}], RowBox[{"3", "/", "2"}]]}]}]], "Output", CellChangeTimes->{3.8079947609917917`*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"e939d77f-dd79-4c61-b7e9-eb2efd4195b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RV", "'"}], "[", RowBox[{"7", "/", "8"}], "]"}]], "Input", CellChangeTimes->{{3.807995021736113*^9, 3.8079950269422197`*^9}, { 3.807995447614914*^9, 3.8079954761772003`*^9}, {3.807995526658826*^9, 3.8079955268327208`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"8d0c26b5-76f0-45d4-919b-f0f82e41ce52"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["2"]}], " ", "\[Pi]"}], ",", RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.807995027618699*^9, {3.807995471260234*^9, 3.807995476821516*^9}, 3.8079955272033043`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"f0be009a-398f-4114-9541-a59d8afec38b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SqrtBox["2"], " ", "\[Pi]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.807995960836997*^9, 3.807995961684619*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"a31dcc02-867d-4b3c-9722-8c456c4184c3"], Cell[BoxData["4.442882938158366`"], "Output", CellChangeTimes->{3.807995962505665*^9}, CellLabel->"Out[15]=",ExpressionUUID->"80d7c3d9-bfdc-479b-82d0-20b3e32ea9a6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "9.8"}], "+", RowBox[{"0.1", SuperscriptBox[ RowBox[{"(", RowBox[{"v", "[", "t", "]"}], ")"}], "2"]}]}]}], ",", RowBox[{ RowBox[{"v", "[", "0", "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]}]}], "}"}], ",", RowBox[{"v", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807995169165407*^9, 3.807995241427765*^9}, { 3.807995493133938*^9, 3.8079955340765533`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"81ab5d7d-83a1-46e5-ad8d-d9b81ed4534a"], Cell[BoxData[ TemplateBox[{ "Solve", "ifun", "\"Inverse functions are being used by \ \\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \ Reduce for complete solution information.\"", 2, 12, 5, 33272118021445734763, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.807995243082931*^9, {3.807995495078504*^9, 3.807995534941018*^9}}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"24be4362-644d-4bbf-831c-41fd33e60811"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"v", "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"9.899494936611665`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2.6284401161078415`"}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}], ")"}]}], RowBox[{"2.6284401161078415`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.807995194668212*^9, 3.807995210266341*^9}, 3.807995243092798*^9, {3.807995495085446*^9, 3.807995534951683*^9}}, CellLabel->"Out[12]=",ExpressionUUID->"47fb2df6-5c8e-42c6-8bc0-81c5c6c9acde"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"RV", "[", RowBox[{"7", "/", "8"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.807995289048774*^9, 3.807995291989113*^9}, { 3.807995483121456*^9, 3.8079954832871*^9}, {3.8079959760602617`*^9, 3.807995984390747*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"e0818475-da88-4992-a1a5-00c91824b1bb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "13.435028842544405`"}], ",", "21.564971157455595`"}], "}"}]], "Output", CellChangeTimes->{ 3.807995292633829*^9, 3.807995483973172*^9, {3.807995980539525*^9, 3.8079959850491953`*^9}}, CellLabel->"Out[17]=",ExpressionUUID->"57c2ff3b-37ef-4021-9767-16ab753b4b37"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{"-", FractionBox[ RowBox[{"9.899494936611665`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2.6284401161078415`"}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}], ")"}]}], RowBox[{"2.6284401161078415`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}]]}]}], ",", RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Equal]", " ", RowBox[{"35", "+", FractionBox["5", SqrtBox["2"]], "-", RowBox[{"12", " ", SqrtBox["2"]}]}]}]}], "}"}], ",", RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.807995296980792*^9, 3.807995359806169*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"140fd3b6-8401-4378-98b1-52a3fadd4b63"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], "\[Rule]", RowBox[{"34.45299951585701`", "\[VeryThinSpace]", "+", RowBox[{"9.899494936611665`", " ", "t"}], "-", RowBox[{"9.999999999999998`", " ", RowBox[{"Log", "[", RowBox[{"2.6284401161078415`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}], "]"}]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.8079953686289043`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"d0c6871c-b910-47c0-b5a7-ef5ef696e0f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"9.899494936611665`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2.6284401161078415`"}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}], ")"}]}], RowBox[{"2.6284401161078415`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}]]}], "\[Equal]", "0"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.80799555109999*^9, 3.807995561938101*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"065953a5-a6cc-47d9-8e38-085da4be01ea"], Cell[BoxData[ TemplateBox[{ "Solve", "ifun", "\"Inverse functions are being used by \ \\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \ Reduce for complete solution information.\"", 2, 13, 6, 33272118021445734763, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.807995562493416*^9}, CellLabel-> "During evaluation of \ In[13]:=",ExpressionUUID->"4265c614-2610-4a09-9a9a-975ac5b6ee61"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"t", "\[Rule]", "0.48810094084154554`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.807995562529245*^9}, CellLabel->"Out[13]=",ExpressionUUID->"78e52e97-9050-4336-a512-9509c3e4e228"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"34.45299951585701`", "\[VeryThinSpace]", "+", RowBox[{"9.899494936611665`", " ", "t"}], "-", RowBox[{"9.999999999999998`", " ", RowBox[{"Log", "[", RowBox[{"2.6284401161078415`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.9798989873223332`", " ", "t"}]]}]}], "]"}]}]}], "/.", RowBox[{"t", "\[Rule]", "0.48810094084154554"}]}]], "Input", CellChangeTimes->{{3.80799561741885*^9, 3.8079956268077707`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"8bb022bd-9e1c-42c4-b4aa-3a139ccc7042"], Cell[BoxData["22.689574917841284`"], "Output", CellChangeTimes->{3.8079956273759117`*^9}, CellLabel->"Out[14]=",ExpressionUUID->"c89b1f3b-0a30-4c64-8b97-fe0248debaec"] }, Open ]], Cell[BoxData[ RowBox[{"x", "[", "]"}]], "Input", CellChangeTimes->{{3.807995600600623*^9, 3.807995600834899*^9}},ExpressionUUID->"db73029a-39af-48d7-8239-\ 47f6d5854062"] }, WindowSize->{Full, Full}, WindowMargins->{{4, Automatic}, {Automatic, 3}}, Magnification->1.5, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"3c29c235-9661-4449-95b3-7bdd9710bb6d" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 500, 13, 73, "Input",ExpressionUUID->"acb0bf50-ba88-41d2-a027-221de6de8065"], Cell[1061, 35, 201, 5, 46, "Input",ExpressionUUID->"5f40d817-73a7-406b-bb3c-bf2b781027a9"], Cell[CellGroupData[{ Cell[1287, 44, 203, 3, 46, "Input",ExpressionUUID->"6f2d5b68-eb16-493d-99cf-f43559399bc2"], Cell[1493, 49, 196, 4, 52, "Output",ExpressionUUID->"e59f1745-e682-4639-b126-19bdfcb2aad1"] }, Open ]], Cell[CellGroupData[{ Cell[1726, 58, 204, 3, 46, "Input",ExpressionUUID->"17afcaf9-b5bc-4cf9-a3f9-4856a8264dcb"], Cell[1933, 63, 198, 4, 52, "Output",ExpressionUUID->"2c5b8f21-5da0-4a2e-9dbd-07a5bb2723cd"] }, Open ]], Cell[CellGroupData[{ Cell[2168, 72, 481, 13, 46, "Input",ExpressionUUID->"c93687dc-926c-4e2c-8dbe-22d0bd5c84e3"], Cell[2652, 87, 455, 12, 52, "Output",ExpressionUUID->"af21e17f-1b8f-459c-b985-c9989f940538"] }, Open ]], Cell[CellGroupData[{ Cell[3144, 104, 2927, 77, 233, "Input",ExpressionUUID->"f0488430-e645-4b61-8112-8e2b131e9d8a"], Cell[6074, 183, 2476, 49, 858, "Output",ExpressionUUID->"ac49d418-b9a8-473e-8010-f4bf5ce87764"] }, Open ]], Cell[8565, 235, 595, 16, 46, "Input",ExpressionUUID->"7ee4a8d0-9f9e-4d30-b510-b2d4cd2c66ce"], Cell[CellGroupData[{ Cell[9185, 255, 305, 6, 46, "Input",ExpressionUUID->"100edf69-05fb-446b-a190-9ae4c859b520"], Cell[9493, 263, 615, 17, 55, "Output",ExpressionUUID->"bd7cc9a1-95ab-40dd-b53a-70c24295059d"] }, Open ]], Cell[CellGroupData[{ Cell[10145, 285, 616, 18, 58, "Input",ExpressionUUID->"97e8a9ea-f550-4b3a-bfda-1af6ad589b0e"], Cell[10764, 305, 498, 14, 55, "Output",ExpressionUUID->"9174f03a-0946-42bb-b719-ed2d85dd2b23"] }, Open ]], Cell[CellGroupData[{ Cell[11299, 324, 561, 15, 46, "Input",ExpressionUUID->"2bc286b4-e038-4bcc-870a-70e339815cab"], Cell[11863, 341, 46217, 772, 566, "Output",ExpressionUUID->"097e950b-e372-40bc-b8bc-3d7aa8edc8df"] }, Open ]], Cell[CellGroupData[{ Cell[58117, 1118, 369, 6, 46, "Input",ExpressionUUID->"bf4f25d9-5524-410d-b423-5a1dfb33300c"], Cell[58489, 1126, 535, 14, 55, "Output",ExpressionUUID->"e2ed2b76-6a4e-484f-a6f2-20114e09fba1"] }, Open ]], Cell[CellGroupData[{ Cell[59061, 1145, 747, 21, 49, "Input",ExpressionUUID->"a02d8a22-4319-4a95-960a-6af440ed06e4"], Cell[59811, 1168, 19449, 332, 556, "Output",ExpressionUUID->"ef0861ce-316f-4efa-84f8-d027c9c4b78a"] }, Open ]], Cell[CellGroupData[{ Cell[79297, 1505, 395, 11, 46, "Input",ExpressionUUID->"fda311da-21c4-4ff6-87a1-f6f59dc0f444"], Cell[79695, 1518, 176, 2, 52, "Output",ExpressionUUID->"ab9a3b21-0672-4f76-b9d1-896897c60f1c"] }, Open ]], Cell[CellGroupData[{ Cell[79908, 1525, 225, 6, 46, "Input",ExpressionUUID->"836fb662-9fdd-4238-9308-0a6dbb4af847"], Cell[80136, 1533, 149, 2, 52, "Output",ExpressionUUID->"2ac3ad85-800d-4a83-aa2e-08cb3422412e"] }, Open ]], Cell[CellGroupData[{ Cell[80322, 1540, 746, 21, 46, "Input",ExpressionUUID->"e98de0f6-be15-482c-ab89-19bd257158e1"], Cell[81071, 1563, 700, 18, 52, "Output",ExpressionUUID->"4186fc47-5de1-411d-92eb-ed9240cf5307"] }, Open ]], Cell[CellGroupData[{ Cell[81808, 1586, 1167, 31, 68, "Input",ExpressionUUID->"b9ba4179-6a17-4ef3-ae40-d257e8641105"], Cell[82978, 1619, 237, 5, 69, "Output",ExpressionUUID->"987faef5-3d0c-4350-8020-d4ce416259dd"] }, Open ]], Cell[CellGroupData[{ Cell[83252, 1629, 245, 6, 69, "Input",ExpressionUUID->"704b2901-5f5f-4020-bdb5-8c3760544e86"], Cell[83500, 1637, 167, 2, 52, "Output",ExpressionUUID->"cdcdb7dc-1d1b-41b8-a8b8-5bd04c6c9a9f"] }, Open ]], Cell[CellGroupData[{ Cell[83704, 1644, 911, 24, 46, "Input",ExpressionUUID->"a37d6910-7cba-4709-b271-38d7c71c3863"], Cell[84618, 1670, 383, 9, 34, "Message",ExpressionUUID->"a0ea1756-ef24-4d2f-9e3a-a10a99fcdcca"], Cell[85004, 1681, 950, 27, 62, "Output",ExpressionUUID->"1c83c7fa-109a-460d-bd0c-3497639e152b"] }, Open ]], Cell[CellGroupData[{ Cell[85991, 1713, 1192, 32, 100, InheritFromParent,ExpressionUUID->"4f4d11c2-5404-43ed-bffb-819a5d8a46c6"], Cell[87186, 1747, 826, 20, 52, "Output",ExpressionUUID->"cd221418-42a2-411b-aa5d-267c615f5dd2"] }, Open ]], Cell[88027, 1770, 715, 21, 46, "Input",ExpressionUUID->"7c112317-3238-4d60-9b3b-d2389c87e7e7"], Cell[CellGroupData[{ Cell[88767, 1795, 1061, 29, 52, InheritFromParent,ExpressionUUID->"ac97c5ff-280b-4e5c-b4d9-1a2235c30cb5"], Cell[89831, 1826, 365, 6, 52, "Output",ExpressionUUID->"bf8fc9bb-3702-426e-88aa-e1febe376e15"] }, Open ]], Cell[90211, 1835, 524, 11, 78, "Input",ExpressionUUID->"95eaca67-2c27-43d2-abe7-234f5257cd2b"], Cell[CellGroupData[{ Cell[90760, 1850, 217, 4, 46, InheritFromParent,ExpressionUUID->"49b3bc65-3321-4978-8cd0-8c2c2f2e7395"], Cell[90980, 1856, 172, 3, 52, "Output",ExpressionUUID->"077da948-eee7-4fab-9250-1d37b3287b96"] }, Open ]], Cell[CellGroupData[{ Cell[91189, 1864, 2670, 74, 233, "Input",ExpressionUUID->"34013d1a-e5f3-4f2d-8162-229e0e91139b"], Cell[93862, 1940, 2280, 47, 818, "Output",ExpressionUUID->"6ca310de-3091-40ca-a63b-e8a73e90792d"] }, Open ]], Cell[96157, 1990, 729, 20, 46, "Input",ExpressionUUID->"12f50057-2e03-4c6d-aa0a-51e4c57d82b6"], Cell[CellGroupData[{ Cell[96911, 2014, 224, 5, 46, "Input",ExpressionUUID->"6dc40f24-e75e-451f-9e07-1adc108874cb"], Cell[97138, 2021, 703, 19, 52, "Output",ExpressionUUID->"8ce6ec40-5f9c-418e-96c3-62ed502a27f7"] }, Open ]], Cell[CellGroupData[{ Cell[97878, 2045, 254, 6, 46, "Input",ExpressionUUID->"978f5254-c8e6-4e61-968e-cce8650dd2e6"], Cell[98135, 2053, 840, 24, 55, "Output",ExpressionUUID->"6451bf4f-44e4-4484-8bdb-6be28f24ffbf"] }, Open ]], Cell[CellGroupData[{ Cell[99012, 2082, 317, 7, 46, "Input",ExpressionUUID->"2fccd58c-1db5-4947-80de-d1a0a200c6fc"], Cell[99332, 2091, 371, 11, 55, "Output",ExpressionUUID->"e5d3b9cd-a9f9-4a81-a67c-46259e04dd7c"] }, Open ]], Cell[CellGroupData[{ Cell[99740, 2107, 355, 11, 78, "Input",ExpressionUUID->"065baa35-6c87-4492-8212-9517f4b1cae7"], Cell[100098, 2120, 208, 5, 75, "Output",ExpressionUUID->"a99a7941-7b4f-4fc8-a3f8-12a343999810"] }, Open ]], Cell[100321, 2128, 645, 21, 147, "Input",ExpressionUUID->"7ec93f62-ceb8-4f20-81e0-9f199cc5d7f0"], Cell[CellGroupData[{ Cell[100991, 2153, 296, 8, 46, "Input",ExpressionUUID->"ef41a4dd-84ff-4920-af82-19ed1aba3109"], Cell[101290, 2163, 385, 11, 52, "Output",ExpressionUUID->"d214f1a2-a7ec-44c9-a8a9-9dacd8205058"] }, Open ]], Cell[CellGroupData[{ Cell[101712, 2179, 218, 4, 46, "Input",ExpressionUUID->"f4eb4e77-ea00-4dd6-8e19-e633413641e7"], Cell[101933, 2185, 172, 3, 52, "Output",ExpressionUUID->"e1264bae-b196-4a87-ba0e-bd34a9cd1628"] }, Open ]], Cell[CellGroupData[{ Cell[102142, 2193, 203, 4, 46, "Input",ExpressionUUID->"94402247-3b7a-4a30-bba0-e210fdee804c"], Cell[102348, 2199, 671, 23, 75, "Output",ExpressionUUID->"f1779f86-33b0-42ca-a371-4882c7addd8c"] }, Open ]], Cell[CellGroupData[{ Cell[103056, 2227, 303, 9, 78, "Input",ExpressionUUID->"2f2f61d7-231d-4bb4-8c51-e8d54d89f802"], Cell[103362, 2238, 170, 3, 52, "Output",ExpressionUUID->"25fc03c2-d1a5-4f30-b4d5-e0259bd24b7c"] }, Open ]], Cell[CellGroupData[{ Cell[103569, 2246, 237, 5, 46, "Input",ExpressionUUID->"c49fec37-10e4-45fc-a18d-c5364662c932"], Cell[103809, 2253, 215, 5, 52, "Output",ExpressionUUID->"e897283b-6309-454f-b6ca-8bc1b9a58666"] }, Open ]], Cell[CellGroupData[{ Cell[104061, 2263, 237, 5, 46, "Input",ExpressionUUID->"7e8e4b62-261d-4771-a868-0a33c036e12a"], Cell[104301, 2270, 188, 4, 52, "Output",ExpressionUUID->"d7cc1f90-d718-4a31-ae59-212737b2c71d"] }, Open ]], Cell[CellGroupData[{ Cell[104526, 2279, 353, 9, 78, "Input",ExpressionUUID->"01f616c7-836d-4c17-89f5-b61e80ef69fa"], Cell[104882, 2290, 190, 4, 52, "Output",ExpressionUUID->"f46de8e8-580d-486d-a239-67edc607598c"] }, Open ]], Cell[CellGroupData[{ Cell[105109, 2299, 224, 6, 64, "Input",ExpressionUUID->"3515b069-8774-44cf-9223-c0f8ae95fbba"], Cell[105336, 2307, 189, 4, 52, "Output",ExpressionUUID->"b81a50d9-57e3-431b-92b6-0cf862e5a2ec"] }, Open ]], Cell[CellGroupData[{ Cell[105562, 2316, 356, 10, 49, "Input",ExpressionUUID->"a5fe8314-cb40-4f5d-a21a-11fb00bff1f1"], Cell[105921, 2328, 373, 12, 55, "Output",ExpressionUUID->"24394454-5829-4d76-8f1e-59a8aeff83a0"] }, Open ]], Cell[CellGroupData[{ Cell[106331, 2345, 752, 23, 49, "Input",ExpressionUUID->"dac2307b-0820-4e5a-ba3e-17f27f1d0ae0"], Cell[107086, 2370, 12273, 216, 528, "Output",ExpressionUUID->"9b931b81-6fad-4420-9da9-eb7d4b29d93c"] }, Open ]], Cell[119374, 2589, 154, 3, 46, "Input",ExpressionUUID->"505d8a0b-df15-4ecb-a1b2-386aab680c7c"], Cell[CellGroupData[{ Cell[119553, 2596, 330, 11, 49, "Input",ExpressionUUID->"cbcd055e-f50a-4c13-b3ab-ef550b6fa47a"], Cell[119886, 2609, 373, 12, 55, "Output",ExpressionUUID->"32de2835-62f8-4c33-998d-3fbab695c4cc"] }, Open ]], Cell[CellGroupData[{ Cell[120296, 2626, 337, 10, 49, "Input",ExpressionUUID->"9928fd58-e2b3-450a-a911-da65f5cda45f"], Cell[120636, 2638, 678, 23, 68, "Output",ExpressionUUID->"feb8f2dc-8302-400c-b404-83bf60fa20a5"] }, Open ]], Cell[CellGroupData[{ Cell[121351, 2666, 433, 12, 49, "Input",ExpressionUUID->"88bfc157-4db5-43c0-8d20-029c028ce242"], Cell[121787, 2680, 4011, 119, 350, "Output",ExpressionUUID->"9e31b05e-df04-470c-8cde-7eb8c90c4b0b"] }, Open ]], Cell[CellGroupData[{ Cell[125835, 2804, 1289, 41, 105, "Input",ExpressionUUID->"cc6ff087-aa68-4ea6-a2a6-80dcf53c74ae"], Cell[127127, 2847, 717, 22, 68, "Output",ExpressionUUID->"913ce856-ac0e-4665-89e5-6bfd670fa82a"] }, Open ]], Cell[CellGroupData[{ Cell[127881, 2874, 1240, 40, 105, "Input",ExpressionUUID->"02d516d6-68c1-4278-afe3-5672853ebadd"], Cell[129124, 2916, 615, 20, 68, "Output",ExpressionUUID->"552121c9-b4fa-42d4-b2e7-70a3401c586d"] }, Open ]], Cell[CellGroupData[{ Cell[129776, 2941, 1278, 40, 112, "Input",ExpressionUUID->"6dfd3520-c991-423f-b966-9ad0b0d53fa8"], Cell[131057, 2983, 23648, 466, 380, "Output",ExpressionUUID->"4e9ed26c-dfcc-473a-9414-cf00bd200b58"] }, Open ]], Cell[CellGroupData[{ Cell[154742, 3454, 1047, 35, 68, "Input",ExpressionUUID->"1866295d-ed7a-4648-bf50-27f04324c78c"], Cell[155792, 3491, 354, 11, 68, "Output",ExpressionUUID->"d2dd108d-d196-42cb-b1f7-f3d6bdd5a820"] }, Open ]], Cell[CellGroupData[{ Cell[156183, 3507, 558, 18, 68, "Input",ExpressionUUID->"1f2367d8-bca9-4fd4-9ba6-708c4b7e9752"], Cell[156744, 3527, 241, 7, 69, "Output",ExpressionUUID->"b581fe24-b0f3-41dd-b3b7-b3127974068a"] }, Open ]], Cell[CellGroupData[{ Cell[157022, 3539, 321, 7, 46, "Input",ExpressionUUID->"351769a8-7027-463f-8b01-91e83de2c849"], Cell[157346, 3548, 350, 11, 55, "Output",ExpressionUUID->"7dc9e2e8-2ed0-43e9-9641-027911fa2dde"] }, Open ]], Cell[CellGroupData[{ Cell[157733, 3564, 541, 16, 69, "Input",ExpressionUUID->"14f8378e-691c-41ce-86c3-d168c743c370"], Cell[158277, 3582, 682, 21, 64, "Output",ExpressionUUID->"0befc420-11a6-4cb9-9312-b8cb858cb024"] }, Open ]], Cell[CellGroupData[{ Cell[158996, 3608, 414, 11, 48, "Input",ExpressionUUID->"40c2c481-62b0-4963-9504-4430432ceb3d"], Cell[159413, 3621, 188, 4, 52, "Output",ExpressionUUID->"1745bf25-5fb2-475f-b4be-fd8c00667e90"] }, Open ]], Cell[CellGroupData[{ Cell[159638, 3630, 417, 12, 56, "Input",ExpressionUUID->"bd38291d-45b8-4c63-a94d-10676a58ed55"], Cell[160058, 3644, 191, 3, 52, "Output",ExpressionUUID->"9acc65bc-0389-4a7d-b2c0-ff2ade4e5e44"] }, Open ]], Cell[160264, 3650, 446, 13, 66, "Input",ExpressionUUID->"34e59f60-54e1-4e30-9cfb-a1a3f8e23ae0"], Cell[CellGroupData[{ Cell[160735, 3667, 530, 16, 68, InheritFromParent,ExpressionUUID->"d18f7dc2-cd46-45aa-909b-1cc3db4a02d8"], Cell[161268, 3685, 417, 13, 68, "Output",ExpressionUUID->"3de7ebfc-bdad-4897-a434-ceae7001fdbb"] }, Open ]], Cell[CellGroupData[{ Cell[161722, 3703, 430, 14, 68, "Input",ExpressionUUID->"91fe9fa1-abe8-42c5-9b21-f2890dd900bb"], Cell[162155, 3719, 250, 5, 52, "Output",ExpressionUUID->"642e32eb-9752-411c-b466-ceea74f6bf12"] }, Open ]], Cell[CellGroupData[{ Cell[162442, 3729, 2632, 62, 64, "Input",ExpressionUUID->"167a8284-73aa-4634-9346-160df1538706"], Cell[165077, 3793, 330, 8, 52, "Output",ExpressionUUID->"d3575c9a-597c-4144-b4eb-ce76e95d519a"] }, Open ]], Cell[CellGroupData[{ Cell[165444, 3806, 533, 16, 69, "Input",ExpressionUUID->"c795f305-3165-4d06-be8a-adc80cf676d9"], Cell[165980, 3824, 423, 13, 69, "Output",ExpressionUUID->"8e64452f-74e6-4e8b-9128-3ef52ec88064"] }, Open ]], Cell[CellGroupData[{ Cell[166440, 3842, 651, 21, 69, "Input",ExpressionUUID->"1370374e-5498-4de9-9285-94186d58ecb7"], Cell[167094, 3865, 804, 25, 64, "Output",ExpressionUUID->"082ccab4-a812-4f65-9c1b-ce9d1fa7ea2c"] }, Open ]], Cell[CellGroupData[{ Cell[167935, 3895, 485, 14, 56, "Input",ExpressionUUID->"0de98fa0-6700-4aec-a01e-5e00327d01cc"], Cell[168423, 3911, 198, 3, 52, "Output",ExpressionUUID->"e85d434b-b437-4a0e-8d33-96d404be9f70"] }, Open ]], Cell[CellGroupData[{ Cell[168658, 3919, 461, 14, 56, "Input",ExpressionUUID->"a8e29fa4-8f43-4d5d-bf4f-a49529ad404f"], Cell[169122, 3935, 170, 3, 52, "Output",ExpressionUUID->"86246532-17a9-41b5-88e7-622111f3bdba"] }, Open ]], Cell[169307, 3941, 521, 15, 66, "Input",ExpressionUUID->"e7a38440-8dc3-48e6-9734-9c625e8d96bc"], Cell[CellGroupData[{ Cell[169853, 3960, 668, 20, 68, InheritFromParent,ExpressionUUID->"424480f1-abc3-4e15-bda7-3f209824372d"], Cell[170524, 3982, 200, 3, 52, "Output",ExpressionUUID->"46c23abc-f066-4c94-bc4a-d95dd9025b46"] }, Open ]], Cell[170739, 3988, 520, 15, 66, "Input",ExpressionUUID->"c09e4045-1ff3-4164-834d-7c4d030b4caf"], Cell[CellGroupData[{ Cell[171284, 4007, 639, 19, 68, InheritFromParent,ExpressionUUID->"4c7a8308-27e9-416e-9db4-4a686e067b6e"], Cell[171926, 4028, 193, 4, 52, "Output",ExpressionUUID->"a3d91a74-e430-4f85-9e1a-9adc17d797f4"] }, Open ]], Cell[CellGroupData[{ Cell[172156, 4037, 420, 12, 78, "Input",ExpressionUUID->"91697b2e-3a94-4da3-b51f-62bf655d1995"], Cell[172579, 4051, 246, 6, 52, "Output",ExpressionUUID->"4956e756-8526-46a7-8a81-56e426cee739"] }, Open ]], Cell[CellGroupData[{ Cell[172862, 4062, 443, 13, 78, "Input",ExpressionUUID->"e0adabb5-b536-459e-ba5b-d0c4347b3066"], Cell[173308, 4077, 245, 6, 52, "Output",ExpressionUUID->"3e474d82-d05d-4fe7-b1b9-82861760e44e"] }, Open ]], Cell[CellGroupData[{ Cell[173590, 4088, 1337, 38, 124, "Input",ExpressionUUID->"cc01a640-cd03-41e0-990b-98b475a073aa"], Cell[174930, 4128, 19920, 402, 358, "Output",ExpressionUUID->"916f6eb9-b5be-48e8-b689-effc366c741c"] }, Open ]], Cell[CellGroupData[{ Cell[194887, 4535, 721, 23, 68, "Input",ExpressionUUID->"bfb356a6-fa8e-44c0-8205-bc58c87c83df"], Cell[195611, 4560, 1037, 18, 53, "Message",ExpressionUUID->"57223f18-7cb0-43c7-99e9-0f5a823e90f1"], Cell[196651, 4580, 723, 23, 68, "Output",ExpressionUUID->"67108672-79bd-4b89-9412-eb870e119bd2"] }, Open ]], Cell[CellGroupData[{ Cell[197411, 4608, 695, 22, 68, "Input",ExpressionUUID->"724110dd-f34c-4935-961a-8b6c3480c4ee"], Cell[198109, 4632, 624, 20, 68, "Output",ExpressionUUID->"e939d77f-dd79-4c61-b7e9-eb2efd4195b2"] }, Open ]], Cell[CellGroupData[{ Cell[198770, 4657, 345, 7, 46, "Input",ExpressionUUID->"8d0c26b5-76f0-45d4-919b-f0f82e41ce52"], Cell[199118, 4666, 376, 11, 55, "Output",ExpressionUUID->"f0be009a-398f-4114-9541-a59d8afec38b"] }, Open ]], Cell[CellGroupData[{ Cell[199531, 4682, 235, 5, 48, "Input",ExpressionUUID->"a31dcc02-867d-4b3c-9722-8c456c4184c3"], Cell[199769, 4689, 166, 2, 52, "Output",ExpressionUUID->"80d7c3d9-bfdc-479b-82d0-20b3e32ea9a6"] }, Open ]], Cell[CellGroupData[{ Cell[199972, 4696, 740, 21, 56, "Input",ExpressionUUID->"81ab5d7d-83a1-46e5-ad8d-d9b81ed4534a"], Cell[200715, 4719, 500, 12, 34, "Message",ExpressionUUID->"24be4362-644d-4bbf-831c-41fd33e60811"], Cell[201218, 4733, 856, 21, 79, "Output",ExpressionUUID->"47fb2df6-5c8e-42c6-8bc0-81c5c6c9acde"] }, Open ]], Cell[CellGroupData[{ Cell[202111, 4759, 346, 7, 46, "Input",ExpressionUUID->"e0818475-da88-4992-a1a5-00c91824b1bb"], Cell[202460, 4768, 329, 8, 69, "Output",ExpressionUUID->"57c2ff3b-37ef-4021-9767-16ab753b4b37"] }, Open ]], Cell[CellGroupData[{ Cell[202826, 4781, 1135, 30, 131, "Input",ExpressionUUID->"140fd3b6-8401-4378-98b1-52a3fadd4b63"], Cell[203964, 4813, 641, 15, 55, "Output",ExpressionUUID->"d0c6871c-b910-47c0-b5a7-ef5ef696e0f3"] }, Open ]], Cell[CellGroupData[{ Cell[204642, 4833, 763, 19, 80, "Input",ExpressionUUID->"065953a5-a6cc-47d9-8e38-085da4be01ea"], Cell[205408, 4854, 451, 11, 34, "Message",ExpressionUUID->"4265c614-2610-4a09-9a9a-975ac5b6ee61"], Cell[205862, 4867, 243, 5, 52, "Output",ExpressionUUID->"78e52e97-9050-4336-a512-9509c3e4e228"] }, Open ]], Cell[CellGroupData[{ Cell[206142, 4877, 610, 12, 81, "Input",ExpressionUUID->"8bb022bd-9e1c-42c4-b4aa-3a139ccc7042"], Cell[206755, 4891, 169, 2, 52, "Output",ExpressionUUID->"c89b1f3b-0a30-4c64-8b97-fe0248debaec"] }, Open ]], Cell[206939, 4896, 175, 4, 46, "Input",ExpressionUUID->"db73029a-39af-48d7-8239-47f6d5854062"] } ] *) (* End of internal cache information *)