(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 147608, 3183] NotebookOptionsPosition[ 145634, 3142] NotebookOutlinePosition[ 145992, 3158] CellTagsIndexPosition[ 145949, 3155] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"Cool", " ", "=", " ", RowBox[{"RGBColor", "/@", RowBox[{"(", RowBox[{ FractionBox["1", "256"], RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", " ", "129", ",", " ", "186"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"240", ",", " ", "58", ",", " ", "71"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"252", ",", " ", "186", ",", " ", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"160", ",", " ", "200", ",", " ", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"25", ",", " ", "200", ",", " ", "250"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"250", ",", " ", "100", ",", " ", "25"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"172", ",", " ", "86", ",", " ", "64"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"95", ",", " ", "175", ",", " ", "175"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"80", ",", " ", "81", ",", " ", "79"}], "}"}]}], "}"}]}], ")"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Plot", ",", " ", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", " ", RowBox[{"BaseStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "\[Rule]", " ", "20"}]}], RowBox[{"(*", "16", "*)"}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Cool"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "Large"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ParametricPlot", ",", " ", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", " ", RowBox[{"BaseStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "\[Rule]", " ", "20"}]}], RowBox[{"(*", "16", "*)"}], "}"}]}], ",", " ", "\n", "\t", RowBox[{"PlotStyle", "\[Rule]", "Cool"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], ";"}]}], "Code", CellChangeTimes->{{3.715521264155307*^9, 3.715521286867447*^9}, { 3.715521324051517*^9, 3.7155213276596212`*^9}, {3.715521457003986*^9, 3.715521560453932*^9}, {3.715522573528174*^9, 3.715522577912034*^9}, { 3.715522615456565*^9, 3.715522618176712*^9}, {3.715523272247939*^9, 3.7155233252318563`*^9}, {3.7155235493374643`*^9, 3.7155235535707617`*^9}, {3.7155236854303713`*^9, 3.715523687316111*^9}, { 3.71552869039837*^9, 3.7155286930083323`*^9}, {3.715528774174501*^9, 3.715528788008926*^9}, 3.7622596924102783`*^9, 3.762259789135047*^9, { 3.7622602523555737`*^9, 3.76226025849594*^9}, {3.762526467556712*^9, 3.762526522074561*^9}, {3.762526747793174*^9, 3.762526751657805*^9}, { 3.762526785554926*^9, 3.762526816257716*^9}, {3.762527143084894*^9, 3.762527153667001*^9}, {3.762527222677882*^9, 3.762527246580613*^9}, 3.763143025083436*^9, 3.763143178327815*^9, {3.763305382277462*^9, 3.76330539137772*^9}, {3.7637553117247334`*^9, 3.763755337333687*^9}, { 3.76375643655403*^9, 3.763756437000226*^9}, {3.763756526552834*^9, 3.763756551413397*^9}, 3.7639191284593782`*^9, {3.767372726833506*^9, 3.767372730328619*^9}, {3.7675601767725143`*^9, 3.767560177522937*^9}, { 3.767630480919909*^9, 3.76763049989063*^9}, {3.767630604191217*^9, 3.7676306074318037`*^9}, {3.768749092121332*^9, 3.768749093760869*^9}},ExpressionUUID->"3dc4537a-78a7-4dd8-b33c-\ 46fce2eb1b37"], Cell[CellGroupData[{ Cell["KINEMATICS & CONSTRAINTS", "Section", CellChangeTimes->{{3.768745064687584*^9, 3.7687450705994387`*^9}, { 3.769429733188859*^9, 3.769429737011733*^9}},ExpressionUUID->"3b02634e-db8e-4b4d-a0f4-\ 259874cc52a5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], " ", "=", " ", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "\"\\""], "[", RowBox[{"q", "[", "t", "]"}], "]"}], ",", " ", RowBox[{ SubscriptBox["y", "\"\\""], "[", RowBox[{"q", "[", "t", "]"}], "]"}], ",", " ", "0"}], "}"}], ";"}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{"q", "[", "t", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"-", "R"}], " ", RowBox[{"Cos", "[", RowBox[{"q", "[", "t", "]"}], "]"}]}], ",", " ", "0"}], "}"}], ";"}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"q", "[", "t", "]"}]}], ",", " ", RowBox[{"a", " ", "r", " ", RowBox[{"q", "[", "t", "]"}]}], ",", " ", "0"}], "}"}], ";"}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"q", "[", "t", "]"}]}], ",", " ", RowBox[{"a", " ", "r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "[", "t", "]"}], ")"}], "2"]}], ",", " ", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["e", RowBox[{"\"\\"", ",", "\"\\""}]], " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["#", SqrtBox[ RowBox[{"#", ".", "#"}]]], "&"}], "@", RowBox[{"(", RowBox[{"D", "[", RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], " ", ",", RowBox[{"q", "[", "t", "]"}]}], "]"}], ")"}]}], ")"}]}], ";"}], "\n", RowBox[{ RowBox[{ SubscriptBox["e", RowBox[{"\"\\"", ",", "\"\\""}]], " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["#", SqrtBox[ RowBox[{"#", ".", "#"}]]], "&"}], "@", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Cross]", RowBox[{"D", "[", RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], ",", RowBox[{"q", "[", "t", "]"}]}], "]"}]}], ")"}]}], ")"}]}], ";"}], "\n", RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], " ", "+", " ", RowBox[{"r", " ", SubscriptBox["e", RowBox[{"\"\\"", ",", "\"\\""}]]}]}], " ", "//", " ", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"#", ",", " ", RowBox[{ RowBox[{"R", ">", "0"}], " ", "&&", " ", RowBox[{"r", ">", "0"}]}]}], "]"}], "&"}]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["v", RowBox[{"\"\\"", ",", "\"\\""}]], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], ",", " ", "t"}], "]"}], " ", "//", " ", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"#", ",", " ", RowBox[{ RowBox[{"R", ">", "0"}], " ", "&&", " ", RowBox[{"r", ">", "0"}]}]}], "]"}], "&"}]}]}]}], "Code", CellChangeTimes->{{3.7687445382782784`*^9, 3.768744670486471*^9}, { 3.7687448564491253`*^9, 3.768744903922831*^9}, 3.7687451411064463`*^9, { 3.768745381071557*^9, 3.7687454044738207`*^9}, {3.7687455269187117`*^9, 3.768745639444544*^9}, {3.768745723769495*^9, 3.7687457490604897`*^9}, { 3.768745789745813*^9, 3.768745868236945*^9}, {3.768746528076662*^9, 3.7687465292663403`*^9}, {3.768748503239362*^9, 3.7687485257887163`*^9}, { 3.768749725640164*^9, 3.768749731922942*^9}, {3.768749779623014*^9, 3.768749782115552*^9}, {3.768750131808063*^9, 3.768750185189996*^9}, { 3.768750261787858*^9, 3.7687502973957367`*^9}, {3.769429738732985*^9, 3.769429840126712*^9}, {3.769429910328981*^9, 3.769429910919669*^9}, { 3.7694300629992027`*^9, 3.7694300675912943`*^9}},ExpressionUUID->"2f20fd96-e5be-4157-addd-\ 4c198e94369a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", "a"}], SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]]}], ")"}]}], ",", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{"a", " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}], "+", FractionBox["1", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]]}], ")"}]}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.768750287188205*^9, 3.768750297953019*^9}, { 3.769430017628313*^9, 3.769430070982649*^9}},ExpressionUUID->"ab039e9c-e462-4508-85ea-\ 5bdf82e2a91d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "a", " ", "r", " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.768750287188205*^9, 3.768750297953019*^9}, { 3.769430017628313*^9, 3.769430071247897*^9}},ExpressionUUID->"8a20be76-d33f-4a38-b7c2-\ 2afd97480aa3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckQ]", "[", "t_", "]"}], "=", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", " ", RowBox[{"y", "[", "t", "]"}], ",", " ", RowBox[{"\[Theta]", "[", "t", "]"}], ",", " ", RowBox[{"q", "[", "t", "]"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t_", "]"}], " ", "=", " ", RowBox[{"{", "\n", "\t", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], " ", "-", " ", RowBox[{"(", RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ")"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"y", "[", "t", "]"}], " ", "-", " ", RowBox[{"(", RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ")"}]}], ",", "\n", "\t", "0"}], "\n", "\t", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t", "]"}], " ", "//", " ", "TableForm"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckN]", "[", "t_", "]"}], "=", " ", RowBox[{"{", "\n", "\t", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], " ", "-", " ", RowBox[{"(", RowBox[{ SubscriptBox["v", RowBox[{"\"\\"", ",", "\"\\""}]], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ")"}]}], ",", "\n", "\t", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], " ", "-", " ", RowBox[{"(", RowBox[{ SubscriptBox["v", RowBox[{"\"\\"", ",", "\"\\""}]], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ")"}]}], ",", "\n", "\t", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "-", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SubscriptBox["v", RowBox[{"\"\\"", ",", "\"\\""}]], ".", SubscriptBox["e", RowBox[{"\"\\"", ",", "\"\\""}]]}], "r"], " ", "//", " ", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"#", ",", " ", RowBox[{ RowBox[{"R", ">", "0"}], " ", "&&", " ", RowBox[{"r", ">", "0"}]}]}], "]"}], "&"}]}], ")"}]}]}], "\n", "\t", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckN]", "[", "t", "]"}], " ", "//", " ", "TableForm"}], "\t"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckC]", "[", "t_", "]"}], "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[DoubleStruckN]", "[", "t", "]"}], ",", "t"}], "]"}], " ", "//", " ", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", ",", " ", RowBox[{ RowBox[{"R", ">", "0"}], " ", "&&", " ", RowBox[{"r", ">", "0"}]}]}], "]"}], "&"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckL]", "[", "t_", "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "#"], "[", "t", "]"}], " ", "&"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", RowBox[{"\[DoubleStruckC]", "[", "t", "]"}], "]"}], "]"}]}]}], ";"}]}], "Code", CellChangeTimes->{{3.768745078414497*^9, 3.768745085871745*^9}, { 3.768745188707355*^9, 3.7687453383754168`*^9}, {3.768745416921995*^9, 3.7687454342616253`*^9}, 3.76874548528264*^9, {3.768745545661244*^9, 3.768745548491476*^9}, {3.768745657782254*^9, 3.7687456941205273`*^9}, { 3.768745756958496*^9, 3.7687457581413603`*^9}, {3.768745857903907*^9, 3.7687458904371443`*^9}, {3.768746531724299*^9, 3.7687466033555326`*^9}, { 3.7687467325406113`*^9, 3.768746732754171*^9}, {3.76874677941329*^9, 3.768746820331298*^9}, {3.7687468726228867`*^9, 3.7687468954276876`*^9}, { 3.768747108975074*^9, 3.768747109868134*^9}, {3.7687475631781797`*^9, 3.768747564287307*^9}, {3.768747998940816*^9, 3.768748009201153*^9}, { 3.768748542415275*^9, 3.7687485522279673`*^9}, {3.7694298542750673`*^9, 3.769429880065529*^9}, 3.769430031886908*^9},ExpressionUUID->"9d758b88-8009-4167-982a-\ e2c2d2c93a89"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"-", "r"}], " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", "a"}], SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]]}], ")"}]}], "+", RowBox[{"x", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "r"}], " ", RowBox[{"(", RowBox[{ RowBox[{"a", " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}], "+", FractionBox["1", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]]}], ")"}]}], "+", RowBox[{"y", "[", "t", "]"}]}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.768745314318852*^9, 3.768745318207141*^9}, 3.768745427040312*^9, {3.768745482317868*^9, 3.768745486835133*^9}, { 3.768745540282941*^9, 3.768745550433749*^9}, {3.768745643933505*^9, 3.768745694714028*^9}, {3.768745750550655*^9, 3.768745758860126*^9}, { 3.7687458815650883`*^9, 3.768745895075952*^9}, 3.76874654775387*^9, { 3.7687466001441393`*^9, 3.7687466039771233`*^9}, 3.768746733217204*^9, 3.768746822573258*^9, {3.768746883298559*^9, 3.7687468957857018`*^9}, 3.768747110499549*^9, 3.768747564862764*^9, 3.76874800985935*^9, 3.768748554099887*^9, 3.768749748217073*^9, 3.76874979491903*^9, 3.7687502016365137`*^9, 3.768750299341942*^9, {3.7694300180113277`*^9, 3.769430071283327*^9}},ExpressionUUID->"7b1bcec7-0806-4587-90e2-\ 7222a8080c30"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"-", "r"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a", " ", "r", " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "a"}], RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]}], "+", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]}], ")"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["\[Theta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.768745314318852*^9, 3.768745318207141*^9}, 3.768745427040312*^9, {3.768745482317868*^9, 3.768745486835133*^9}, { 3.768745540282941*^9, 3.768745550433749*^9}, {3.768745643933505*^9, 3.768745694714028*^9}, {3.768745750550655*^9, 3.768745758860126*^9}, { 3.7687458815650883`*^9, 3.768745895075952*^9}, 3.76874654775387*^9, { 3.7687466001441393`*^9, 3.7687466039771233`*^9}, 3.768746733217204*^9, 3.768746822573258*^9, {3.768746883298559*^9, 3.7687468957857018`*^9}, 3.768747110499549*^9, 3.768747564862764*^9, 3.76874800985935*^9, 3.768748554099887*^9, 3.768749748217073*^9, 3.76874979491903*^9, 3.7687502016365137`*^9, 3.768750299341942*^9, {3.7694300180113277`*^9, 3.769430071494627*^9}},ExpressionUUID->"93c03a73-9af6-467b-8e25-\ d429e5dc145c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Z", " ", "=", " ", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "m", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "+", "g"}], ")"}], "2"]}], ")"}]}], " ", "+", " ", RowBox[{ FractionBox["1", "2"], " ", FractionBox[ RowBox[{"m", " ", SuperscriptBox["r", "2"]}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], ")"}], "2"]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"Ze", " ", "=", " ", RowBox[{"Z", " ", "-", " ", RowBox[{ RowBox[{"\[DoubleStruckL]", "[", "t", "]"}], ".", RowBox[{"\[DoubleStruckC]", "[", "t", "]"}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"EOM", " ", "=", " ", RowBox[{"D", "[", RowBox[{"Ze", ",", " ", RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckQ]", "''"}], "[", "t", "]"}], ",", " ", RowBox[{"\[DoubleStruckL]", "[", "t", "]"}]}], "]"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"EOM", " ", "//", " ", "TableForm"}]}], "Code", CellChangeTimes->{{3.768746038465856*^9, 3.7687460475173693`*^9}, { 3.768746323006895*^9, 3.7687464097854223`*^9}, {3.768746452359645*^9, 3.768746519273332*^9}, {3.768746551936008*^9, 3.768746560265642*^9}, { 3.768746607056498*^9, 3.768746707500909*^9}, {3.768746830958021*^9, 3.768746834405463*^9}, {3.7687468657734623`*^9, 3.768746866735084*^9}, 3.7687486555758247`*^9, 3.7694298949487467`*^9},ExpressionUUID->"f3fbc677-5011-401a-a5c6-\ edd11580b8d8"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[Lambda]", "1"], "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[Lambda]", "2"], "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"g", "+", RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[Lambda]", "3"], "[", "t", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "m", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SuperscriptBox["\[Theta]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "r"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SubscriptBox["\[Lambda]", "1"], "[", "t", "]"}]}], "-", RowBox[{"2", " ", "a", " ", "r", " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SubscriptBox["\[Lambda]", "2"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "a"}], RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]], "-", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]}], ")"}], " ", RowBox[{ SubscriptBox["\[Lambda]", "3"], "[", "t", "]"}]}]}]}, { RowBox[{ FractionBox[ RowBox[{"24", " ", SuperscriptBox["a", "3"], " ", "r", " ", RowBox[{"q", "[", "t", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"5", "/", "2"}]]], "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", FractionBox[ RowBox[{"24", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"5", "/", "2"}]]], "+", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "a", " ", "r", " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["a", "2"], " ", RowBox[{"q", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"4", " ", "a"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}], ")"}], "2"]]}], "-", FractionBox["1", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]]}], ")"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "a"}], RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]], "-", SqrtBox[ RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"q", "[", "t", "]"}], "2"]}]}]]}], ")"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["\[Theta]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.768746399189486*^9, {3.768746630644136*^9, 3.76874663575289*^9}, { 3.768746684062418*^9, 3.768746734594429*^9}, 3.768746834752591*^9, 3.768746866971096*^9, 3.7687471145680532`*^9, 3.7687475676784277`*^9, 3.768748560816019*^9, 3.768748656171793*^9, 3.768749748243527*^9, 3.768749794939941*^9, 3.768750202051241*^9, 3.768750302946554*^9, { 3.76943002176256*^9, 3.7694300722375317`*^9}},ExpressionUUID->"5b943ecd-8854-4509-9fbe-\ 4cd2190fe04b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SIMULATION", "Section", CellChangeTimes->{{3.768749738729746*^9, 3.768749740713079*^9}},ExpressionUUID->"adadc95a-b783-4fba-bfa1-\ 54b9e1e51e6b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"IC", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"q", "[", "0", "]"}], "\[Rule]", " ", RowBox[{"3", FractionBox["\[Pi]", "2"]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"q", "'"}], "[", "0", "]"}], "\[Rule]", " ", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ICeh", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"IC", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]", "[", "0", "]"}], "\[Rule]", "0"}], "}"}], ",", " ", RowBox[{"First", " ", "@", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "\[Equal]", "0"}], ")"}], "&"}], " ", "/@", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t", "]"}], " ", "/.", " ", RowBox[{"t", "\[Rule]", "0"}]}], ")"}]}], " ", "/.", " ", "IC"}], "]"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ICe", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"ICeh", ",", " ", RowBox[{"First", " ", "@", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "\[Equal]", "0"}], ")"}], "&"}], " ", "/@", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckN]", "[", "t", "]"}], " ", "/.", " ", RowBox[{"t", "\[Rule]", "0"}]}], ")"}]}], " ", "/.", " ", "ICeh"}], "]"}]}]}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{"PAR", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Rule]", "10."}], ",", " ", RowBox[{"r", "\[Rule]", "1"}], ",", " ", RowBox[{"g", "\[Rule]", " ", "9.8"}], ",", " ", RowBox[{"R", "\[Rule]", "10"}], ",", " ", RowBox[{"a", "\[Rule]", " ", "0.25"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"ts", " ", "=", " ", "5"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"SOL", " ", "=", " ", RowBox[{"Flatten", " ", "@", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "\[Equal]", "0"}], ")"}], "&"}], " ", "/@", " ", RowBox[{"(", RowBox[{"EOM", "/.", "PAR"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"ICe", "/.", "PAR"}], ")"}], " ", "/.", " ", RowBox[{"Rule", "\[Rule]", "Equal"}]}]}], "]"}], ",", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"\[DoubleStruckQ]", "[", "t", "]"}], ",", " ", RowBox[{"\[DoubleStruckL]", "[", "t", "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", " ", "ts"}], "}"}]}], "]"}]}]}], ";"}], "\n"}], "\n", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], "\[LeftDoubleBracket]", RowBox[{"1", ";;", "2"}], "\[RightDoubleBracket]"}], "/.", "PAR"}], "/.", "SOL"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "SOL"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "ts"}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "750"}], ",", " ", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*StyleBox[\"C\",FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\*StyleBox[\"D\",FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", " ", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "\[Rule]", " ", "20"}]}], RowBox[{"(*", "16", "*)"}], "}"}]}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["p", RowBox[{"\"\\"", ",", "\"\\""}]], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/.", "PAR"}], "/.", "SOL"}], ",", " ", RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", "SOL"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "ts"}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "750"}], ",", " ", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\<\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(x\), \(C\)]\) (m)\>\"", ",", "\"\\""}], "}"}]}], ",", " ", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "\[Rule]", " ", "20"}]}], RowBox[{"(*", "16", "*)"}], "}"}]}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"q", "[", "t", "]"}], "/.", "SOL"}], ",", " ", RowBox[{ RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "SOL"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "ts"}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "750"}], ",", " ", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\<\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\[Theta] (rad)\>\""}], "}"}]}], ",", " ", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"FontSize", " ", "\[Rule]", " ", "20"}]}], RowBox[{"(*", "16", "*)"}], "}"}]}]}], "]"}]}], "Code", CellChangeTimes->{{3.7687469250309887`*^9, 3.7687470670832977`*^9}, { 3.768747150843861*^9, 3.7687475423345118`*^9}, {3.76874757555007*^9, 3.768747639927197*^9}, {3.768747725987548*^9, 3.768747751975642*^9}, { 3.768748043597261*^9, 3.7687480657853603`*^9}, {3.768748624952305*^9, 3.768748625501068*^9}, {3.768748686512177*^9, 3.768748686636572*^9}, { 3.768748831276198*^9, 3.768748846491721*^9}, {3.76874907941038*^9, 3.768749187896916*^9}, {3.7687492469716988`*^9, 3.768749259053871*^9}, { 3.768749344349413*^9, 3.768749578018744*^9}, {3.768749609950954*^9, 3.768749668548334*^9}, {3.76874978960813*^9, 3.768749789816441*^9}, { 3.768749969913073*^9, 3.768749990768505*^9}, 3.768750072943701*^9, { 3.768750217297422*^9, 3.76875024266296*^9}, {3.769429947304576*^9, 3.76942997791082*^9}},ExpressionUUID->"48ae5c23-a06c-4a22-921b-\ ebb369ef6226"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"q", "[", "0", "]"}], "\[Rule]", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"\[Theta]", "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Rule]", RowBox[{ FractionBox["3", "2"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{"r", "-", FractionBox[ RowBox[{"2", " ", "a", " ", "r"}], SqrtBox[ RowBox[{"1", "+", RowBox[{"9", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}]]]}], ")"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", "a", " ", SuperscriptBox["\[Pi]", "2"], " ", "r"}], "+", FractionBox[ RowBox[{"4", " ", "r"}], SqrtBox[ RowBox[{"1", "+", RowBox[{"9", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}]]]}], ")"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "\[Rule]", RowBox[{"r", "-", FractionBox[ RowBox[{"2", " ", "a", " ", "r"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"9", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "\[Rule]", RowBox[{"3", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "r"}], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", "r"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"9", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], ")"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Theta]", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "a"}], RowBox[{"1", "+", RowBox[{"9", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}]]}], "+", SqrtBox[ RowBox[{"1", "+", RowBox[{"9", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}]]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.768749251579438*^9, 3.768749259626295*^9}, { 3.768749345165037*^9, 3.7687493511919603`*^9}, {3.768749389974461*^9, 3.768749460171976*^9}, 3.768749579716856*^9, {3.768749610467504*^9, 3.768749668788149*^9}, 3.768749711220215*^9, 3.768749752542899*^9, { 3.768749790366544*^9, 3.768749794960458*^9}, {3.768749970826703*^9, 3.7687499913144836`*^9}, 3.7687500736680527`*^9, {3.768750202090612*^9, 3.768750242769392*^9}, {3.769430021974352*^9, 3.769430072350864*^9}},ExpressionUUID->"22fc6ea4-6c58-4daa-825a-\ 333fd04b5045"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], LineBox[CompressedData[" 1:eJwV13k8VN8bB3DL2BKZGcxU9qVUlC1r9RxJSlpItHwR30hEKJRfStEmS8oe KhElfUOWVO6NMITsjJ3s+zp2ftdf9/V+nXOe85xz/vlcadtrpnYcbGxsEuxs bOvfWmm1u7eZFBQryLLtURdFhiHJHwVaKGiHeEtZuJYoat81AnGtFNSTq5On v08UXem5E5rTQUHOR0LEwvVF0T8eLYNNvRQU/L5qSMBUFDkEDn2rnKSgbb1b wy1cRNGlIG7VJ7xUlLIWfckoURRRLk+aGalQUfuYlW0KFw01PXY/kXyDipjz oi3WKTQksOtAhnEMFW28uVPpMImOEvGjIZ8Jx5ald+tw0dF0vesK5SUVwcTE ZkVuOhq2sQyqJazZ4SNA4qWjfVYZPvpxRD2x7bwB/HQUY+D5X/srKnrqm3l4 jExHxxIoBRyJVKSg7VVEE6MjcuxilxZh79Xw5FjC90XrwpwJ31Ct3iAhTkfV T/wyawjPSoaYiUrQUYFCR/3TJCp6p1M70ypJzHeeyvr6joqEMjbYF8jQkUio KB+TsJXa87ObZOlIf0vaOIuwyR3+8rOEjYSOeO1OpqIL9PK9XYSXWn+5BhIe NDUXZsjRUcMJZyFSChUtxVguj8rTEQsCDAQIm6f3vyRtoyPOlzMVwoTFBeUl aIS9BT6930I4RkTET57wkbqcJgnC+XI5ZXsIhzdSLkgTtqvfMLuXsEYmpixD mEYV4tAizPch/9z6+NRS8eT6eEnUpob19cfwPb/W1+8bTE9ar2/oZ3Rrvf7u +ETG+v60mzTy+v62IR686/0+bSsdWO/Xw/nxtUriPL35b7UcCSOOWq4R4r60 J+33lErRkcVyQKEE8T4Pi2yX9xDvI4EFdcR7U9Go7fCm3mwaOmzasF9Fh4qG Om9E8W6loTmpoC2J7RQ076lizK8nipzrFTOyXCgoQfJwi+g+EdRFcTvv2kBG XEG5+EA3FXGoK/AWK5DRNT3y142XKaiqKO3rL0shdKTt+9KnH0JI6unkuO9/ gsikQvFE3VUBdN4/fcLecSNSsLs9Ea7LhzqMTTnQTT70boNqT7IBCclP3WP4 OPGhH+ftYy1VSOhFNM0y3YoP+TJPWAiIk9Coc/P3hUN8yGtauOf8DCda8rdv FyDzIfe7Bws+JXCilcgYd81kXiQmT5rbt8qBukNblbf95kEPw1jPhdLZUf8e IZ8no1yoaozN/qTAKoREb0kqbedC0vi853jPClhqydcv/+FCqmIKlo++r0Cw VsaMbgYXklrRYsY7rUCHg132Fk8utCK7MOBcugwy//JeN1giIevn3zIj/ZZA xvohR9QiJ+LRnmL6TM2Db+JTK94hTsT6n6WIWuk8yJ48ZOnA5ETOjRvXul7N Q5e8wTdWDidqrIzdrnR8HhoyqQpHb3CiHvuDvd7Jc7A/LudW4iAHsh6oaue6 wAJZ9kBfSjE7KnNVvPC//GlIrN4q94w4l17ISAMpdBrEHFXlZ2LZ0ZV+Z8+A f6fBRmKXlMt1djTDfbE4gHcamGzeFdKS7Mizp+/yJdMpYI/7mqznxoZcfnat JfZOgP15vOHt0gqU238vq6WNgKnTOc/OshXgy74j+OP7MCzMVPZXRa+A2AvZ tTSbYcj+t6OFobECi7kWzPepQ3DwTl3hzNVlsO5TMpVEg3DVj+YmU7oIdauR ygynPuhUDpOR15gDvxr1NeWGTlC3fSmhusKC35IDRvN+naDkYsb3p5AF6sdN 6odUOkE7OjTl80kWRD/8LydDrAPeG/2UbLKZBcMi/VSlF61Q2sdhneE8DS3j X3O8Ihth9u5+h3TFaRD3Wt2dsNgAX2J8hjcPT4GCrGPLTasGkGHYpW61n4IU pfjuowr1UPX7RFag2SRYRwf+vlJUAwHCWzsipMbA8kQTZZ9lOTQXXj1f9ngU Npv3+moe/A3XN7DUL4+PQEVAQur0jjLou1vSiucMw4DyfLw6BwMuFkkEq6kP QhfPZFYvsxB+7CxhTAYPQLO/rMZgUwGY9by92tPfD4tvHcsHWn6C5J8wHZOw Pnj4j5vegTYMNsR7LJQ3/AWSUdkDx+hcKKA05n2W+QvxszenPnVng+GhBdbH q90Q9JtkelkzC5Zl3zRNLHbCjE2bnR5XBiROke/sg07gcbgy6H73M6Sdc/xi wtkBpLufk1wEP4GdQ1Iri70VHJLXpFz9UuCSm+r5v/9rhi+J74RVhpPgWaFi mclUE/SJbktKcn8Lx3TB7YJdI/BT+H1mtryBEgu5SPH6evAzrDzlXxYH8cof kr/q1cH1ZS4pq6RoMFD5dfRMag2EVjMiPjDCgS6xw2kLpRoCtpq9CtR4Djsl enxcRirhm5QRv0x3EOj+KzV4yPE3uPn5qWbdfgQ7vOWOdnSXwEiErNuVunvw st3SoNb8F5wR9rbob74FymdkzuLFOOjo1YTKR7qBU+eZl3H2eWCySVWRj2EH Bu7PhCx1MkHPS3HEbasFBJyvdzYXTgGzgozQYImDMMFu1Dpr+QLkIilfTrrR IG9z0sTDrvuY4QeRB82GrAMzMaGyvyTeYiXR/64YMzWgdl9dVDT+GRvsyI/T CzCBZIPtcdZjOdiVckPp6F4baODydDxEw7A/i3tuye91gbvT7lWTYoXYL430 1Kk6T3jk4xt6/UMxpswRWz8k4AubPPfU+quVYc0xWYwNNx7AuadhboE5FdhU RpTV76insHIyvX4lpgpz0rhGZuqGwiZtfvvtFjWY6+o122mucIjhKKzgFqrD 9kxyCUkrRMOa8Owfu6J6zHBb4KtPr+LgbzBDRNirEbMYyV/uV38DW9gplLzK ZuxLC7TJe7wDZotLqvONVmwcC3t8+fh7aE0LbOkXaccOtj/Kkz76EWRSP+yY SOrE8qKKjKJN02FMWZJX2rULU9w9v2bBngnM8Ven6FrdWNrun9ZL+V9gzuIH ZvrzLyZrbW136FIuxN3VUoi434Ol8oipvjHKg+iGvbte6/ViTqWb4kz2fwfD 852Ool/7sJApTas0GRx4yAqcssGD2JbRKv5gh1/wfndm8o4DQ5iJrqz77QdF UF4SnbB9ZAjzPcunEvKuGHK7Rc/tOjiChehPfTKbYYAILaXasHEMy4qrYJ34 WgHyS3lDy17j2OrG1HHdqUqIlk1c8eKfwO71MtTmRasgm7RcykyewOhzPW5h 5tWwONRPqmmYxIb+qD8q+FsLVtUNtgrkGcyHZGI5t5MJ4njAxA6zGYzsu+25 bB0TYvakuoZEzGC/3VQvjvs0Q8XFrKfPN89iF8bHgo7WtsDxgN+MMjoLa9cI o5j5t0POuyoHs9U5LPZRQOadlS5QddvvvdljCZNlvvc1DOmHPulxD6P3S9ge 790HlQb7wSYrX1+2bQlbdXiWLqs/AApbtb5U6y9jgfS/2QfmBkBI8GOegcAK FuIZ+Zd6cQhMinYWPwtdxTrJsvEP1EZhp1kpMslkwzd2aynddpkEK9UX1Hsl bPhq3GrR16hJGFJD85EtbPiOjJPFswWT8FdmaMNtTnZc7pjXOQfaFFzMyI+W M2XHTzUq31HDpyBT7Hm+0jA73nJUk+sgeQba67wL4gU4cWt+nneXPrPgeHZM gos4F/42tDP4ZtsS/HXZfkh3NxceORqg0MW3DKlWm3TmDnDhG23MC5HGMiwn LSTuv8iFUx7nZvUEL8NC8Y0RngRifubOtB+wAqdIEgEfZbjx2B22r5NerYK/ 6YewGToPPqXWxT+dyobu17UrebTz4pplFijvNCfq/JZ04WceP67lwq7pwMOL Wi42rJiICOK9ajYTPEc2ot4PLWKfxYXwnc4ZJyN1hVC9Ce8Lu1khnHTWuOPO AhlN3WDwOuWS8ftsiKrymorCKnMvlZtR8B2uMyeC2ERQ7LF6n+VSCl4y/4TD RUgU0R1c97fvouKHxP3pKfOiaHkqpkTRmYrXTX80VougIQ1ThN6EU3HjkANG DfM05PHvRnWJCCpufnabKu8iDc36GHhHE9ZsYnJpLNGQ2MunqwGRVFzxeYnr gxUaqhOQHzwXTcXvye07Pc1OR+MNwpbJsVSc58Bdff4NdHRGgmLNnkD4zLO4 XTQ6Khdq+3OE8O+4K5PNhO9kNoUHE8Zz1JQf0ulIk/uttMhbKj7jGuhStZmO Tm2Q1xFMpOL2EeWjakT+Nq574P05iYrHOHlNaRB58WxD8/2sZCpO9m5fUiTy JBbg9rCYcMw12VJzwgG7QmgNhJ0DTvH6EA664NQ9QfjVpout+YTVG4e3iKRQ 8Zcn9FrW86qhNNtTIs/iuuczNdfz7MOa1MdE3sUt3Hi51/PuidxxKpGHcSVb dHg9D+uYlSsSeRmv47swr0nYg6lXuz7+5vhZsXWLa5/ikSIcpa2VoUr4dNNe Op2wUfhrNUnCUXf5Z8mEuy/vkBQinNLsab2BcAUefnuF6M83mLeNRfRbuH9r UAXhRnKbdz7hXu9Rkj7hnHv+B3jXz8MedcqP+F/QG6mXfvaaqKdAjXpDpaNr AUaaD+9Q8Y8/4o5exmlo3qc/Ms6AigepCu9+oEFDHdKM/sezFDxVsGp1l5co oiZslNS5T8GNtyrkbLsignDTs2f2LZLxKu0PtXxqwij7fJ/7aQMy3pn/Mssn kYI+6e61orsI4Vsn4o9t6xBCCwy+65qrgrj2e7PHT0mCSOXb0P7R8I24DATE ij/hQxy3j/3p7OXD7+9NeZswS0JpbgPcKnnc+Bueb4UH5NjQvRc2rqsfuHEF k8bQ/wTZkHh2BEf+S27cbIvNPY2pNTglV3iQ6sONRy8nfCl+uQa1LkqBVODG DXL9nVzGVkGFacJ7BufC+11slftDV0Da4rIILYeE2+in1Q9UL0Jwi4/LbBIJ 9znNmo9PWgR3Q4kTBWEkPCFAodH41iLMBV3atN2dhA+JelKfSS3CsMtpX7oi CVfqzSnJdlmAal4pm5uxnHhZ7kuRKL55COiO4pl25sCD5sqszHVmoUIg8M3r Cxy4t+WsnIbQLHRmTU5pH+XANaN0/Ml9MwCeyqzdchz4g7wyn2+hM5AzwNcn xmTHLwgMPu4YmAa5Pqu0pgPseFuU5DG/iCm4aXxXdu/EGmZjoUZx7xyHEp9s meiiNSyrMrol9uk45J/22PYrZg2rqdkewtAYB9bmzR5XD61h5F49N7mgMXit XD03GbaKXd3NwVrUHgVH/9sR0jtXMLb5TefCwoYgYWPazVcSi9iqioZ7p0kv /Bhw+KXZu4Dxabvyhc70wK7q91k2qQvYVs2jT6wie+CTPJ5iq7GAuU/Uh5u3 /YXiX49j2w/PY86xxe1Djt0QNfyTK+8kC8sZQPXlRP41Nv/ed1GQhX0Lu2Qf ebkdAv2bct3LZ7HHd5vCuzLa4MjxRwtlh2exIM/NfILHWuFmWGPstNoMFsb5 OufJfSY8LnMu4h6dxB6xyX+3E6kD03v/LOa/nsSOmf+P0eNUC5W3ykrenZ7E xp6n//QqrIFn/+3bPp09gY3pJmlRPKthM+fgnYXeMawiyPNZSn0FJAi7/XMR xrC3e7pVTCPLoej9I2pLxCg2WEkH9X9+g9+0zY5eGMHMbmyPOzXBgCdcto7o 1iDWfLZDBBn+grPtYvK6BQNYaKxO0vT2QthDlx9b4x3AdkcrOd8XKIAMftdz pSF9mODH+XaPKgzaDBwf4n96sbAXt8a7v/0ABj4vclmgFzNkMmq1M7+BfkTy t/R7f7FUffPL0owc0CeT40/ldmMKMq5v2fqzQGWlpzpspAvjzIy/Yi/8BUQL G3WET3RildXc/0uK+wzKGV9K/mO1YzfaGo7MzaaBTc0p80TjNqzV/ezVN7Uf 4HbJdY0t8S1Y+bMaK2Z9MrQZqlfsHGZirA5fcbXVRPg/coyP1w== "]]}, Annotation[#, "Charting`Private`Tag$5055#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], LineBox[CompressedData[" 1:eJwV13k4Fd8fB/DrIiL32rmRCiUkuyL6HBEV/SpJ2ixtyJbK15JCiYhK1kik RWnTaonOVJaI7IWy5Aoh5l77/ht/zfN6zjKfmTPPnPdZecTb5jidRqMp8NBo C1eUnvmgcC8DcRs7UoaLZZBuLVu6zJ6BLq5a+/3KFxlUWK7r8+0gA63mzctb WimDnpm4NdQ7M5BN9LUjevUyaNslkeP5ngxU325kDr9lUKajuz4ZRs33T17m 9YwMqtlfcFv0JQNJrrhSIqYti8LUk+2MaEwk+CD0aOZ1WSTdvGmp5iUmWl55 Sr9Sg4WiH7/p96hkov7JunLtCBbSi/yyWbOKiU5IE3+WX2GhE22KNYOU/6fT lCoUyULSN3SuHa9moh+2R743RrHQ1ry9qdp1TCRzpvGS2TUWCt1cLmn+g4kS 4lzzzsVT499pmu1pZyJa26HdjndYqJg0Sy2kLHDkfGYHZblNPWuVOpiobNGP aId0FvJ8oTjbQ9lszUqNXRks5ELfvmdXJxOFhkekCmWy0LZNaezULiaqEapS /3WfhXQ/Cv9qorzOx4Gh8oCFgE4yJP4w0c+c7kgvyoaHNysHU+5j1lgNUx4a YzAMuqn73y6cqn/IQtxNz7sUepgo0G01LzeLhYwN7tVoUdYviREQfMRCfi5q gUA5ZnG70FLK7xssfm+nvP4AS2QNZa+CKf49lA2kjRk6lDcWWPbuozxbasHY QNm/d92V/ZT95AxFjCgH5eX8WWhPHxIXXmgX7a2kLYz3sm0QWBgf5X6xeWH+ 2KTzvAvzQ0i198L91xkz51iU22B140K9gzcGhzhUvW+K7S++o55HsL2w1Iey ubhflDCbidRuZweT1PsSatqysq+WiWby9rL7Y1jo4NdO+4prTGRaYWLfv5GF tOTbssPFmGhDrLiSy31ZdPj9K4siRwb6ubuKXVQjg4S3lvEWhoug7R9OZpXV SyNzqVsa+k5LUIiqdAf3shSqk4v5dVhMGOnePn/lg4wk2v9UMD3x6mIkekp7 u1OwONoeOPo3MkkAyXc4nGi5LorGJ3neN/vwI6nHvQIn14ggF+/Ed8Kv6EjS jEtKRAiiOm1aPTykoyFDHbfdZwVR20vWNfcUOppLs6ZddRZENBsL/PgiHVX8 TMrmbhREW/mWKBI2dGRrrFQbTwqgNKcrdjs4PKhGUzZffb8AGhAONXyswoMM zHP3sVUWoQhH1ZTNg3Og5hfrW1vEi5KFmaoV9XPgLKcn8OYJL2pU0/XblD8H JrSQZwm3eNF3f6GxgUtzYCqf52Hny4sy4ltHHGTnwHCrjGb1Wl5U+K6D76LJ LDB4POSzU+koel1WsJj/NAgJf9Y8HcCD9tef/UE7OA1yKn/1bF14UPdw2JNm k2kwsjLduX4vD4KE1zsteaeh5etdcR5tHvQn85A6M2YKphOSRR700lDkZ0M7 /duTcLenMd7UnoZW3/1oPZA1DvUhKLn39ByohtW3il0eh0ns7mRpPQeCTYlf ZY6Mg2YyWpyzag4em8UNfJYbh6Pvt5lmNM3CaIODT1LMGDQd9g/gh1nYkSQt NH1yFNSlVdO1GTOgG5B4WlR4GLJrDuZ35U0CaNTa17K5oJjz+Ztx/CR4lKX+ O1nIhWvuyseeek+CpvV1moonF3rKhY82rJ4EccvUFwWVHHgkcSPXPnECHAY3 bhUJI0F2+Wn70sBxeKoWvmd7Zj8kpbvKv3IYBYP0cF/8v3743D/2NAqNQtTt ELO2qT5QWHmZ57riKPCuUnoobdMHUmHv/in0jIDRpx1DR2Z64aqXAcf/9AgM t3Grh6Ab3KMjRKTihiHVGNQ+dP8BlYNKr9b5D0Ob3q9cjZg/wBzPWxFxeBgM fFH6YFMXPL/ptWFqzTC8v6U71e/OhmDvsbOSn7lQMbS+5GpwB6hrWa+L5+dC TOzwGrMVHXDH5qy94xAHno5HiWqGtkPYrtlzl5s54PZxg4omrQ16XJSt+p9z wOFZLGd0pAUcBYtGDzpw4KKmOBe0WsCaXnLBxIoD/7P7NPvlZDPMrhc8Fb2B A7arfMfSWn/A8D2RlCBJDhw43tcYUdAA+SYWVwZrSXjg6m0/O1QPoP8p4NIn ElahNV6flevBLFu2KuU1Ce/POa/ZGV0L4nXhIQeTqP5CAcHyuAa+S/XtFYoi wcf75uO4zmq4MBl7xuI85fhxsRdZlTBgftna5zgJIVFFmWGCX2GcSew9foAE 7f1ffpq5lsNGTrkJZycJgj/Ojk2UlkFPY3OUjAUJJ4+P9eQol4KqW05OizEJ o5F3nAJCi2FZ+EkREz0S+M6/LXdq/QR4KepGa0loUrpr+t+Gj1CcLH+sV5mE YwqbNOJWYUjTsryhr0DC59zmyHU334NbEisrR4by750bbWdz4VGuUR5XjARf hQhnbZc30JKk8Wl2CQn8xorRI9U5sMGv4HK9IAlDu0UUUr2z4dWh+lBffhJq 2m7fbTG5Bx/HlckuOtVeZmwnLZ0M5gGCnxR5SID/zahZOFwC97cb72jSSNiU 3zB17Pdp3ByzoV2Y8v1HlUU3l8dh86qdN3Mp99vd7237lIEVQ2/66VDzfZSt kxYczcKBYm70ID4SrDVl2R2rXmAhx38H4gRIULjh53lJ7TXmrpJx8hMmoZno KV3y8R1+13sqe7UoCVbDqwMO2xVg67++19OlSDBRn+qw7CvCnjvdV3XIkSD/ 7gZ35wcCiy55ZNmtSALbKj46LfwTTstVSX2hRsKBI2yPiR3FeGjYI85Ql4QL iYY6OyRLcZyDi18otR7mZw6djWwuw4pPAk+EUeuVn3+0/IzTV8wj1r3xxSES hi1fMOmKVfiTUHVZjSsJnss0DTd0fsM1K0xfZ/iS0JUY/01Xsxb7rNuhvCmW +r5kvgUqi9Th/BarKr4MEqIuDmru7qvD7PAyJY8XJNCWqzdaZTbg/khylFFD wvmg9CNi5xvxueujYWa/SdixRFiNvu87rvDsGBAaJqHHx6rVXrAJK+sF5ZvL cqBt4EtCgtNPrG1x85mAGwfKU5fyeur9wuufMTf/d4EDO4YePXAQaMWXglK/ Ho7ngI3EF3pMdhue/RPWcfUjB74jFWW+4Q780G46XXIlF6pd4rm79v/G21HR 5JQhF+pOLM1Sxb9xVchdY/M9XOhdxB8VHNmJMzO3vRwN58KLX83hJbJdWH+P gU4clwsRVTqOyxR7sMzSJFZH0zCEe+zcnRrcg5cnolDnMeq/GPgyMudXDy79 fa9NUXIEAobLd95L6MWCryvdHXeNQPu/qY2F9D6ce7QsOunrCPTcndfeVTGA vxktl2v/OgqvG/4m/1jMwcbZZ63XDoxDc8rlzc91OPiRQvU6e+YEHHYu4jl4 kIPLlz2QztSZgKddwWPrn3IwazJRIyZgAqymSoUErbn4UY5b5TPBSVizokzb NGwYSwXmN11TnwKvlO8XxppG8bKPS9PlQmZAPfqi97OpUZwgJZ3jfG8GXP6+ 17KUH8M2VdEXX5fOwJfsbb+UHMewRtNiowCRWZA4sfVzOHsMs7+c/hWWOguJ NXWlsj3jWEvPhulE7Ysq//T0r7RM4sLFvwmj8zTUsM14xDRwFguprxfO+ExH HX9909SSZ7HESLn0sR90FBhnqTT9dhZPSBRVqfTT0Rc5vS22HKrdtZJ8Js6L ujUE9/admMM3xvjnXznzojLun23Ejnn8at/M3RvzvEgs6NVhz8s0QqV6UeQa I360w7whfIUynYif9JZoyBJAMuVucm2VfMQYS8yWu2gJCmydM1PhFyBGL7jQ f/GJoiYrh+wR0cVExDe3zD90cUQT9Qy9+lyISLp/2uHIcwnEdbazMlm9hFhL 2lyP3CKFktUFn12zFSFeWX3+oJgijTLyWv49Xs8gzhVuZybclUEeXu08L0cZ RFWk20meS7JoXvTP+ntnmUR9a/XmFfIsJLOvepPdZyZxRVXZRSyIhULiS45t K2YSz88whDaeZ6GsSyaWhiVMgqco4a3TBSpPdjzbzCxjEgIvdVZnhLCQd81/ svEVTMK92dhjKIyFvpgOufDUMgmaz3hwdTQLnYtgvHb/ySTa3STPJtxiIWXj 7qIxykjcSBylsJBYs1bUhV9MIu7Yjdxuyofk41zCWpnE67RnMmtus1CV1n8b 3NqZRFJt/dpzVP7epHzDMqmTSTQV1Nw/QuVF1/n89MvdTMJM1+uBAZUnf17x L3pIWV9xua0j5cGZ5UIllJ0F5GPCKBe4gtYk5awzw2nFlI+8NMqh8irRkT1q JEfl1USdD1uoPEvQ9To3LuTZpGVbhWwohxiJl2lTNu9snrWj3Gl7+dd6yrmu Z1dQeZm4iTYGLeRliyWyp+0pr2XrPjSkzP+qmGtL2dDc+4A+5el5/dAtlH2X v3BWpPyiavyaIeWH7m/eSFCWnCr8qkZZVmoulmfBQRZ1fAv97zv311H1DlUM iCdR9d8di2BZU665f/2w3h8moeby4VgydV5YZP0/obQmqr4y51qlRBYS9pv9 7ZzIJExGDLzUt7AQM+9VVr4Kk/jYeM9jGZZFrsTqGfVoBvFYem3GFn5Z1Koj lxf1VIRolbKle81Lo+LdasUOD5YQgQpR1w7VS6FE5Q+svVuFib1iplFsG0m0 Iqqd0Zq9mMhT+6bpnS6OCiyTK1w6BQjZrwdt6U2iSHKlZn9tCj9RWFo+c8JH BHF2PXeJleElnrPEgaG2GCVs+Nobo0kjQkoKnLQxH4rfMe5UvZJGBB7YMPPy CR9a91zLepEkjSh21P2glcyHnvwziH1EzuMGB+HBNT586GzXpua2kHksKTAd y6/Eh/Re9mlppM3hW6P/1M+H8yKLcANmRPEMvsOWutBiTUd/fKrDtB7O4K6u Ns4mQzr6UaKo/TFiBmt+X/Hm3io6ci3PuJ+0fQa7ofcBXnM8iO3fryhVPY33 vZU6LZzDgzJ0a3J16qfwvWHDU34SPOjybfaB7tIJnF3ScD81dx6iHtWEeWdN YLwSEd5x82CVwku0RUzgb1qqW7Z7z8P0RGON19YJrCml6ymhMg8Kpzykdn8Z xwJLFeNnEucgWMju+dSnMTxCc7dy8p+Fd/7D/+VkjmAmV4ljZzYNmg+L2Y+D R3BxZvW4/4ppmMksrLx0aAQ7ZpRczZ6dApXKZ6ZNUiN43Feh1SRvCrq6y3/P hg/jtQ5HJbTWTcEi59spwke5+KL+2IuMZZPwn0zt9Zs0EiedMrFZyhiH2M7O SNXHQ/iRvYbv/r4xGBAWT6zcNYRDivviidIxiBHLS+2/M4g/3ia+CIWMQUXo iT3+Bv+wBvOk09ORUTjqRSastOnDQ5fsB1dT+bdfXNXk7fBfHKjhbexROgJF tNS9P+P/4pqrrk0DD0agNUO07mdjL47ZWU97eHwE9nXuXnbLpgfjXO4d5d5h 4Ms+GeNi0IU76HPn2qa48MEzurSyho1dttyLfdDGhcBje6rzT7KxSvyduJJP XEgRfBqmmtaJMxLpb1nR1DmAlRq5d6YDv5cYCNunxIWiygnRoZsd+Mx70Ydq QlzwDdynzlDtwF65iYruHA4EFjj6F2S1YdMOi3yg9uuYm0/YkZY/8TtdumH0 CQ7c33fXZ6VnC56xs4tR2M2Bu3Vnp8tjm3FYiLXWemMOHBr7+WRv0w98Ff6u WUzlY619qT4mU9+xmoxrRDmNAw95R4NA7jtenx5rrjBIQgHD/Vb6gQbcfao8 MK6CBHWDeEv+gHp8//zhA+/zSdgc/jMkPrEO+zlfcQ5/TEJMkVWhWXUNnuk5 3SN5lYTldmPSbQ3V2HytEbs9iMrDz0Hi7eJvWLasfPKQNwm1x8/bLTWpxOkB 7MbrR6i8NxTaIe9dgVVlWsSD7Ej4PyoesoI= "]]}, Annotation[#, "Charting`Private`Tag$5055#2"]& ]}}, { DisplayFunction -> Identity, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Times New Roman", FontSize -> 20}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"y (m)\"", TraditionalForm], None}, { FormBox["\"x (m)\"", TraditionalForm], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> Automatic, GridLinesStyle -> Directive[ GrayLevel[0.4, 0.5], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImageSize -> 750, LabelStyle -> {FontFamily -> "Times New Roman", FontSize -> 20}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {{-4.9141928672516375`, 4.91419292612118}, {0., 6.414285603634328}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"\\!\\(\\*StyleBox[\\\"C\\\",FontSlant->\\\"Italic\\\"]\\)\"", "\"\\!\\(\\*StyleBox[\\\"D\\\",FontSlant->\\\"Italic\\\"]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.21] -> Baseline)], #}, { GraphicsBox[{{ Directive[ PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.21] -> 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 -> "Times New Roman", FontSize -> 20, FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"FaceForm", "[", RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ Rational[5, 64], Rational[129, 256], Rational[93, 128]], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.052083333333333336`, 0.3359375, 0.484375], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[5/64, 129/256, 93/128]"], 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[ Rational[5, 64], Rational[129, 256], Rational[93, 128]]; 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[ Rational[5, 64], Rational[129, 256], Rational[93, 128]], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"FaceForm", "[", RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ Rational[15, 16], Rational[29, 128], Rational[71, 256]], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.625, 0.15104166666666666`, 0.18489583333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[15/16, 29/128, 71/256]"], 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[ Rational[15, 16], Rational[29, 128], Rational[71, 256]]; 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[ Rational[15, 16], Rational[29, 128], Rational[71, 256]], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 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.768749251579438*^9, 3.768749259626295*^9}, { 3.768749345165037*^9, 3.7687493511919603`*^9}, {3.768749389974461*^9, 3.768749460171976*^9}, 3.768749579716856*^9, {3.768749610467504*^9, 3.768749668788149*^9}, 3.768749711220215*^9, 3.768749752542899*^9, { 3.768749790366544*^9, 3.768749794960458*^9}, {3.768749970826703*^9, 3.7687499913144836`*^9}, 3.7687500736680527`*^9, {3.768750202090612*^9, 3.768750242769392*^9}, {3.769430021974352*^9, 3.769430072557732*^9}},ExpressionUUID->"3c8e482e-bc7b-43db-9ef5-\ a1a6ec504374"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], LineBox[CompressedData[" 1:eJwV13c4VW8cAHDX5l7ce0+KklFCSJSVxvsVSaUUibIilYiiUKhEiiKUrDIy UlSkNCT3WNlSZI9sibL3+L2/f3g+z3nOOe973u+6UrYXjE6zs7GxueA///+P vW7LrWLntYtLiXbbu4kJRbWSBqaSx5HWg6tvBVqYsPw1z09S8hwalf2gF9vK hFgyWIJL8ipSrt8e9aGDCed3ujlNSwSisFPeI429TKidtw8fkYhGpz4bF1SP MoGnpUt2WOIF6tpP0QzkJaCR/OI2NPACMctnXPv5CEh7FlX4500aOpBxbY0u lYBDroesB3VeouEzh9/PCBAQwZcT0X82A/lscl9jSBDAfFLKPtqQhVp2NHZn riXgaXm8yx+JT+i+IHFivwoBE1HZ8h1Bn5Bh5Ceu0C0E6J2t6P4x+wldWxnf VbuVgCGOaZOc2hz0N81e5Zg6AZo7D2kF3slFV6xiFPZsJ6AmY4Fd9h8L/Q7V rK/UJeBGueJ+FetC5LT9Bbf/MQKev/kgk/6oEAmcFjofZkrAj6jdHBsqC1Ea pY76xIwA6bNmuSLbitCC6fr59BMElHPcUmIjitHc+fSE91YErNzZwvz29SuK vUrb6XGGgNcZgS3nlcqR+8mKI6mXCRhkDgbttylHXBl7Lzu5ESDrvn+XXHg5 yrx/ibHFnYCEHdSn3bPl6NiOS7nvPQh4UBZ05kRxBbL6F9D0ypMA9+6Q0b0W Vah/e/8RYx8CsvRGEjeEVKF/2+NUKDcJ+Pfi8FGOgiq0a73F/VfY9hcZH/Jk q5FWWBqL4kfAicUH3mrj1WgpU5Aryp+AeGqFH2NPDbptJa/pfZeAXTu9LHys alCydvkM4x4Brc4Kav88alCZxHXNZ9giP+71VabVoL3xpWrlQQSERRnsC6B/ Rz/85+XZQgjw21AtuNzyHZ0SOCci/ZCAdabX+50mv6N5FcfGp9hkgBLZKvgD 5Qzoi4qHE7Dw575LjvYP5KM7u5b5iAC3LMM6t9QfqHG4SW0ggoCz6Hv0kGst Ul0/89YghgC2xKmclnu1yOn8YmgmdhSnWGt5ci16qya+zHxMQGnZGfEX9bUo TH7pfi223NGFxNNadejswrYbOrH4/e+lio4a16E2Nsn+x9hmont7dc7Xod1l b36NYQe0h8mui6tDD++sCXwSR8CAvezLdspP9PJJRWZ7PAE+FQZVVat/oqSc n6kKCfh7KLn+zd36E91Y4FPxwNYfz1V+fPonMv8tP8f3lIAX14yyTct+oviY WnvxRAJ2//Ko1+v6ific3o9ZYzfvjp1Wm/+JRH5vFkrA5ucd2LZiUz1q7lnF JpZEgMODa3k1ofWIJ4ajkD2ZAPbJxA7Wi3oUbtjbpYkdY1rKllFQj+b8Pz5y wi4XI3SCJ+rRWxfzdz+wbW9o2nkLNCC1B7skOVIImOu09HeUaUCnqVoSW7AV Up+X7DNrQKc44urvYRfxVQ9oujSg0cRVIe+xLc6P88ndbUB2AxXNHdhBKrsM uHMbUFojh6LSM5wP4aecJusakFN6hIoxdu5UwP2e4Qa0aO5b7o499Lm2pkCi ESmp3nj/CfuW+OzoG81GVCYcy9eELXZTnHh6pBGJWG4amcI20DtncsOvEaV9 ++yhlEpAz/P77s5PGpFvUpGIPrY39V2kZTZ+nrzJwZPYr2qWmrb3NyKXCAmX IGy9rdI4EJvQzn82JxOw2x/tE1st2oQEO3Z0Z2G7zzjv5NvShPr/vp0txBY0 D7ea2d+EbtqVJ9ViP/vy6Ub/qSb0BPw6O7F3SXYk1Hs3oUPqnVl/set9OQuK HzWha5/6Vs1hO/du7H73ugk5Lz+icz4n4JdVE29+WRMak325RwDbuDFAqaqn CTnkCFWvwP56RPNo03ITMrYreLEaW7Oi/2rv6mYUYVvcKI6drhsZP6rWjCxi Rc2lsMXz9IoXDzcjj0yW8jrsUI2pQb7zzai4/cPx/69zvEmhr7zTjBY42ev/ v99d3kR9XWIz6g+KTfn/+QNJnBZKX5rR/quBpf+/33ztu5tajc2IzbNo1//r q444lao33owONhnw/r9+oBNVRoIt6NM1yQ2zeH9vAwvGrDa2oJ1/dzwawpbh cBVx1G1Bt4/Fm7VjR3lL7fKwbkF+4boXqrH5p2pO+Xm2oFXyG5tysa9d8AkM edSCPgjvi3iBPTKwOeNxZgtS7op/Fo5ta9tRl1rRgkJy5fivY9e13J9729eC eO62k6ex95rskiQprUhz/HP5AWxF/VjHRo1W5CFc38DEjss3COsxakVCnVwt 4zh+GNsX3o84tSLpuzoqtdhTm8zZ+ZJbUdDT8vog7HOp/HLCrFa0R49T5ix2 q2TOQanmVuS+VrEUYecTotHb6G3oSug6riEc76rBpXl7FNqQwqH2eBb2M+4r PUf02pCHp21w2P/5MFu/2cG7Dc1wxJxUxj7WEf41ZqANubne6zuO86/UTHfo GUc7emhgtFISe/uPccZb8XbE9c0vqgfnt2SxkWXF0XaEgkce2mMPptEn5sl2 pH7+5GkLXA8spElR3tZ2xJH+V0YY+1vsBbRiuh3p73fRqsT15V1o9V3FTR0o XYZhqoZ9wz1IyjK6AwnL1tuN43rFL3VLtkPzF/pcylYgjutb6Y6wzdf3/EI3 MiNVC58QcNssTmOt0S+0ojZs8xls9tCPe80df6HUntN5qbh+zi0NnW2I/YXa fT12iuJ6+6fV5Pk39k60cDY6IxvX57QZ20xnoU50zl08fje2/YqLHwXEOhGl KFe4GtfzngN3Sw+odSJ7iYHIX7jet+bkDZSc7UQ58tbD4w8IqIyS3UhWdiLu tomvtfcJuPtOVcW6qRNpH78rtg9bv0Z721JvJ/p3PHE6NxjXJx6LfTuWO9Fy 0u+dCbj/5LqHnvuo0oXMtd/wmOD+9ero7IvMiC70+yCXuwfub/fpFfJPT3aj zBz71jjcPz9prM0+5NyNjFfGLtZdxeuzuoAWvLrR6hx3Sz7s7a+Io6aR3eiX j2njedx/B/ZZXBOo7kauq09ni+P+reM3/O3q9h50w6uvY5MTATOTQm5GK3tR l7XKlRlLAtavtV1eXt+L/kge4ZmywPOO7rvAVyq9KE5eunrUnICUB2ZxvAd7 kca5PkrPcQKMNj8tyfPrRUWSNXNZJnj99ltWK4z2Ir1rRjNzBjg/Wo6yOCr7 0I5jA5oqWvg8H3c6uTT1of6NVZR5Tdz/TziLdfT1oYc1ZvyFGrgeNN+5mkPp RyODGk0H1QhIbszZ6qLRjxaOkqcPKRPQ91PyeXtiP3KNyZ+c24D7S81Q6Ker A8jMj5q9LITnr9CrSPbOALJlfGoIFSQgx5D7b3j4AGq6nrVZEs9r1G8SBy5m DKD2HtHr2/gJeFllxCXbO4CgJ+LuMU4C/pZ/vBp++DfazHAQ0pphgkvxLdsL soMo6VAFkdzOBPEePe6prYPId/tE/qo2JlSw86V5wyDqvChZH4jn0Q0QPBp4 fBC1+K3dfK6RCU05j3yS7w2icf3v0St+MEE781lc079BZHsunyJezATG49Jm nY9/UKhPxI2ZF0x4c5FmLLJvGGnHxb7IdmZCZQxx9dWxYcSz1tbm0Xkm9BWt jt9tN4y4pDRELjkwYbXoxj/nbwyjmLk4H7kzTLiVv8cvP3sYJT1Yo+BlyYRj zBtvHdb9RWtvBh5nHWDC3NtR4sv8X3S9MO5WngwTnno5DiqbjiBT4xLDi/UM UCb5Zu5YjqDpMJM707UMIDmfc3WcGkGrXtxu8P7OgF/BPZLBF0fQjtM8rJuV DBBPsDT9HTiCRs0qIy4XMCCmyLDoae4ICpBcVbb4igEPBFTjmOtG0RvyI1e0 HwN84xeOTAyNInXNY/PFcgw4rPzRRWF8FH3Wq9zdugE/L/9SmO3sKEqaTvMb WceAnK7BmhquMbTFkOsvcy0DxjY0Gb4SH0O/FaIOIAYDbF9mHzxzeAx56qQc V5ulg/Yn532Nb8dQn+e/uZASOrDV/oJcz3FUzns9rciSDjKXz1w5Kj+Jkh0T K3wyBGGTVodxvPIkkuR5+1EmVRBU2cw2D6pPouuWP4RL4gRhd9C+vhs6k6j9 iTN9OlgQrJIVj6ZbTCKRzcxI4rwgRNSNbWYPmURiBcnG22UFgUvtRn/G+CSS aku0k40WgJ7JyGPUL1No4dnn4jMONEjU3nqprXAK6eteVs20poF1cHVIRvkU mue78Hz0KA2apbnKjBun0MNjHT4WiAbfjV23PxmfQhSasvB3ggZ5bwwkN8lP oxrn1Hilz1SIdKIMHoqcRr07Tq25zkGF/b0O1x64zCCtSbVqdIUP9K6tf6l7 ZQZ5se8Iv+bIB7uFW5unrs8gx5ZUuTdWfKC156CmedAM4nRdGTCrywfyKZvH 16fOoDbX6ecCDD6gnp6wz26dQRdcyrdrpPJCZc+1o417Z9HONaunN1TwQKm3 ut/dQ7No4LCEDuULDxSt+Pdmh8ksmnfOd6p5zQO5uieFntrOonvmQyv2P+CB l8m7y89dm0W3tKyjn5vxQLAdD8xnzSIf2kcVSjc3HOoJVRAXn0NXQjx3BA5z QaVCT52F9BxK1DOwK2vnggOXNK4/lp9DhT/Whi984wJ99vYaEY05pBOg8XZ7 FhfsllRwJw7PoYOOy5dWu3OBmkUxyes7hyoKPyjtmecEsbpZk/HeOSRZwpUT OccBMWsOLqsMzSH3+4XCvIMcIHoq4fnFsTm0JKu6wr6JA1aO6c0PL82hq6uT XKY+cACdHp4wsGoeCcfotelf5gAOA6U/bfvm0datborJv9lhsNDWp/TVPDq2 v3oT8ysFJMIaHe6/m0f7l6ZqQt5Q4KjVIZOjn+eRsnnK9/EnFMib2Sb/q3Qe mcqUVzhdosCDTYy66e55dLHS1kNKggLbI1mysqsXkOT7qYPaLmwQ5CD2zf/2 AvrlIc1Mml9E+RoPPh0IXkC18fcyO8oX0RQnbzIjfAFxdpdL1kQvopPx41di ny6g+7o2zFL1RaRaV74uO3cBcSttnBw/v4Dadl517xlbQOQsI1KqbA4pMerX 6lgvokfCRYrS6tOoL7jP99HpRcQ7/ltGZXEKxfJP9/c7LqJLsp+EqnEc0zhF soKuLKJd23nTMwyn0ODUcb36sEXkWPlHtMFmEqW0tjmfK1pELQVxem+cxpHF 8b+1n/E6x2yND2YqjqMV9Uuagt8XkRg/pVrkzxjy/SbB8bZtEeFBIWD1mTF0 ssAmcmFqEfk8P3Tn3tFRJPa8lxWycQldjy0/HC75F9VJT0l3bV5C/GX7iksC htG9p9x3VdWX0LWBzii7f0NoLkb2aNPuJfRoyG1L3oc/qDH43MA6iyUkvXO8 WFn1N3p4aZj+/v4S4mBtGS2r70b8aNKmdXwJ1ci/unlyCKeQthzv+7kltLu2 rV7doQL16Zi/DqEso7DxVeu/d5WgAv38ud1Cy8j0UD8j6yuJPI2CH76QX0aL 1cEZvpYP0Z/TG4rdbZaRQP3toQdby1kn7M0cD9svI6vARLeYD1WsUod7DPkL y2g3nVLJ+biGlXxh1LLNexl1Z5e8EKDXsSyufpnSiVpG1/bGZpLVzazKIBM5 xrdl5FCyUGqS383SCgmoHvy5jOymguWifXtYz8M+Xy5qXUY9Hi/XJWn3sm5F SOV7DC4jo4yKw6Kf+ljiNVOK/9jZYM0TyZIN93+z6psKik3E2eBQVq3p/oa/ LAHz1qgCKTa4KV91btnjH0u3ddJx8wY2APusbVepI6ysdjkmnyIbSGfsW25O HWHd775vlbuNDfoO+W6qrR9l7R0+Mb3OhA32BS1f3siYYMWt8Ku9YcYGw/4q bApHJ1gT29MzWs3ZwPRT67XQiAlWwt35sxG2bEC3kAp/KDrJmpN90sh3kQ0K AzVKK0SmWC9t2z6N3GUDe4q8mcnSNIveaO2dR7LBBeRnuNptnnVm+Y7ZmiI2 2M5ese/Ai3lWrkym6pUSNqjRVF8p3TbPOufGNqxSzQbF9Gm/HzoLrALmU8uU Fjaoomv46wkssi4f7NoVNMUGW/ZvvBMWtsRqLLCjnFCkQOIxqegjb9nIEe3m 1dc2U+BS8TXHmyVsJE++oWrCFgrcCsgzjGphI9VZWmf7NCmwzeOhjTcHhQz/ TK9y3UOBtjMVf6WNKKThu9yoe1YU6KiMoCv9oZBfU1YofwmlgOWHVULxAhxk dkCRleQkBfhv2vQ5r+Uin++vELkzQwFGQ9qd7UpcZAztx4/heQo8GjC8Nr2L i/QJ7dD7zM4OIzPZ/TtPcpEGUXNKx+jscDBUSYk3kYvsSlVevqfADm1NA2Uv 13GTgiVP4qdt2OFNSm/NhAgPeYbL7Vd1NTvojE+ecmvnJVdLlDXMf2cHvYv5 hvODvGS15tpvcj/Zwa7iyCOPaV5S/XzxF98WdqgQfW1lTOcjuWuFH6sPsEPW QTutaG0+MiXhvUkchQMm5ac07BP5yJ7tM+VOqhxw0PjKkJUlP3nK1SubFsMB 9fXpAfk5VHLzWYVqAxtOyHnXs95IWJD8xlSkum3jAhetr4qZa+nkLien3493 cMFi/85kMyk6+brkdUkB4oIbWmxpS9J08r63yi26Hhf4e0me0VGkkwZ96ovp RlwA07dLM7ToZPkn7X9djlwgeKr5vLApnSw+aVp7OA73EcnIW2vv08nPr30f K3JwQ5KTe8LpSTrJbWCyOpKbG7y4W/q/zNDJI79loyn83GDOeTOdWKCT/eur Iurp3JAj8/blB3YGSUSveuAjzg0Hr5vldAoxSEe/lwF127jhqlujKGsjg1xj Vu/mfZEbLNc07E01Z5BeFPnDlW3c4Kn0k3D8yCD7dKmNMp3c8KXgz3Pxzwzy cMCQ9c0ebnh2NnNFzRcGKS2UcUH9DzeoqWddUixkkJViqiEJM9xQu/LU2Yoq Bimuuav6MsEDajGrfiV2McgCZyODtft44Mrl5awv/EySv9VT3/kdD0ysf+FU eZRJqnu8EAj5wAMiDXvV6o8xSRtm44+MHB6I/XJYt92MSX7UV7McJXlg792n Wr8tmOSZ7H8ul6t4oI26NmLQjknm37d77NnHAzx9590eX2aSV7QP/b0twgu/ KFTxTw+YZHKr99vUNbzAy/uaFRTOJL95pF8pFecFlbWPP1hFMEmZ17wc/Bt4 Qb+O7+ViNJOsXV24KliFF0SkRN7KPmWSShMa2g/38+L8EYtUzGCSvc+kwuO9 eUGuZOzWQhmTHLrVOcvhwwteOrwf8yqY5JjtU2t7P16wMXfhulHFJNkkpBRU 7vKCeJ/o6GwNk1wdKVlQEMkLEylJIk0NTPLwHYmR3ixeWPvYQWBnL5PMPbvW QPE3L/T7aT6MW2KShXva3oQO8UJLuOIfaTaCLF8fu2ryHy/sShF3fEEhyIYO se4vU7wgejuw5yUnQY6ZinkacvLBQKJqaSw/Qcrpr3nuKsGH68fXZ7IrCTJc TpTzkwkfmLzK3N2uQJAWVjKp3WZ47lq9SX/FJoKUDt+6X9CCD0J11HP1lQjy 3fLB0FO2fLDhyczIS2WCrKv3FRO8wAftpx3CbdUIkvAfUj0VwAfOazbO++4i yAedrNMCn/ng5aq1k9GGBHliVRWvZh4fXA57sCfuMEGuO9icbpvPB1/yZWhP jxBk1seJ0Q8lfBDnf2vhqTFB/gjZeN22jg/Kvo5dCDMlSMauhxEfhvlgNNDw m4w1QYbGnCmxkeSH6TrlCkUngvRw973kvZ4fUpVj1yxgWxnFSUTK8MPPPXbT Zc4Eqchf71GpyA9mailHbC4SZNnVPXIa2/gBrTZ+dP0SQbIflw6kGfGDktEp r0tXCfK3KqjJmvCDZkjvQwVPgqyhW3Rqm/HD1lk5rS7s+NKH2zys+OFQvJ/y AW+C3KHJMdjpgN8nYVlKvUGQbqu69n/w4wf3n2cK9t7C33d8cer7bX5IXpAq GcDW/SaaNBTID7VXPpgH+BMk886RealQfshZ91e18DZBvp4i04Oe8IO4dXua bCBBDvyMp9lm84Nrt1NeejBBfnvz+aP3R35wis2rVrtPkO+DG+wiP+P7KR8v 5mHf2iP0pTKfHyyEBB0qQghSKvu6k0Y19lVRtbowfB7hltW0fn64XoZ2P31E kGJv+dc4DvJDCw+XungEQXZ8/3C2bJgflgw1vKOx7YSYlNsT/DBZdoHtXiRB Ot/9unWZQoWV88ODx6MJUvnFJR9LLiqkK4FbGfZ4iWTVZ14qSLnWGWnEEOQV Lq8zV4SosHOrPq/gY4L09dkcPSpGhSnjVKvUJ/h7xLf2GkpSAYLq/PliCZIn L3DL6/VUuBzDTnHADprvrnCQp0Jc1vfxDXEEGeEetdStQYVjuepVgfEEafZo z4Hd26mwd+/3iHbsNe/GIhN2UcGVg5GtkkCQCaMGKpZ7qODQVvnvB/aL8xS7 eiMqsC1onKQkEuT5e68zVY9R4a/MQo0+tlKa+eKD41Q4wT4acR87qz87wvAk FQxKXq0TTiLIXFuHslInKoRkrdgumEyQ12+uWinrgvfTwWWqj62dUGTrf5kK R7Ufl/pgf20TX9D2ooKyUu/LIewas1qlzwFUCD2KvDJTcL54+HiJBlGB/0T8 njZsk4hNpR4hVED8S6d5nxFkc+0dG9UIKnySaX9+HPvJmOrrB9FUcO5zqbiB bc3omht5QoXyXjndZOyeQzvCXyVRgZIiqTmA/czp9y9qKhU+Prz4lieVIM8F RWxySKPCJJ3dfwO2YrqOZ+krKkxkt7zUxv5bNvJV5g0V1rVwKFhgZw7EEv7v qFB212f5MvYlngMnuz9QYbezqXwQ9oxuymx8HhVY6+T8srG9P8f7FeVTISng 4+2v2GxbYgR+F1FhtvnbqnrsW8/DIwVKqSCs6qLeg80jESK1pYIKWs7xXSPY dx8Fph+rpsJFYUuxBWxB2i01r+9UMD7+spvrOf5evtdZ8XVU8OIJ0RTEXjl7 ZV9RA95/JvcaYeyYC5dqB5qp8Pzlinursdf2OVkKtFMhWygnQBw7wcK+X6WT CodSpwkpbOlaW5djPVQQmKxSXIf9fJ/lvGc/FdYo7qz9/7oiaeofP0iFRzv3 8EhiZ6obCRUNU8H2e2+pGPbWVwbRAyNUsAdxERHs9+v3rheYoIJb9PAEA1sr RvuVyjSOz2dG1vzYefQdGsfmqHBy5IApBXv3HfV8z0UqBH9paJ3C+/26qHwg no0GN7km/g1i77us8LOQgwYrL8eFtmFXDm6wHuCmwXPHurxq7MM2kr9p/DTQ 5XnomYdd17D6kooADb6JNRS+xDY7JLxoQqeBuVZsTDR2a5HQHU/8O73xaefS LWzr7fyM+JU0sDmSMOKM3fWG83GhKA2+Un5eMMU+I7csPSBGg+vrvbx3YTsL T2iqrKdBJxvvLl7ssXt/C0xkaJAv0TM2iOPNjf23gedGGrzyE1OrxPb+13ay cDMNtk8E2tzFZjvTONi/BV9XzzpwFvtW64/LNHUaxEmtLdyNfa+sJMBkBw04 ReKOT+J8EIQCpieigRw95Url//nyPvdJ3G4abLhVI52IHZP0JrNfnwYK4Zek 92E/v/a48aoJDbZqjLL8cb4pTjyyjTOjAfBt2HsEO9MhdKjAnAZlFlvN12B/ MPVno9nS4MGG7I3pOL+/qlyQi3OmweePK6w/4fzf//xcVoELDcbneg9cxa4S t9vRf5kG1uFqxRrYddTjh5W9aBBtJGaZ+ZQgu3t3Xym4QwOhnSGSobje7I6v TpS/RwP3IXn2Xf/XI7MTVQ/u02AT85XSIK5XVhUu6049wucps8p+J3ZzZkIl RxINTDv0T3zD9W+bg+K04zMavCFaQi9gR63/KFX3AseDxSuGIPaxiG/uyZn4 PAUqRvfgevrDa0lyTx7e/7pluae4/qqo3T3wKp8GA2tEMrZih/4VdhcupoGa 9KvrRbheH7LZVNFbQYOk6KHZX1F4vtCzcLvdRIMVx0WsuHC9L2DklJVM4POP kSuaf4D7ScWeic0zNLiafv6nK7bPre/iUfP4/C/YKw3g/rJreuCSPbsA2AzT PlSFEmRO6ypxProArLRXlLiF+1NWqpvrfgUBGLtYphiH+1viTpU1VTYC8FVj n+rt6/h9h/j95u0EoIZvPO/HNRyP1t2DG+0FoMnap3gt9nrfRzm3nQVgoixz T4YXQSZ/nT0OXgLg+FJfkLxCkCmGBVFvwwXgWRJbXJQrjgcb45UxJQLQ6Xrn ofRpgix1VbxeWi4A+rziBmCH+6sfV99UlQC889/vdeIUnpeefcg2rhMAodmU HXdtcL8YXGMi0CkA6taEXoMlQaZd6nnoMycApjvS98oeI8hX/m6Ms5sEISxr 18PYPQQ5tMPS119ZEN4HPVEO1v0//nTHk7YKAvvjUwe9dPD9tit+/tomCAlb DTiNtfH60NuoE3qC0GusYzOyA+9ndkTikLUgvI7zT+7aiuPb6bySWpggUESS k5IkcXxIH403DheEttC+T7YSBCnaup3uGikINZe+75UUx/Gxnzr2OlYQdiqH lEWsIchHsmnZcmmCoL5zjaULnv9CO/t3iBUKglMzebuVSpB3TE4d4JgUhPzE i50Bk0wy0bDV4vSMILzzGhiaGsfz6D4T55J5QfBPK5U4NYbn2517w+6xC0Hs j3Vzav+YpIWMQgNBF4L8xXy34gEmuWV6zFZaQQjGjubI32thku1Rvp57bISA Xp/u9ZrFJNVan764UyUEEYGlK7V8mSRdyX4mo0YItGIv2hzxwfP0DaW9jbVC 8PCIy+SZ63h+X/+5R65ZCPoyYqeDPJnkCsc6ifI+IZh0OGda5Mok57w5DnCz 0aHNj1/0ly2TbKKq5+uL0kHm668NpdpMMmrj41dVB+ggJSN7YMccg5wY10vx O0gH42rDExnTDNIwb+zJNkM6XGqS3yk5ySC5jfcHpRjRgePje8/5fwzSzXvW 4dpxOhhdX50X2csgjb6Zym06S4eZ5RVpZ2oYJM1tRVKQLx3KQu1mTZMZ5A0y OOrAJzpk6J8/Y7yHQQ62keGzOXTgJkYqd+9mkMfmx0NTc+kQti6hYzNikIrq JwI5SDo0zClwcWxjkI3pMp6fv9KBc1RxS7Aig9wSyTJXqKODZ3KQiDKBf585 jYpT/9HhzOuS/tR2OnlwjUlKuTQDjIzUDEWc6aS2c4k5I5AB9+ziDDWWBMm5 xt96RXcZ8KarK9phUpB8p0Pb4hHEgOpT98IihwRJGdEjvG0hDHBz03dvbxYk aUXN755HMMCzxDRU4oMg2Sj6VwCSGZAvyF/g4CxIXixeQTqzGGD6dHEdpVGA jBezla6cZACbvzsx/IhGam1VULKdZsDhJR37FUE0sm7fhMbMDAOi5GFU1ZdG 8nrcPiC9gK9rnrtj40wjL35Pc/VmZ4Krt+cqez0aCbfHSUUhJswT+Vs3TFLJ rn+3LIPlmLA0rXNC+SCVlC5MjThkzoTHZ8Oe/OrlI6sVZ5JbLZjg+E48x7SZ j7wSof/WwYoJ7623OH6t5iMrzv3+dtuGCTGxqjZ3P/CRrnQFPtZZJiiGZwSk B/CRLMvXXpsvM4HkPty0byMfeWLm3Ul6MBNyvxj8fXGKlwzdVCD/I48JG7ON y5RzuMnnmuZ8viQTfBrCtyylcZMsnYl+lQImfHgcVvTlMTf597hMSlgxEy4o GHAS17jJA7fvShypZEKdULUBgbhJ7g6jFTVNTDjRKVBylOQivUK7F6smmLDN jK1m5QdO8sFj79ZrU0z4pV4jN5nCSaY9E/68aYYJmQ4beQvCOcnG3L1XgueZ YOTbUSrjykmq/04fM2AnQLb8maaIIic5on25v0KIACVJrlVXnnCQZ8Y5v5fJ E3Bhhv5xzImdtErTrbZQJODakZdHEszZyWM2tyr+bSLgm9GnxG372Em9bxxf hVUIKNqmm6IkzU7KpLN/ttEgwMwm/aFYE4XstWVLmdUhwLRp2LRxF4W0+zF/ ZaMlAVrb4h1UR5ZZFoHb3XOtCLjI+cs+qniZdRS8LhmeJCDFK8WxMGaZpft6 zsntFAEuFgc/Ouous6TvztrmnyMgale/+mj4Eqtbe9rguDsBwgkvKyXlF1m2 b8YkA0MI2DlbFR0nPsc672u8sD+MgFt13YPqvbMsN+N3DbSH+LrJg86T6bOs gEm3+6ER2Llkh436LOv1ttn5yFgCPDpyB9v0Zliz+cv1z9IJuHxm8fYnwykW +8OTWfavCLC5W+98UnCKRbPLD5bPIKBGf2Sva+UkS5zbT/d1FgHvY+YiyvUm Wbr7ubOyPxHgOZpgNr51ghX6gxZcVEJAQLlTMffwKCsmycn+dhkBj+TecrAS RllJl6t19CsIMBdOb35mPMp6vzJ0rqKaAIv87wfH34+wWk8Q9rU/CbiruV9y rvcvS7ZbVKerG5u/pVL76m+W8jtP8eReAuqy9BN3FAywtPxbZk/34+8rE3eb wjfAMpCNzfw9iM/7rZl8RUgfy9VRUnx0lAC+qBLOdze7Wd47bs5mjRNQ5vSF 2/hjF8tfoKvu8iQBI+oZJyKHOllRGUn3ZmYI8L9xhWvVoV+sRB/OszlzBISU 7EnInmpnpR85vdt7gQCHp/RLaQZtrHfrvq7dtURA6QPZKMm4FlbeuMzs8jL+ Xu/9Lqv8aWL9B+mKDpc= "]]}, Annotation[#, "Charting`Private`Tag$5118#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], LineBox[CompressedData[" 1:eJwV2Xc4VW8cAHCufdfBbScjomwV0fB+KUJCQsooVEpRaaMUUkJRQgmFjIaS VEbusfeWPbO1rOzxe3//8Hye4zjv+b7f8d7nStifMz1B4eDgUMY//v8dedOe V+W4u6aZ4q+PWeZMyK8TNzwkfhgpVolJFVkyYakw21tc/DRq3G5/s9KKCZFk oBiP+HVEj/DorrNjwtldl52nxPwQX+PwhXRnJtTNnQoZEXuKrEXbtUZ8mMDX +kPmt1gSMiuySBRMYUIT+e3yr8Ek9KpLlPyayoTX8eF5P1Neo3ifdZU2n5lg 5Gp0dHj3WxTbmVkZlcmEUIGM0AHH9ygza9uF+QImCD8vpow2fkQWiUpvpVuY 8LI0+sJPsXSUnBR0bDsHARPhabKdAeloRdp2hVQKAbqOZT21M+nI9nDT9Y08 BPzimjLPqMtA71/LPOGnEqC+y2i7390sVLbDvieKRUD1+3mKzF82YvYjCylp AjxL5Q1Ujuah+HipDaF6BCSmfJF+8yQPrbJNGYs2IKA2XJtrQ3keGjxjYxJv SICUo2XWKo18JLdd51uiCQGlXD6KHKwCxCOtfMbHkoAVu1qFqwoLUdjbhith jgQkv/drPatYinocc8SVvAkYFh4OMLArRXIJd2598CFA5oqB5saQUiTzR/aX oi8BL3bSXvbMlKLOb5sG1/sR8Kgk4OSRgjJ0/vRPt4EHBFzpeTi617oC3Q+v 2dvzlICPuiMxGx5WoItPFH1VIwj4m2RixpVbgQR+htf7PCfg1HmhL9kylSgt eiBmTTQBRxYeeaiOV6LNz+NpknEERNPKvIV0qtGOo8VaCe8I0Nzlbn3Lthrp xtpElSYT0OYip/r3ajVaJpDE/PmegFW1/v3lr6uRuY+/nORHAoLDDfXvCdYg Fad5q/OfCfDeUMlcaq1BByac8m5mE7D+0M0B5381KP9k5KWLbALIe4pkG7MW bTmXuvMEScD8zwcXMrRq0eMCDWHIJeDyR+P6ywm1KIL3SmNtAQGOqObpL9c6 tCpX8O/ZcgI4YiYzWv3r0Fa7VbpKFQSEc4u0lcbVoQtXTtb9wS4uOSma1FCH xpJsgk9UEbDRbD7mxPZ6dL7NOEqlFj//s0S+2cF6ZMwp86Yd23L13r7dZ+vR hwDdv751BNzrCJZZH1WPdlxoWFdTT8DgKZm3HZzfES3EbuWeRgJulRlWVKz5 jqrKErqbsVcpuv7J2vId9Tiv6j3bRIDeeJZyxInvSPZtV/D9ZgKSbpimHSr5 jqiqBY/jWgnQ7rraoPvjO1JQWbteqo2AFu3IKdW57ygiw2boBTaVf1BjmUID 2ruJQ/JROwFOj25kVwc1oDufuXUOdhJA+RfTyU5qQIPZ9Mgs7GeHijne5zag Jy2xipJdOB9FWLsDJxqQ21Dh4gC2vaf6cQ9GI1KLuLxLt5uA2W6bO2ekG5FV 13TaS2y5hMQifctGxOf+zczkBwH5ApWD6hcaUbbHOvdYbOuz4wIb7zciwv1h 6zh2gIqmIW9WI+pP7TYI6MH1EOLg/K++EfHzth+ux86avPeg93cjumYrHru6 F9djZl11rlgTKkXveyOwfURnRlPUmxA7RKi9CVvktijr5YEmxJs4RLD6CDDU PW3u6d2EJhMkN3hi9yY+uOLyvAnFJoTzpWB70D6F2aQ1oVGfJKku7HfVi807 BpqQQyCbqdaP+8EWqTlZjmb0oqmu1Rq744m+yJrVzWh2V0zPLewr0y67BDY3 oy4hFekYbKZViO20QTMqVvKNJbHjv6V7Djjg+6firdqwNcU7XzR4NCNDCDf6 h93gxZ1b8AT/vbOtB22AAJe+TT2fkpuRqOtCryh2l20zf05JM9qu2letjH2w 6Z5iRW8zOrj5qBvCLjygbta81Ixun3HpNsBWLxu43remBUmtW857EPvNnrDo UdUWNDBoNngIWzRbt2DBpAWJ9ijeO4wdtG1yWOBsCxLxjO37/zpXyivBFXdb UKLbR47/778ia662PqYFLSs90vz//x+M5bZW/NaCPr5+du7/51ut+3R7e1ML 0s49l/f/+ipDHRJ0x1sQB6Wx/v/1gyCrwpTZilyTymMFsFP9csdsN7WiSkND 5VH8/tJcrqvO7GlF11tN3L5jh3tIaF492ooOp9Xf/oxNnax28HZrRW9CanRD sG+cu+X38Ekr0jGBEhfskUGl9xEfWpHWxCoBXWx7+876hLJWpNtryrsGu771 wWxqfyuqWOglh/H+7jXXFCc529CvpAL1r9jyepFnmra1IYMnesf0saNyDIN7 TdsQ/+c6goEttGP+84hzGwo87OlRgfNrUsGKIhDXhgSKKIF7sE8nUDcuZ7eh F/uyledwvraJZ+yXaGlDJ2LsgpOxc1irn2oItiPOV2J+NOytgcXZOnLtqPj+ KvE0nP/xvNd6D+i2o67XaRet/q+HmQYlJ492dEov2CQK15NFZ0jhs8F2xNoa 0TGP67PYcs+veK4OxDfjaxmAvaN2XChVtANVypx7sApbvMDUpsysA/3+Uqcg 04Hnw2vBiTmyA8kLS6ivw/3AWopczd/WgZYf2PjwEe4fVZHn0LKpDmRla/mS G/tTUOV9eYVOpPgnc7ID9xvPKwESNk870USuvP1Z3J+oEj4ynepdiPJOV3S4 Bq9nZ7DSTZ0upLsgMrYN29cyats60y4U9W3zT69q3F+Cvu61OtOFJs+FGwri /jm7+MuxMbILHbJ6VMyP++/PNvPEKko3uns15c553J9fT9t/cCG60bG7P58H 5eN5s+z8V4ZIN2pRWNn4Lg/X7777xftUu1HWysjUzhwc74zswSLHbnSNyOKX wPOhPFxmE1nejTR4NedX4/lx/9NWlaPN3ejH8yUFehrup9VaGot93SgFtXnO peL+xGetv3OpGy0qi3rXpOB+cyXo9FeVH4i1dxPFCs+vd2YzSR9Cf6C1YZmp PbEEPBAsk315rAc59+ebluL5mb5tXZqRSw86wLBP0ArE67M9h+bde5DVstWP 0/zx/rxjmR0K60HRZ90UH9/D9aNvfYNR2YMqx46f2eBFwG7v31XXd/SijiLh 5FeXCJj+R1w2XdGH8hmmycKHCJBcZ7+0JNmHIps0lUTMCTDa88nvnUofKvYe 2r7+IAGvHllG8e/vQ1LstBFJYwJMlV4WZXv3IVeD+JIFXbz+U5vXyI32oV9l K0qparg+Ws3YXOX9KCpZ/6WvEN7PiG7nC839iM/IvVSOwPP/iItIZ38/2v50 98MKOu4HLXevZ3AOoLEB7yFefgLimjK2XNg2gGycuWtNFpnQ/108sSNmAJlf NpuFYSY4Vf8KSr8+iI7+uPHpARufv4KuI5m7g4iZbqVZmMWEDGPePyEhgyhx 1ufAbDoTaFVi+86/H0RNw5uFLD8x4W2FKY9M3yC6+V60dyiRCX9Kv14PMRlC nZ46uieDmXChwMf+nMwwav/3ROPbUSaI9uryTm4ZRqlG3LJZ1kwoowi89oBh 5KdTw/X1MBM2QOCo3+FhtHJy2YX4g0xoznhyK85/GD2o55Cw3csErQ/xUc1/ h5HHhSR9dUUmCEUUt+z++hN94YpUeDzDgJTz9IOr9H+jxvVbxjN9GVD+jHX9 ncVvNOgpnhPpxYD+/DXR2sd/o59dcV/cbzJgzepNP896/kbfnbaukb/CAJ8c He+ctN/IyONOmO0JBlgIe6Y6rf+D/Da23RTYzYDZ1FHWt7k/aGUF3/Jzc3R4 6X5mWPnQCNKP51iteowOyqTA9F2bEVRxJOiXixUdSO5Enk6HEXRix0+JVxZ0 6ArsFQ88P4I+1em+491PB9EXNoeG/EbQJkOpDVEadHiWb5z/MmsEPYN2v3XC dHjE2BolvH4UWdczbM1JGnhFzx+Y+DWKVHO78myEaMBR1wVZbuOo4/LY7VB/ AZC+dPKamew/VPb2QpFfGB/0/guzoH2bRKWhTx41X+CBGK0tF9vzJtGWri27 Chx54Ghg5cP3pZPo+qISPjLxQIsUT8nBpkkkwF5xwlafB2oOuu54Pj6JEgJd a1zFeSA7xVBcQXYKvVlZm7GnghvCnDmHjcKmUG/TmIO9BDcY9DndeHRhGtWv OulL+0gB3RuSb/dcm0Zn4t7FoHgKaC9va5m8OY08yuJszjyjwHad/epWAdPI 1SzgQZIXBWRfKY1LJkyj3eqFI2xTCtBOTJxKa5tGZjulpPaPckJ57w2zpr0z aFE9jztJhhOMeoPkREVn0Vp+dWntP4uoXK633lpqFtW4lnwqqVtE+y5uuxkh O4usfodTNNMXkR6lo3rVtln0ML/g1i/vRaQtLneFZTKLaBvQTdtVi0jVuoDk 95pFj6rd/G/vWkAi9TPm432zqNPLikPo2hwazrO/VfxuDlmUMcifCVNILLjJ 6cGnObRK6oWJ0J0pZGZrZG6WOYccRHp2rbSfQtnTGrJdxXPovFmbTd7aKfRI Qah+qmcOSe8P6woNnEQ7wtgyMmvmkSY/1+VZp38owEmk6o7vPPpKKtQTtHGU s+1R+r7AeaTGXZpe3TOGJrn544RC5pEr9d9+p6wxdCx6/Frky3lUMvrqqLTz GNpaX7o+LWsetfuL0jPKR1H7rutXesfm0f1TNtF0nxGkKNSwbvfRBXRade+w XsxP1B/Y7/XkxAKK+15LzTb6iSKpUwMDZxaQYLB5Y9vsMKJzr/oYcG0BdZlQ ti03HUbDk4d1G4IXkOkdKTe7+UH0qq3d5XT+AtIo1jf6g/qRSGIf++GmRSTG rbbpvmcXoqJ/dm3jiygzUrjXZwMbXdPayP95dhG1DnhuF3+Uifp3WyU/5FxC g6LX+3UWvqBcvZxZbWIJzWneUOyv+oDcTAMfJ8kuoR/F+2ZrbbzRzxMbCq7Y LSF9+eulZywy2OUB5huFqpZQufpTLeOYevb2h/cqh78vocPJOWXLbnxnJwZn XspvW0KBBXUPeQ41sH1CJXKuDi+hk4KaO635m9ii1ZPyfykcYKwQ3x9+rJXd 0JxbYC7KAaNNotk8413svb+PTK0354Da+Mo20fUD7Khl3nWelhz4XI8qnnsO sCd2vHnfZsUBb/WnuT62DbBf3J9zDLXngIOzBYVxTwbZszLPmwTOc0DA5ttv v1GG2W/t29NH7nNAvuK60AOlv9iCTUc9skkOOCv7GDUJjLKbco9zHpHnhHuf dYWnmv6xR7Ra1txQ4gSFZldK8uw/Nl+O8dYXmzmhW1khb6/IJFuNvd2xX50T PHeynaWOTrJDMgUrXHU44dTbKtO7PZNs409Z4f62nDBl98J09cAUu/DVMuVv QZzg8IaZca9lhp12L99W/B8n/IhoPavttsBONChbdXeaEzyKU5fLhS+wn9Fr a3/PcULvLamIubQF9q2gTt1MCgV+JJpkmY0usA3DZxUtBClQ05VUOnxykf0j QXnJX44CbwMSs8j9S2xm0fPoKTsKWGnbhjjf4SBP8lzuqqykQNqXmK/iUhRy jVhJ41wNBa5uvb0nSYlCVqqvq9r4nQJt+ctnN+2gkGpnC755tVJA08CXY5kp heStWx6hNkgB6d3eBv6eFPLVi8/mUZxccMRIW5rRTCF7d0yXOm/lgg36jyYD fblIB1f3NPozLvjm/kKno5ybVHKUqzS044aj9ctOyfDwkVXC8rTLGjxwFlUU TwgKkJrOzkMRO3mg0tLLY3ylAJlclFyUi3ig+9uZD79FBcgHHio+gro8UBQy 8bJeXoA07FdbeGPKA/d2Tg2f1RMgS9O1/v44wwO2arNcJTcFyIJjh+pMonjg 9vWn2zUHBcjMZK8IeS5eeLxHM8I/mUryGpqvCePlhUz5P+kzn6jkgSGZp5xU Xtj2gSrpkEklByQrQhsEeeGZ+0KbTDGVZD1d+eiWKC98KPOVvd5NJc94v71X r8ELRitmpneyaORay4bLHud5YcZYEg5dpJHunLIm5e280J3/+tguaTrZv4fW JN3NC7r+0icvydFJk3u/jt7u5YWNCh8PJCjTSSni/Tm1n7xAVyzu4thBJ8tF tj58Mc0LXe67+LyN6aSoumblJRYfnP3YnpJ/lU7mupgartPnA/sH5/n3FtBJ apubnssnPqg9aZH9wIxBql1NYjz8wge03a5/blkySDvhptr3GXxQvqqt9pw1 g/yqp2ozSvLBfltm1u7jDPJk2t8Llyr44KvjD5n8iwwy58HxCLd+PggaeC2x 8RGDvKZl9Md3FT9EL5bt9ypnkHFtHqkJa/lhXODoS3o1g6y6+uZasSg/jOzm zXtcxyClk/m5qBv4YSbR/2J4C4OsW5O3MlCFH5bRV0e5DzJIxYltWo8N+MHE 7GJmEheT7IuXCIn24AdphcS5pG1M8pdP9wzXLX6wPTh/kLWDSY7Zvzx6ypsf Kjr8uK9rMkkOMQk5lfv8sM8v+IKGDpNcEyaemxvGDy/s2oIfmDJJk7tiI30f +UFDmef5/bNMMstxnaH8ED/IqyVLVkUyyTyd9pSgX/zACJCiFLxgkqWSkSv/ /eWH4Zkqky+xTLKxU6Tn2yQ/mHve0gpOws8/JOJmzC0AvFfkvNekMcmNemsT XcUEAE1dX+tdxiRDNq7mTjcXAM7NLHrKPyZpbSud0GMpAEfvhTjQppmkVMgW A6a1AIQFjqTYzzLJT0v7gxzsBcD0E1OVf4lJ1jd4iTDPCYDenifdivwEybrz a6vDPQFYPiq77edqgnzUzT7ByBSAjACn8vU7CPLIygp+9WwBCLDc1CCyiyDX 7295Y58jAG+Xy/eyEEF+/Dox+qVIAHznbzJntAmy9uGmm/b1AlC5Oy8+2oAg hTQfh375LQCn3o2p2R4myKBnJ4vsxKnQKN2hGXuJIK9e8broIUmFcLsZZ7Ur BGlrGiUWJk2F+7PBJYVXCVKe2nC1XJ4Kfz5b83W6EWTJdZ2N2zSoQJ2TfPX7 FkFSDkv50U2p4NvLiPcOIMihraAqY06FotCSb0OBBFktaN2tZUmFR0x93v0P CTK6+LHGVVsqmG0JkaU9Isid6lzD3U5UuHlGuehEGEFeXvnD4Is3Ffa7PbkT 8pIgrccXJmt8qbBQY1FYEUOQe6pWx/7yo0Jc1tMd3HEEKXz3wJxEEBW+h3nl n4onyORJ8k3AcyooJ1abC74hyMHv0XT7NCpk8IjHNacSZFVK5lePr1SokmvW 6f9EkJ8DG4+HZVLh1oKh2EgaQfroEN/Kc6hg8Ercbe4LQUqk3XTeVkmFnWm3 60cy8X6E2FTSB6jQ/fyjtkUeQYqkUteeGaYCOyTilH4+QXbWfHEs+U0FQ8S7 T6OAII8Twpy+E1QYXm6tSxQRpMv9wi1LnDTQ5BxZG1JKkMpJF2/Z8NBAS9dH zrmMIMeLxCsy+WkQ+G/FjHY5QV7jcT95jaCB3+YNVb0VBOl1S+npqAgN0v0X nThrcDyi2/qMxfG5Vcv7HInNl+23OVmSBp9crLZ41BJkwFxPmZMsDTKUq2aG 6ggy9Er4Ys82GpirG9+JaiBIyyc6+7R30ED1Tca93Y0EufbTWNgLTRqc8ow2 7MN+MWqoYqNDg93vbVeINRNk0lnO4w2mNFh+zSDtTCtBnvVP/rDVgga355aR k9iKr60WHh2mQYKjacDNNpyfA2mhxsdokGfw7LRPO0Fm2TuVFDvTIC1Wb/vp ToK8eXvlCpkLNIjXeHGwBVvrRb79nUs0iDyloaTXRZCF7aLzWu40aOH3V1jT jfPJsk4x8x5+X5UZvbAfuF6u3nJfHUCDgoaUK3+wzUMViq8+xPGZ3O+o3UOQ LXV37baG0nC9Xw7uwn4+tjX50VN8PWl9mWwvQR4V+jE78pwGQvsnii5g9xrt DHkXSwONz4g2iR3vPNRFS8DxT6w/sKWPIE8HhCo4vaaBUUW+lTO2/JvdbsXv aOA/sXZTHPafkpFC6RQaeFzvS2/E/jAYybrziQbCcvJM/n6CvMi371jPFxoU ys5uUMWe3vNqJjqbBm8umry4g+2RGe2dn0ODl58p2fHYHJufMYbyaWDaG0kt wPZJDAljFNPA5r6Mbxc2n9hDic1lNIjIi1Oewb7/xO+NRSV+X9E1VGKAIJl0 H1X3GhpM3PEXXo/9yOsmO7qeBnJb5vU3Y6+Yuaaf30gDvgmXDwj72bmLdYMt NNBX6tcxwF7X72zD6KCBbb0D1RT7hfWpAZVuGmw4OLRggS1VZ3/Bohfv5+Or 4oexE/Vt5twGaGA3ynS1xJYnD92JHqbBzgPvx8ywP6iZEvm/aRCw3DLGCHvL O8OngyM0sGLx39bB/iy5V5IxQYNVEd8eaGBvf6b1TmUKx/P2lTJZ7GzBndss ZmkguFF522ps7btqOW4LNDhwdaCGG7twQXlfNAcdVpaHR/zG8dC/JPc9j4sO m+ZQSB12+fCGo4O8dHhh3pT5GdvETnyITqXD7Ftr4TDs+sY1F1UYdJA5VBR2 CdvSaPmCuSAdhjYJGxpjt+UTd91YdMhyVVOSwT66gyoUvYIOOjwKWvN4v3+k cEfkraZDv/qf25XYJzcuSQ2K0OF+z4XRSGyX5RPqKpJ0WGYcab0Ve8z/T665 NB2Q8GbLOZxvlylDhm6b6FDr6ODFxvb4234sT4kOJx+et0fYHCebhgc20yHX Q3XVHM5nn7baS3Q1OqhsOD2fiu1fUnTPfCcdAviHjNdhMyFX2A3hz816a9gV /9fL56znUdp0ENH2sXbHfhab8mFAjw7GVYUSlbi+Em9ENF03x+v306s/gOtP fuKJfZQlHeSD76T+xPX5wSnoVy7+3G02eoX0wv5y6A4H3R7Hu0/WIbEDx1/l 3MYoFzrYn0gsqcH1b5B4+mPuBTqknLNeZo5dIXp858AlOjz4KRbwHfeLetph E2V3OtiJXqdUthBkT5/2tdy7dHC7WcsX2YT3N7oyRtafDhX7b6su/N+PLI9U PHpAh8r094JHsG3LLqx3eEKH0CiOKgHcz1o+vCjniqWDRddVRy3c7zSc5KfO xNPh0I31C764H4ZLfpWoT6JDqowkKsH90iK06krcBzp8dkko2l2N56f7orhO Nh08xr36BHG/VVG9v+9dDh3CH59v3oH7cdCf5VeWF9ChrsL8mgPu10Z2CmV9 ZXQIjLT5nFhCkKW61pd9m3G837xUpBUSZK5QRknRBB1WNBzqUcrG86RMZ0Jp Gr9fJpzf8I0gb/nUiIbP0WFby3TcyiyC1JwavHiKwoA8v3nusXSCzGhbKSog yIAtK86E38Tz6WPCZVcDOQb4Pj7cOInnW8wulbUVdgyIGZZqswvFzzOies8d Z4BMan0e9xOcj0d7hjedYoAEeSk97jFBSno9yfB1YcBhK4+K1iCCjCucOQzu DDg+ZBQs7U+Qr4xzw1NDGKDC02ig6Inzwe7gimdFDDB3OnKD+wRBFrvK3ywu ZcACqRqm54DnqzdP/2QFA4rlg9L87AhyY/yXtIP1DKB2Oi9SbPG8GF5rzuhm wBf/g19qLAjy9cXex7dmGZDLcLrauZcg3925LOSowIQly7iodBmC/LXTxuuO MhNUznFsTdzwf/7tGY/dwoRLA/Sux5L4fvtl37s0mMCsSHCzF8PrQ6nhR3SZ 0PCsLLltBX6fmRExo6NM4Oha+rKHB+e381lF1WAm/Fw6dqirk0m2SJlFHwxh gtKJqYnz7UxyddsOQdcwJqxK9o1YbGGS4Qa0seRIfN35HadQA5N8IvM6beNr Jhg05EkJlzPJoO6BnSJ5TLjGq3r4zhcmedfcYR/XPyakSjf+lQtgkjHGbdYn ppkQybiUIOaHz6P65i5Fc0y4kZlcSfji8+WuvcH+FAISwyRP93ni86O0XCNL kAD5hbb0ExeZ5OapMXspOQKutURvyDjMJDvCvdx07AiYjposeivJJFXbXibd rfj/e4iVifffMkhBxVPT76sJqIeJwsZEBvnLU3FvUx0BWxl/IiRe4fO7ZGbv xhYC3Ckzx99EMshlZ+rFSvsJuKDhaR32gEHOenDt4+UQBI7nkdLV5xhkM00t R2+1IPANSYmwlRhk+KaIdxX7BKHD+OoH21d0cmJc95X3fkGw/h345fwLOmmc PfZcw1gQDiOpiJsRdJL3oEHAK1NBiAnQHgsMppOXPWacbhwWhAPBS1/dbtBJ 06pDGxUcBUGs5topfzM6Sb+8LDbASxC+yX78fXOJRnqSgeH70gVheNMXTnM9 GjncTobMZAhC8jPjdS7aNNJibjwoIUsQNE/ubPTaSSPl1Y74cZGCMNLXKBqt TCOb3ki7ZRYKQm/ev5KYVTRycxjbSq4er1dH4G/9AJXsdx4Vpf0VhFOcd/80 eFHJ/WvNX5VKCUFml8RY22sBUsulyErITwjO+/xIdPzBR0aL2EuV/xMCquDW vJpnPKRUXkKokZUwiM7HqAev5CIr5afj2qyFwZ6bFOmkc5HXQvVSnWyF4dm0 PUWawkWWnR6q8rUThpR/x9OjflFIV0E5AbajMPTksKR35FBItk2yu9IlYRh9 52265jSFPDL96ZhgoDAIuBVoaqdykkEKubK12cKwQmxFSqASB5mobiXgRQqD pNvKTVUSHCR798SASq4wbP69YRnvMg7yz2HpV8EFwrDT45J44sgSe5/vfbED 5cLQGbLOsePWEpu303RZdbMwCFZOZspHLrLdg3oWKiaEwTleO8Q3f559cpy7 pkSWBSK2O2v7CqfZtq/3VFrLs+Dp769zLgnTbAs7n7K/CixQ/eam1nF3mq1b xVW4XIUFpl2ndF30ptnSbyiZdttYIPVd0c+keIrdZ8/xamY3CyKzzUVncyfZ x2vnrm2yYYGFeEvH+5gJtrXfjitZtix4Gb9+X5LnBNsM3C8aH2PBpjXBW7yt J9h7kmedLzuwoOz22YTG5RNsqfsz9jmnWZArZqqz4DvO7tGaMjx8hQXaOX4z VIcxtn3KmLjfQxYcuJzTG8wxwj7rdXDeIJgFDk68uzYm/WVfPvipkf6YBbcM A03LTP6y7/27/CAolAXPAtefGY76w07WmJkLi2SB9GCa/lW13+yZnKWG+Dcs SFt/rEPcdJgdVEsPzC9iAfdrp0BHtV72s1jnU74lLPDRHa8tr+5hx16q3K1X xoIHTpqD6U497M8rgmbLKllwjmf686bIH+y2I6xTdd+xXZgj5vNdbJme1bt/ 9LCAstwkwH9vK1v5k5toXB8LNieQapLOLeztd1pnTgywwDZWp70suJltKBP5 YWiYBXnXk4sONTWyXc+Ii46OsuAJ/325mCP1bI+dt2c+juN4M1On+K7Xse8w ftRf+seCt8rixmGhtezw97H+09MsYEdDkW5VNTvmFrdjxiwLPDn6T/fWV7Hf HDih7THPgqZzDrGZApXsT+sL12kusoB6bVZSYlc5O3tcemZpiQV1ixd/Sp4r Zf8HK4RnYg== "]]}, Annotation[#, "Charting`Private`Tag$5118#2"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {Automatic, Automatic}, 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 -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Times New Roman", FontSize -> 20}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"\"", TraditionalForm], None}, { FormBox["\"t (s)\"", TraditionalForm], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.4, 0.5], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImageSize -> 750, LabelStyle -> {FontFamily -> "Times New Roman", FontSize -> 20}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 5}, {-4.914192867346412, 4.914192926120555}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"\\!\\(\\*SubscriptBox[\\(x\\), \\(C\\)]\\) (m)\"", "\"x (m)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.21] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.21] -> 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 -> "Times New Roman", FontSize -> 20, FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ Rational[5, 64], Rational[129, 256], Rational[93, 128]], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.052083333333333336`, 0.3359375, 0.484375], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[5/64, 129/256, 93/128]"], 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[ Rational[5, 64], Rational[129, 256], Rational[93, 128]]; 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[ Rational[5, 64], Rational[129, 256], Rational[93, 128]], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ Rational[15, 16], Rational[29, 128], Rational[71, 256]], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.625, 0.15104166666666666`, 0.18489583333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[15/16, 29/128, 71/256]"], 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[ Rational[15, 16], Rational[29, 128], Rational[71, 256]]; 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[ Rational[15, 16], Rational[29, 128], Rational[71, 256]], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 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.768749251579438*^9, 3.768749259626295*^9}, { 3.768749345165037*^9, 3.7687493511919603`*^9}, {3.768749389974461*^9, 3.768749460171976*^9}, 3.768749579716856*^9, {3.768749610467504*^9, 3.768749668788149*^9}, 3.768749711220215*^9, 3.768749752542899*^9, { 3.768749790366544*^9, 3.768749794960458*^9}, {3.768749970826703*^9, 3.7687499913144836`*^9}, 3.7687500736680527`*^9, {3.768750202090612*^9, 3.768750242769392*^9}, {3.769430021974352*^9, 3.7694300727133904`*^9}},ExpressionUUID->"8347d553-1b78-40e7-ac3b-\ b7d6ff1f14d2"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], LineBox[CompressedData[" 1:eJwV13c4VW8cAHDX5l7ce0+KklFCSJSVxvsVSaUUibIilYiiUKhEiiKUrDIy UlSkNCT3WNlSZI9sibL3+L2/f3g+z3nOOe973u+6UrYXjE6zs7GxueA///+P vW7LrWLntYtLiXbbu4kJRbWSBqaSx5HWg6tvBVqYsPw1z09S8hwalf2gF9vK hFgyWIJL8ipSrt8e9aGDCed3ujlNSwSisFPeI429TKidtw8fkYhGpz4bF1SP MoGnpUt2WOIF6tpP0QzkJaCR/OI2NPACMctnXPv5CEh7FlX4500aOpBxbY0u lYBDroesB3VeouEzh9/PCBAQwZcT0X82A/lscl9jSBDAfFLKPtqQhVp2NHZn riXgaXm8yx+JT+i+IHFivwoBE1HZ8h1Bn5Bh5Ceu0C0E6J2t6P4x+wldWxnf VbuVgCGOaZOc2hz0N81e5Zg6AZo7D2kF3slFV6xiFPZsJ6AmY4Fd9h8L/Q7V rK/UJeBGueJ+FetC5LT9Bbf/MQKev/kgk/6oEAmcFjofZkrAj6jdHBsqC1Ea pY76xIwA6bNmuSLbitCC6fr59BMElHPcUmIjitHc+fSE91YErNzZwvz29SuK vUrb6XGGgNcZgS3nlcqR+8mKI6mXCRhkDgbttylHXBl7Lzu5ESDrvn+XXHg5 yrx/ibHFnYCEHdSn3bPl6NiOS7nvPQh4UBZ05kRxBbL6F9D0ypMA9+6Q0b0W Vah/e/8RYx8CsvRGEjeEVKF/2+NUKDcJ+Pfi8FGOgiq0a73F/VfY9hcZH/Jk q5FWWBqL4kfAicUH3mrj1WgpU5Aryp+AeGqFH2NPDbptJa/pfZeAXTu9LHys alCydvkM4x4Brc4Kav88alCZxHXNZ9giP+71VabVoL3xpWrlQQSERRnsC6B/ Rz/85+XZQgjw21AtuNzyHZ0SOCci/ZCAdabX+50mv6N5FcfGp9hkgBLZKvgD 5Qzoi4qHE7Dw575LjvYP5KM7u5b5iAC3LMM6t9QfqHG4SW0ggoCz6Hv0kGst Ul0/89YghgC2xKmclnu1yOn8YmgmdhSnWGt5ci16qya+zHxMQGnZGfEX9bUo TH7pfi223NGFxNNadejswrYbOrH4/e+lio4a16E2Nsn+x9hmont7dc7Xod1l b36NYQe0h8mui6tDD++sCXwSR8CAvezLdspP9PJJRWZ7PAE+FQZVVat/oqSc n6kKCfh7KLn+zd36E91Y4FPxwNYfz1V+fPonMv8tP8f3lIAX14yyTct+oviY WnvxRAJ2//Ko1+v6ific3o9ZYzfvjp1Wm/+JRH5vFkrA5ucd2LZiUz1q7lnF JpZEgMODa3k1ofWIJ4ajkD2ZAPbJxA7Wi3oUbtjbpYkdY1rKllFQj+b8Pz5y wi4XI3SCJ+rRWxfzdz+wbW9o2nkLNCC1B7skOVIImOu09HeUaUCnqVoSW7AV Up+X7DNrQKc44urvYRfxVQ9oujSg0cRVIe+xLc6P88ndbUB2AxXNHdhBKrsM uHMbUFojh6LSM5wP4aecJusakFN6hIoxdu5UwP2e4Qa0aO5b7o499Lm2pkCi ESmp3nj/CfuW+OzoG81GVCYcy9eELXZTnHh6pBGJWG4amcI20DtncsOvEaV9 ++yhlEpAz/P77s5PGpFvUpGIPrY39V2kZTZ+nrzJwZPYr2qWmrb3NyKXCAmX IGy9rdI4EJvQzn82JxOw2x/tE1st2oQEO3Z0Z2G7zzjv5NvShPr/vp0txBY0 D7ea2d+EbtqVJ9ViP/vy6Ub/qSb0BPw6O7F3SXYk1Hs3oUPqnVl/set9OQuK HzWha5/6Vs1hO/du7H73ugk5Lz+icz4n4JdVE29+WRMak325RwDbuDFAqaqn CTnkCFWvwP56RPNo03ITMrYreLEaW7Oi/2rv6mYUYVvcKI6drhsZP6rWjCxi Rc2lsMXz9IoXDzcjj0yW8jrsUI2pQb7zzai4/cPx/69zvEmhr7zTjBY42ev/ v99d3kR9XWIz6g+KTfn/+QNJnBZKX5rR/quBpf+/33ztu5tajc2IzbNo1//r q444lao33owONhnw/r9+oBNVRoIt6NM1yQ2zeH9vAwvGrDa2oJ1/dzwawpbh cBVx1G1Bt4/Fm7VjR3lL7fKwbkF+4boXqrH5p2pO+Xm2oFXyG5tysa9d8AkM edSCPgjvi3iBPTKwOeNxZgtS7op/Fo5ta9tRl1rRgkJy5fivY9e13J9729eC eO62k6ex95rskiQprUhz/HP5AWxF/VjHRo1W5CFc38DEjss3COsxakVCnVwt 4zh+GNsX3o84tSLpuzoqtdhTm8zZ+ZJbUdDT8vog7HOp/HLCrFa0R49T5ix2 q2TOQanmVuS+VrEUYecTotHb6G3oSug6riEc76rBpXl7FNqQwqH2eBb2M+4r PUf02pCHp21w2P/5MFu/2cG7Dc1wxJxUxj7WEf41ZqANubne6zuO86/UTHfo GUc7emhgtFISe/uPccZb8XbE9c0vqgfnt2SxkWXF0XaEgkce2mMPptEn5sl2 pH7+5GkLXA8spElR3tZ2xJH+V0YY+1vsBbRiuh3p73fRqsT15V1o9V3FTR0o XYZhqoZ9wz1IyjK6AwnL1tuN43rFL3VLtkPzF/pcylYgjutb6Y6wzdf3/EI3 MiNVC58QcNssTmOt0S+0ojZs8xls9tCPe80df6HUntN5qbh+zi0NnW2I/YXa fT12iuJ6+6fV5Pk39k60cDY6IxvX57QZ20xnoU50zl08fje2/YqLHwXEOhGl KFe4GtfzngN3Sw+odSJ7iYHIX7jet+bkDZSc7UQ58tbD4w8IqIyS3UhWdiLu tomvtfcJuPtOVcW6qRNpH78rtg9bv0Z721JvJ/p3PHE6NxjXJx6LfTuWO9Fy 0u+dCbj/5LqHnvuo0oXMtd/wmOD+9ero7IvMiC70+yCXuwfub/fpFfJPT3aj zBz71jjcPz9prM0+5NyNjFfGLtZdxeuzuoAWvLrR6hx3Sz7s7a+Io6aR3eiX j2njedx/B/ZZXBOo7kauq09ni+P+reM3/O3q9h50w6uvY5MTATOTQm5GK3tR l7XKlRlLAtavtV1eXt+L/kge4ZmywPOO7rvAVyq9KE5eunrUnICUB2ZxvAd7 kca5PkrPcQKMNj8tyfPrRUWSNXNZJnj99ltWK4z2Ir1rRjNzBjg/Wo6yOCr7 0I5jA5oqWvg8H3c6uTT1of6NVZR5Tdz/TziLdfT1oYc1ZvyFGrgeNN+5mkPp RyODGk0H1QhIbszZ6qLRjxaOkqcPKRPQ91PyeXtiP3KNyZ+c24D7S81Q6Ker A8jMj5q9LITnr9CrSPbOALJlfGoIFSQgx5D7b3j4AGq6nrVZEs9r1G8SBy5m DKD2HtHr2/gJeFllxCXbO4CgJ+LuMU4C/pZ/vBp++DfazHAQ0pphgkvxLdsL soMo6VAFkdzOBPEePe6prYPId/tE/qo2JlSw86V5wyDqvChZH4jn0Q0QPBp4 fBC1+K3dfK6RCU05j3yS7w2icf3v0St+MEE781lc079BZHsunyJezATG49Jm nY9/UKhPxI2ZF0x4c5FmLLJvGGnHxb7IdmZCZQxx9dWxYcSz1tbm0Xkm9BWt jt9tN4y4pDRELjkwYbXoxj/nbwyjmLk4H7kzTLiVv8cvP3sYJT1Yo+BlyYRj zBtvHdb9RWtvBh5nHWDC3NtR4sv8X3S9MO5WngwTnno5DiqbjiBT4xLDi/UM UCb5Zu5YjqDpMJM707UMIDmfc3WcGkGrXtxu8P7OgF/BPZLBF0fQjtM8rJuV DBBPsDT9HTiCRs0qIy4XMCCmyLDoae4ICpBcVbb4igEPBFTjmOtG0RvyI1e0 HwN84xeOTAyNInXNY/PFcgw4rPzRRWF8FH3Wq9zdugE/L/9SmO3sKEqaTvMb WceAnK7BmhquMbTFkOsvcy0DxjY0Gb4SH0O/FaIOIAYDbF9mHzxzeAx56qQc V5ulg/Yn532Nb8dQn+e/uZASOrDV/oJcz3FUzns9rciSDjKXz1w5Kj+Jkh0T K3wyBGGTVodxvPIkkuR5+1EmVRBU2cw2D6pPouuWP4RL4gRhd9C+vhs6k6j9 iTN9OlgQrJIVj6ZbTCKRzcxI4rwgRNSNbWYPmURiBcnG22UFgUvtRn/G+CSS aku0k40WgJ7JyGPUL1No4dnn4jMONEjU3nqprXAK6eteVs20poF1cHVIRvkU mue78Hz0KA2apbnKjBun0MNjHT4WiAbfjV23PxmfQhSasvB3ggZ5bwwkN8lP oxrn1Hilz1SIdKIMHoqcRr07Tq25zkGF/b0O1x64zCCtSbVqdIUP9K6tf6l7 ZQZ5se8Iv+bIB7uFW5unrs8gx5ZUuTdWfKC156CmedAM4nRdGTCrywfyKZvH 16fOoDbX6ecCDD6gnp6wz26dQRdcyrdrpPJCZc+1o417Z9HONaunN1TwQKm3 ut/dQ7No4LCEDuULDxSt+Pdmh8ksmnfOd6p5zQO5uieFntrOonvmQyv2P+CB l8m7y89dm0W3tKyjn5vxQLAdD8xnzSIf2kcVSjc3HOoJVRAXn0NXQjx3BA5z QaVCT52F9BxK1DOwK2vnggOXNK4/lp9DhT/Whi984wJ99vYaEY05pBOg8XZ7 FhfsllRwJw7PoYOOy5dWu3OBmkUxyes7hyoKPyjtmecEsbpZk/HeOSRZwpUT OccBMWsOLqsMzSH3+4XCvIMcIHoq4fnFsTm0JKu6wr6JA1aO6c0PL82hq6uT XKY+cACdHp4wsGoeCcfotelf5gAOA6U/bfvm0datborJv9lhsNDWp/TVPDq2 v3oT8ysFJMIaHe6/m0f7l6ZqQt5Q4KjVIZOjn+eRsnnK9/EnFMib2Sb/q3Qe mcqUVzhdosCDTYy66e55dLHS1kNKggLbI1mysqsXkOT7qYPaLmwQ5CD2zf/2 AvrlIc1Mml9E+RoPPh0IXkC18fcyO8oX0RQnbzIjfAFxdpdL1kQvopPx41di ny6g+7o2zFL1RaRaV74uO3cBcSttnBw/v4Dadl517xlbQOQsI1KqbA4pMerX 6lgvokfCRYrS6tOoL7jP99HpRcQ7/ltGZXEKxfJP9/c7LqJLsp+EqnEc0zhF soKuLKJd23nTMwyn0ODUcb36sEXkWPlHtMFmEqW0tjmfK1pELQVxem+cxpHF 8b+1n/E6x2yND2YqjqMV9Uuagt8XkRg/pVrkzxjy/SbB8bZtEeFBIWD1mTF0 ssAmcmFqEfk8P3Tn3tFRJPa8lxWycQldjy0/HC75F9VJT0l3bV5C/GX7iksC htG9p9x3VdWX0LWBzii7f0NoLkb2aNPuJfRoyG1L3oc/qDH43MA6iyUkvXO8 WFn1N3p4aZj+/v4S4mBtGS2r70b8aNKmdXwJ1ci/unlyCKeQthzv+7kltLu2 rV7doQL16Zi/DqEso7DxVeu/d5WgAv38ud1Cy8j0UD8j6yuJPI2CH76QX0aL 1cEZvpYP0Z/TG4rdbZaRQP3toQdby1kn7M0cD9svI6vARLeYD1WsUod7DPkL y2g3nVLJ+biGlXxh1LLNexl1Z5e8EKDXsSyufpnSiVpG1/bGZpLVzazKIBM5 xrdl5FCyUGqS383SCgmoHvy5jOymguWifXtYz8M+Xy5qXUY9Hi/XJWn3sm5F SOV7DC4jo4yKw6Kf+ljiNVOK/9jZYM0TyZIN93+z6psKik3E2eBQVq3p/oa/ LAHz1qgCKTa4KV91btnjH0u3ddJx8wY2APusbVepI6ysdjkmnyIbSGfsW25O HWHd775vlbuNDfoO+W6qrR9l7R0+Mb3OhA32BS1f3siYYMWt8Ku9YcYGw/4q bApHJ1gT29MzWs3ZwPRT67XQiAlWwt35sxG2bEC3kAp/KDrJmpN90sh3kQ0K AzVKK0SmWC9t2z6N3GUDe4q8mcnSNIveaO2dR7LBBeRnuNptnnVm+Y7ZmiI2 2M5ese/Ai3lWrkym6pUSNqjRVF8p3TbPOufGNqxSzQbF9Gm/HzoLrALmU8uU Fjaoomv46wkssi4f7NoVNMUGW/ZvvBMWtsRqLLCjnFCkQOIxqegjb9nIEe3m 1dc2U+BS8TXHmyVsJE++oWrCFgrcCsgzjGphI9VZWmf7NCmwzeOhjTcHhQz/ TK9y3UOBtjMVf6WNKKThu9yoe1YU6KiMoCv9oZBfU1YofwmlgOWHVULxAhxk dkCRleQkBfhv2vQ5r+Uin++vELkzQwFGQ9qd7UpcZAztx4/heQo8GjC8Nr2L i/QJ7dD7zM4OIzPZ/TtPcpEGUXNKx+jscDBUSYk3kYvsSlVevqfADm1NA2Uv 13GTgiVP4qdt2OFNSm/NhAgPeYbL7Vd1NTvojE+ecmvnJVdLlDXMf2cHvYv5 hvODvGS15tpvcj/Zwa7iyCOPaV5S/XzxF98WdqgQfW1lTOcjuWuFH6sPsEPW QTutaG0+MiXhvUkchQMm5ac07BP5yJ7tM+VOqhxw0PjKkJUlP3nK1SubFsMB 9fXpAfk5VHLzWYVqAxtOyHnXs95IWJD8xlSkum3jAhetr4qZa+nkLien3493 cMFi/85kMyk6+brkdUkB4oIbWmxpS9J08r63yi26Hhf4e0me0VGkkwZ96ovp RlwA07dLM7ToZPkn7X9djlwgeKr5vLApnSw+aVp7OA73EcnIW2vv08nPr30f K3JwQ5KTe8LpSTrJbWCyOpKbG7y4W/q/zNDJI79loyn83GDOeTOdWKCT/eur Iurp3JAj8/blB3YGSUSveuAjzg0Hr5vldAoxSEe/lwF127jhqlujKGsjg1xj Vu/mfZEbLNc07E01Z5BeFPnDlW3c4Kn0k3D8yCD7dKmNMp3c8KXgz3Pxzwzy cMCQ9c0ebnh2NnNFzRcGKS2UcUH9DzeoqWddUixkkJViqiEJM9xQu/LU2Yoq Bimuuav6MsEDajGrfiV2McgCZyODtft44Mrl5awv/EySv9VT3/kdD0ysf+FU eZRJqnu8EAj5wAMiDXvV6o8xSRtm44+MHB6I/XJYt92MSX7UV7McJXlg792n Wr8tmOSZ7H8ul6t4oI26NmLQjknm37d77NnHAzx9590eX2aSV7QP/b0twgu/ KFTxTw+YZHKr99vUNbzAy/uaFRTOJL95pF8pFecFlbWPP1hFMEmZ17wc/Bt4 Qb+O7+ViNJOsXV24KliFF0SkRN7KPmWSShMa2g/38+L8EYtUzGCSvc+kwuO9 eUGuZOzWQhmTHLrVOcvhwwteOrwf8yqY5JjtU2t7P16wMXfhulHFJNkkpBRU 7vKCeJ/o6GwNk1wdKVlQEMkLEylJIk0NTPLwHYmR3ixeWPvYQWBnL5PMPbvW QPE3L/T7aT6MW2KShXva3oQO8UJLuOIfaTaCLF8fu2ryHy/sShF3fEEhyIYO se4vU7wgejuw5yUnQY6ZinkacvLBQKJqaSw/Qcrpr3nuKsGH68fXZ7IrCTJc TpTzkwkfmLzK3N2uQJAWVjKp3WZ47lq9SX/FJoKUDt+6X9CCD0J11HP1lQjy 3fLB0FO2fLDhyczIS2WCrKv3FRO8wAftpx3CbdUIkvAfUj0VwAfOazbO++4i yAedrNMCn/ng5aq1k9GGBHliVRWvZh4fXA57sCfuMEGuO9icbpvPB1/yZWhP jxBk1seJ0Q8lfBDnf2vhqTFB/gjZeN22jg/Kvo5dCDMlSMauhxEfhvlgNNDw m4w1QYbGnCmxkeSH6TrlCkUngvRw973kvZ4fUpVj1yxgWxnFSUTK8MPPPXbT Zc4Eqchf71GpyA9mailHbC4SZNnVPXIa2/gBrTZ+dP0SQbIflw6kGfGDktEp r0tXCfK3KqjJmvCDZkjvQwVPgqyhW3Rqm/HD1lk5rS7s+NKH2zys+OFQvJ/y AW+C3KHJMdjpgN8nYVlKvUGQbqu69n/w4wf3n2cK9t7C33d8cer7bX5IXpAq GcDW/SaaNBTID7VXPpgH+BMk886RealQfshZ91e18DZBvp4i04Oe8IO4dXua bCBBDvyMp9lm84Nrt1NeejBBfnvz+aP3R35wis2rVrtPkO+DG+wiP+P7KR8v 5mHf2iP0pTKfHyyEBB0qQghSKvu6k0Y19lVRtbowfB7hltW0fn64XoZ2P31E kGJv+dc4DvJDCw+XungEQXZ8/3C2bJgflgw1vKOx7YSYlNsT/DBZdoHtXiRB Ot/9unWZQoWV88ODx6MJUvnFJR9LLiqkK4FbGfZ4iWTVZ14qSLnWGWnEEOQV Lq8zV4SosHOrPq/gY4L09dkcPSpGhSnjVKvUJ/h7xLf2GkpSAYLq/PliCZIn L3DL6/VUuBzDTnHADprvrnCQp0Jc1vfxDXEEGeEetdStQYVjuepVgfEEafZo z4Hd26mwd+/3iHbsNe/GIhN2UcGVg5GtkkCQCaMGKpZ7qODQVvnvB/aL8xS7 eiMqsC1onKQkEuT5e68zVY9R4a/MQo0+tlKa+eKD41Q4wT4acR87qz87wvAk FQxKXq0TTiLIXFuHslInKoRkrdgumEyQ12+uWinrgvfTwWWqj62dUGTrf5kK R7Ufl/pgf20TX9D2ooKyUu/LIewas1qlzwFUCD2KvDJTcL54+HiJBlGB/0T8 njZsk4hNpR4hVED8S6d5nxFkc+0dG9UIKnySaX9+HPvJmOrrB9FUcO5zqbiB bc3omht5QoXyXjndZOyeQzvCXyVRgZIiqTmA/czp9y9qKhU+Prz4lieVIM8F RWxySKPCJJ3dfwO2YrqOZ+krKkxkt7zUxv5bNvJV5g0V1rVwKFhgZw7EEv7v qFB212f5MvYlngMnuz9QYbezqXwQ9oxuymx8HhVY6+T8srG9P8f7FeVTISng 4+2v2GxbYgR+F1FhtvnbqnrsW8/DIwVKqSCs6qLeg80jESK1pYIKWs7xXSPY dx8Fph+rpsJFYUuxBWxB2i01r+9UMD7+spvrOf5evtdZ8XVU8OIJ0RTEXjl7 ZV9RA95/JvcaYeyYC5dqB5qp8Pzlinursdf2OVkKtFMhWygnQBw7wcK+X6WT CodSpwkpbOlaW5djPVQQmKxSXIf9fJ/lvGc/FdYo7qz9/7oiaeofP0iFRzv3 8EhiZ6obCRUNU8H2e2+pGPbWVwbRAyNUsAdxERHs9+v3rheYoIJb9PAEA1sr RvuVyjSOz2dG1vzYefQdGsfmqHBy5IApBXv3HfV8z0UqBH9paJ3C+/26qHwg no0GN7km/g1i77us8LOQgwYrL8eFtmFXDm6wHuCmwXPHurxq7MM2kr9p/DTQ 5XnomYdd17D6kooADb6JNRS+xDY7JLxoQqeBuVZsTDR2a5HQHU/8O73xaefS LWzr7fyM+JU0sDmSMOKM3fWG83GhKA2+Un5eMMU+I7csPSBGg+vrvbx3YTsL T2iqrKdBJxvvLl7ssXt/C0xkaJAv0TM2iOPNjf23gedGGrzyE1OrxPb+13ay cDMNtk8E2tzFZjvTONi/BV9XzzpwFvtW64/LNHUaxEmtLdyNfa+sJMBkBw04 ReKOT+J8EIQCpieigRw95Url//nyPvdJ3G4abLhVI52IHZP0JrNfnwYK4Zek 92E/v/a48aoJDbZqjLL8cb4pTjyyjTOjAfBt2HsEO9MhdKjAnAZlFlvN12B/ MPVno9nS4MGG7I3pOL+/qlyQi3OmweePK6w/4fzf//xcVoELDcbneg9cxa4S t9vRf5kG1uFqxRrYddTjh5W9aBBtJGaZ+ZQgu3t3Xym4QwOhnSGSobje7I6v TpS/RwP3IXn2Xf/XI7MTVQ/u02AT85XSIK5XVhUu6049wucps8p+J3ZzZkIl RxINTDv0T3zD9W+bg+K04zMavCFaQi9gR63/KFX3AseDxSuGIPaxiG/uyZn4 PAUqRvfgevrDa0lyTx7e/7pluae4/qqo3T3wKp8GA2tEMrZih/4VdhcupoGa 9KvrRbheH7LZVNFbQYOk6KHZX1F4vtCzcLvdRIMVx0WsuHC9L2DklJVM4POP kSuaf4D7ScWeic0zNLiafv6nK7bPre/iUfP4/C/YKw3g/rJreuCSPbsA2AzT PlSFEmRO6ypxProArLRXlLiF+1NWqpvrfgUBGLtYphiH+1viTpU1VTYC8FVj n+rt6/h9h/j95u0EoIZvPO/HNRyP1t2DG+0FoMnap3gt9nrfRzm3nQVgoixz T4YXQSZ/nT0OXgLg+FJfkLxCkCmGBVFvwwXgWRJbXJQrjgcb45UxJQLQ6Xrn ofRpgix1VbxeWi4A+rziBmCH+6sfV99UlQC889/vdeIUnpeefcg2rhMAodmU HXdtcL8YXGMi0CkA6taEXoMlQaZd6nnoMycApjvS98oeI8hX/m6Ms5sEISxr 18PYPQQ5tMPS119ZEN4HPVEO1v0//nTHk7YKAvvjUwe9dPD9tit+/tomCAlb DTiNtfH60NuoE3qC0GusYzOyA+9ndkTikLUgvI7zT+7aiuPb6bySWpggUESS k5IkcXxIH403DheEttC+T7YSBCnaup3uGikINZe+75UUx/Gxnzr2OlYQdiqH lEWsIchHsmnZcmmCoL5zjaULnv9CO/t3iBUKglMzebuVSpB3TE4d4JgUhPzE i50Bk0wy0bDV4vSMILzzGhiaGsfz6D4T55J5QfBPK5U4NYbn2517w+6xC0Hs j3Vzav+YpIWMQgNBF4L8xXy34gEmuWV6zFZaQQjGjubI32thku1Rvp57bISA Xp/u9ZrFJNVan764UyUEEYGlK7V8mSRdyX4mo0YItGIv2hzxwfP0DaW9jbVC 8PCIy+SZ63h+X/+5R65ZCPoyYqeDPJnkCsc6ifI+IZh0OGda5Mok57w5DnCz 0aHNj1/0ly2TbKKq5+uL0kHm668NpdpMMmrj41dVB+ggJSN7YMccg5wY10vx O0gH42rDExnTDNIwb+zJNkM6XGqS3yk5ySC5jfcHpRjRgePje8/5fwzSzXvW 4dpxOhhdX50X2csgjb6Zym06S4eZ5RVpZ2oYJM1tRVKQLx3KQu1mTZMZ5A0y OOrAJzpk6J8/Y7yHQQ62keGzOXTgJkYqd+9mkMfmx0NTc+kQti6hYzNikIrq JwI5SDo0zClwcWxjkI3pMp6fv9KBc1RxS7Aig9wSyTJXqKODZ3KQiDKBf585 jYpT/9HhzOuS/tR2OnlwjUlKuTQDjIzUDEWc6aS2c4k5I5AB9+ziDDWWBMm5 xt96RXcZ8KarK9phUpB8p0Pb4hHEgOpT98IihwRJGdEjvG0hDHBz03dvbxYk aUXN755HMMCzxDRU4oMg2Sj6VwCSGZAvyF/g4CxIXixeQTqzGGD6dHEdpVGA jBezla6cZACbvzsx/IhGam1VULKdZsDhJR37FUE0sm7fhMbMDAOi5GFU1ZdG 8nrcPiC9gK9rnrtj40wjL35Pc/VmZ4Krt+cqez0aCbfHSUUhJswT+Vs3TFLJ rn+3LIPlmLA0rXNC+SCVlC5MjThkzoTHZ8Oe/OrlI6sVZ5JbLZjg+E48x7SZ j7wSof/WwYoJ7623OH6t5iMrzv3+dtuGCTGxqjZ3P/CRrnQFPtZZJiiGZwSk B/CRLMvXXpsvM4HkPty0byMfeWLm3Ul6MBNyvxj8fXGKlwzdVCD/I48JG7ON y5RzuMnnmuZ8viQTfBrCtyylcZMsnYl+lQImfHgcVvTlMTf597hMSlgxEy4o GHAS17jJA7fvShypZEKdULUBgbhJ7g6jFTVNTDjRKVBylOQivUK7F6smmLDN jK1m5QdO8sFj79ZrU0z4pV4jN5nCSaY9E/68aYYJmQ4beQvCOcnG3L1XgueZ YOTbUSrjykmq/04fM2AnQLb8maaIIic5on25v0KIACVJrlVXnnCQZ8Y5v5fJ E3Bhhv5xzImdtErTrbZQJODakZdHEszZyWM2tyr+bSLgm9GnxG372Em9bxxf hVUIKNqmm6IkzU7KpLN/ttEgwMwm/aFYE4XstWVLmdUhwLRp2LRxF4W0+zF/ ZaMlAVrb4h1UR5ZZFoHb3XOtCLjI+cs+qniZdRS8LhmeJCDFK8WxMGaZpft6 zsntFAEuFgc/Ouous6TvztrmnyMgale/+mj4Eqtbe9rguDsBwgkvKyXlF1m2 b8YkA0MI2DlbFR0nPsc672u8sD+MgFt13YPqvbMsN+N3DbSH+LrJg86T6bOs gEm3+6ER2Llkh436LOv1ttn5yFgCPDpyB9v0Zliz+cv1z9IJuHxm8fYnwykW +8OTWfavCLC5W+98UnCKRbPLD5bPIKBGf2Sva+UkS5zbT/d1FgHvY+YiyvUm Wbr7ubOyPxHgOZpgNr51ghX6gxZcVEJAQLlTMffwKCsmycn+dhkBj+TecrAS RllJl6t19CsIMBdOb35mPMp6vzJ0rqKaAIv87wfH34+wWk8Q9rU/CbiruV9y rvcvS7ZbVKerG5u/pVL76m+W8jtP8eReAuqy9BN3FAywtPxbZk/34+8rE3eb wjfAMpCNzfw9iM/7rZl8RUgfy9VRUnx0lAC+qBLOdze7Wd47bs5mjRNQ5vSF 2/hjF8tfoKvu8iQBI+oZJyKHOllRGUn3ZmYI8L9xhWvVoV+sRB/OszlzBISU 7EnInmpnpR85vdt7gQCHp/RLaQZtrHfrvq7dtURA6QPZKMm4FlbeuMzs8jL+ Xu/9Lqv8aWL9B+mKDpc= "]]}, Annotation[#, "Charting`Private`Tag$5198#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], LineBox[CompressedData[" 1:eJwV1nc81V8YB3CjjHuveUvZM9yvUSqaPCdJKalkVaQQEkqFjBCKNIyECNGk KCtFcYzMbJkX15YQkYzG7/v7677er7u+5zyf5zlH1ua88RkONja2PHY2tv9f E/1suDTsfHTYTM5vPsYeqVPeImNoLnMMygPexeXKn4d/FUVBMjJnQenMxZmc Vf6QiO9Ir5TxgnvrFd3n5u+Cs7a7yy/pm3CYm+tfdGEStCw7Rk9LPwCNUPYn LL1M4O4eUJqUTgPTXu2ws+YfoQN/dJ8YS4N/plDyZWMRpD+LK/uWlQ7YZI2Z CV8xGF00sh7f/QrMHKr2lltjiOEtiBl1eA01q/p87WmlIPywimOmPRsGX5qV nD70CVJqkt2+Sb8HQ29/GxXfWpiLyyP6br8H2pQKz9JALeg71A42L74H8ezd zJ0Gn2GC85dpQUsBGD3fRZFeVQdbtY223wz5AJOn5sxNH9dD4+vfHErfi6Fm acagvKUR/GtU92tYl8Fo/heHgMct8CIrX/Hl/TJoWNxux6hvgeY4Xc51n8vg 3vKS7e2FFlBwsPiwdls5JCBB5wDDVqjhDFZno3+CgsLQOzIzrSCi3S3cUFEB iZ27HiG1Nsh8fbPbWb0GzHbk3vx9oQPGhcdv7z9dA293rx1+HtEBSh77dZSj ayBnWVNd5E0HPNpJTRlcrAHtjQdDd0x1QFT1bfvjn2qhs03cOM2hEzwGw2f2 WtaB0kDpjOChLsjWn05dF14HpY8fsH1z6oLvaYdNOEvr4PECx0LIjS5wvCCU X6RUD70vJpIoH7vg+J8oX83ZethLdfq0Uakbkqm1QUJ7GkGt9clm/ulu0NH2 sQw42QjnHpm/EOFhAtNVRfO7ZyPka61hG5BmwtrmWyOf0xshsvbg8RIjJkTG GRqECjZBmFh9dmoaE4LW1fP/626CVkrHx+9He0DO3G/U5WcTWGQpHFV07AEc qo6Z/M2QthBeJe3bA7+/3XUr2NUMF2W+Gp943APu2Yda3Z83A2fah765qR5w gKYHExdbIN6p+1WWdy+wpc4XdN9qASrvzQvlYb0Qt0KCWfOkBfIOb3B7GN8L VdX2UmltLWDLLFN++L4XlE1+p57Z3gqGxbecu+Z6Ab+VLTc52gqlNnfpazj7 wEJ07/Bu51ZIVzswv1aoD0J7I5XkklpBmGbt6qzaB2OOSq962b+AzROudcan +iCg1rCuTuwLsCdNPH3n3Adr1S9Ofdj0BW7lXD49dKUP9s1+2JBw5gvkPBkP uRXRB2lXjfPMq79A6jx/+NqPfaDL8mzTH/gCo2Up/S8q+6BLN/GX5vIXiBIc cfnb1AcUnrFtq8jcXHYX2bQ43AdOUVeLGiPaoIyV/DZmJQs4fqb2Fae1QVzX rk+zvCyIN69ie13aBuxd5hc28bOgRoK++85cGwh55yQcF2GBjf9WO1++dmiI HBTXFWPBUr/V9XOK7bAmwXIrTYoFKs9fVBpYtINRGrv+vnUsKOetH9vq1g49 z8S2FCizwNJ5llc5rB08/c3K+VVZcFtDx5DrQzsEsOg51htZoBBt6/KztR0s U4NXWWqy4MN86N2hyXYY+zQvtGMrCyYKWxpLpTug1LyE9UibBcFSizNZWzvA 5BE1WwmxQOKaFD3lSAewJrdLR+qywFD/rKl/UAc0n11fR93LgqEXdz1cH3YA 16cxPkkDFvhSc2Ot8jrgVeD5ccEDLMho/Nu5Y7QD1HobPR4ZsUB/k8IywdYJ v8VSFXceZkHvfQMJMdFOgCW1iwVHWOCx4KrNu7ETWu9eOCZ+lAX8J6JPLuzv hHkte+ZJExY8+/jef9S2E24kUpeDTVmgI9P3qM23EyRLrPLumLGgLXBF6af7 nZA3dozqZc4C12HGYG5mJ8g8/vNb34IFrJOdPCXVnbBtWl1p5TEWHO0IVa8b 6gS99VcKH5GuOLLVpPNfJwxca38vepwFW2tHvYbFuoB17YDcBdIv9WKTZzS7 4CvRMveYtFSR/qc/h7vgYIuLRh7piC3z47zOXWCiJd7x//ucWU8FRUK6gNu/ e+w8aQ/CVEsutQtSjV/b/v/7Y49XWKqTfT9VEbvv//8/IZl7bXtHF3w8EhO7 gnR9jO1z/dkumG1/dfj/50eC9Dpj/m5QftVz6Qy5vpybpT9OMrrB8pYKuw25 fkXOi2vP6XVD0oMHCzvI/YnzldXxtO6GOjOV47PkflLmG22DvLuBkj60LtSY BVfPB9wMv98NLhw1J5bIekyPrX+d8KYbuPazlg0Okfm06Wt9XtsNH1tUuTwP sqC1++5Szkg36BrkeV8j67vXVEcGszPhQYr/sbNk/VX3JZ7r2MKEznVzpk16 LEgqMYwcMmaC/pNXl46Q+RHa8fvttAsT/KPKljOBBfNqJzh4nzAhvV3tAMd2 Fpx9TlFeXcwEh3dRwgtaLGDKFByU7WJC8wYvvdpNLCihiz7YJtgDfJk/RnnV WLD5TlXRHpUe2P4k/pg7g8wH15WhI/o9sCg2pVlE9svtxbb1TuQci9KqUB+T ZIFZX3RF/FgPdIvFySXSWFBloTfxjLMXQmLnx2e5WbCjeVYoR6oXbBMdpZQ5 WSDzydiq1qQXKutv3Dnyow/G0wXnlnEv1MnK6IiQ88FSAYvyMHvBgCc0KL6w DxoSz8OqX71QayD5qPN1H+RG1IepqvWB3B5b69DYPvD3uC1r9aAPhPdFLj23 JeeJbLBSH9mHX3dMVX6fIufjzsj1fnvIXHu/xBqsXrhhkbRFkqxTpKCc/5am XuCIeLf3xDkWbPree/Budi8s/Z1waE9kwUEvzS1nL/bCN6bpiwaOflgvd+5U 60gPpC/YvHEV6AdR0z3Vxq094Ljqwjs+iX44Z5KzFF3SA0MHwqoOaPZDg+3a d3YJPcAsKBqrdOgHmXvVqRqGPfA5TomBP/fDKX8Rx2upTAjL3axh3dkPWuOp l3beZsK+xl3b/g73g/JW/QOF7kwo57Y02PmP/L53tfWKfUz44BFx9p3GADh2 ZimUf+2GDJPFtDcxAxAvkG2+JNsNdwVriZRTgyCkYXF095lOeL9FMs/IdRAe WK2W/aXXCUMnz8Nvn0H4UTOqZ6fQCTsy6CbmsYPAP+0Z4TTQAWMGllf56gdh E7vabqUTHbA7aLLBa8cQCF8z9zoN7bDwU8DdWGQYPkXnnGc2t4K8pM2/f/LD 0HUuu78wrRWM9HJvZmgMQ3A6x3uTgFZ4GmWRxHNwGNaLlT7IVm0F4/UplUVB w7DKVW6TdGALZDhuFFOZGYa+A/27P0g3g023STHn5xHQ20wXXGVYD5SEfhe3 zhFg/6W/gWO8DrKPu0r0jYyATmjHcceQOuDsCvEqYB+Fq4/UWx/iz/Cko2CT 25ZRoOfX+zxTrYWRLzIvelNHwXXT6wrtb5Xg1DgR8d5rDBYl1i5c5ygB4Qgv UAoZg5YTsZxXwjEUHOKaio4eg+MlO/QHxDFQG6QPXHhNulVnSse+CF7VGa9U Gh6DldoDZ7zeFsBUzTuv6MNfoZ9ZMsmtkANun4JtziuNQ+fKTfdXJd4EqSF9 rvlN45Di8YMu+O0a1HLwpvuicfjpr7vfwvYyrEN3Zm4eG4crw5dDRyzPFHcW 3A94cmsc7imulPh4Kqp415tnSZ3fx4G66sjNKe20YqGEqq7d777B03lr38NW H4uzLtCOrjWYhMPX150Xc2gs/hxP98owmwR+jhT6l/eNxSPlYsm6dpNQcSOi qZXWVCwmyvjm7D8JrbbZ0Y9zmoqDS/YEleRNQuSC8Cq/FS3FZsL+OU5yU5Bc cbR5Xc6X4qWcGfrH5SnIkgxq0NLrLk7xOTe+wXwahlK2p96IHywOTP59ZG5i Bvi3ftz1bc10MVsLC33wnoUshnrCCONXseJl+ysmxE+4f2p9kXDbv+Khn7Fm 1I/zoKHm+ynFZQXeP+x0NcptAajrTq062MiLjYYiVKSklmA9ejxfHSOAx8ts AqoyloFYI9rAly2M1YXaJHdb/4Fdjh1+zjQRTIGfp5mzf6HaMPUYm4ko3jt5 /JecKRtiJb5PdB2VwB2lduzHVdnRynaNk7VyMjgvtPykzE92lF+wXWJXoiy2 X+nOqq/nQF0ufpczxeSx7UWfPFo8JxpYbyq0wUYBr3dQqTc8vQI983yWFxOy DjcIq1Ldt61EK/PiJ/c8U8SFmYEJqpxcyFPfzjT/nhL2YScOf+7hQst50DF+ SRmP6FE7FPu5kIH0RjURT2V8OHTC+toQF9LmM3YCb2WsIPD6vNY3LiQWNvjw VoAy/iyxOfzRAheCuoZ+yh1lLLVVp/4ynRspWK7te/JUGZe6GhtKGnAjvqvj hvpflDGF6b3PNZcb5YUmHdmpzsBanml84fncyIVQbc3ZwMCnhTuaXxdwI5Xq 5WuMTQz8bp+m1QzmRndawVpgKwPb5313u1zHjdzk3aU/7WLgkrt2Cd4j3Miv PPB1hwkDX9llNHVjLQ+aS3VrT/Zi4CdM35zn4jxof2d3NtOHgRs8X16pkuJB RWwR79b4MbBiJg8nZR0P4rd9rxsayMAtYmVr7mjwoP6VBkeO3mJg9bktu+7t 50FbZXceiXzIwMPPZKOTfXnQYo1oxquPDDwR3L/IGcCDNkf4inYVM/APmxRr xyAeNBLsa7mylIHZpGVVNMJ4kJrzZnvTCgYWi5UpLY3lQX6n0kK66xn4cIj0 9HA2DzIOnl3272PgDw6ShqpfedAnlocH4x8Dl+3pyYqY4EGZh+eeC7ETuEY+ cc3P7zzoQ/i61784CNzeJzH4cZ4HTTFDdT5yEfiHuYT3oRW8SMUq/pQ6P4GV 94m/uCjNi3Rc97x6IUHgaGXRFe9NeRHFLkDrzxYCW55UfD5owYt8Siz2Bm8j sEL0pv38lryoqDnoMu8OAuf+Oxhha8OLfgpheX4dAre2BUrwn+dF+K7JFzY9 AtOvT2y2DeVFdWNS124dInBUf/EZvkJe9Ddzda/mGQIfX1PHs7WIF31Y4HYL sCew3MGulzYlvCjTsFq62oHA2e/mZvIredET3fRGEycCN4cz/GxaedEhdn9/ 0/MEFtK5F5M/yYtCx034f18hcES8feVpGQpSKJnv6AkjsKdH4CVfeQpa89U6 auQWgU8aJ0nHKlLQDne69+RtAqtS2jw/q1IQ7z2j1p93CVzttUd5yzYKerFc mTMdRWCOYwo3acYUdO+lm0R4PIG/bkaaSqYUtCpI+713AoEbBS37d1lQUOFt RrDdQwInV93b5nmSggYOWTzZmETgnVs5x/udKChEuI7vfQqB3dcM7M8PoiCP VdxBri/I/Z39M990g4KEst6zaacRWK9B9PHETQoKC3F4xZtOYOGQI8uyERT0 y/DVncSXBM6cxy9vP6QgkaBkz9eZBB77kkyzyaOgHD7HUZ9cAjdkFb7zfUdB Vic6dqvlEfjtnXa72EIK0uJQqGeSDt4j8PFzCQW9EtF31sonsGyen8uWego6 6x9U3/KerEe0VT1tlILuD55h5BcRWCKHIn5unIKenLcZNy8mcF9TvkP1JAV1 q9jdmCdtJyDMfmOOgop9XQ6plRDYNaxi0z92Kkr7ab/uWhmBN6RdCrBaSUU1 Z0yLBMsJPFspU1fIQ0V/9m/fmET6ykof+ysCVOSu15ue/YnAgQHrH8xIUFHc Yfu+kkpyP5KZw4dkqOjHn7ZDqIrA3EU3N2bKU5Hy5IaED6RvLw/WOhFUZFgT V5pZTeAYj7i/g1uoqPjkahOvWgJb3N9zQHcHFT0Of5owQlo890fsIx0q2p9C LzrymcCPZgw1rPaQn18VfE+2jsBpzux2bcZU5JYSFfC8nsDOtzLfbDajomsn p5I4Gwisnn7iT9QxKnIyloqzIp09mhdz6BQV9VrOi1EbCfzBxqm6yoWKZISd bAybCOx3bY2IkhsVrSX2m8eS3vWo3Ob6ZSpa7TmvyCJd0SP1e5cPFXWrvzE7 10zmyaJFvTCUiuR2RP5yaCH7xTPAR/Q2FWn2F5amkDaNUavyDKeiHI9Xjp2k u1pCTm+OoaLNmKmn20rghz82Z0Y9oKJOdXGfS6SthQaWph9S0TlOyduppIeM dkZnPKYixWeOOkukn7l8ZVGfU9EH+6w+uS8EPns7Rs0pnYokLxWeMCCt+nK3 d1UGFQmY3ch2IT1VPV2hmEVFU0lCQ+Gk34wl0q/nUtGNAcvp16QvcR84NZhP RdYfHNrrSC/oPV1MLqKiheoCTc42AvsWJgeVl1CRwrVKFVHSbBvj+b6WU9Hk 9JvdaqSDX0TH8lVRkfaAx1UgzS0dLruxloouyol2HiIddv/mS7N6KjILjjU7 SZqfFqzp00RFIv0zP51IRwX6FSe3UlH6WuV8d9Iii1cMytupSE9ge7wf6fjz l1rGusj1ZCglXyctOeJixddLRW2905/CSD+ydBzV6Kcik5j7/HdJK7TYuJkN UVFYzWqvcNIvDKyWvUepaNrTbeX/VsXm15PHqSg6+UXObdJvtIwFyiep6N7e wqBQ0psyDB+MTZP58UlzDyT9Vn6vPN8cmQfDSze9SW+P35Wh8YuKuurXFl8g XSS4c4vZEhVVSMaLnCGtG6JV4v2HikLNf4Wbk674s+FAMhsNbX60QWUfaYPL Kl/KOGmIIas/pkX68/g66zEuGmLxbK2UJ334tMxXGoWGysO4qvhJt7aLXdLg oyGevqzxX2R9LIxW/zEVpKEm3e3r+0gzywVCvOk0FL6QfL+ctPUOilCyCA25 7B2UfEF6IGtFQpkoDZ31WVF1k7S98j+FMQkaChnmjD5L2nX13FYNeRpyLUiK lCf949ZUqakiDd3v3172h8ybO8dXQ28GDZW+fSvSRtr3e8+psvU0tGrtIflr pNnsO8ZHN9LQiRBn5lHSwczmyzQtGjp/7ly+Aulb1ZWhpjtpaC5SoAWT+edH pcLeQEOCrDz67f/75e2Hh0m6NPSqADxMScc/znozuo+GHOzYUgbI/npxNaHD y5SGlBr074yQ/ac6d98myYKGclPEelJJv3GKmCg9QUMlsu1GVqTzza+z0Wxo yE+ML+4z2d8VGueVk1xp6E5cYEk02f/7X5zNLnWjoZqTWTK6pOuk7HaOXqah Ps2GlElyfrRSjx3e4ENDzOfdvEB6cFj3SmkIDSnmHXGrJeePbnJ9KnGLrKdH Zczp/+eRxfG6qLs0tIfDI+wnOa9O1rrJ2d6noXXdgUwR0l1vHn3mfExDLziC VICcd9ucVH+de0ZDQ59HSsvIeRgn/062NY2GYkbvKuuTNotp8HjyhoaKl9+c 1CPnabPPX5k9RTRUf+KChyI5bzU0ww5klNCQSZhcwANyHkdMrfZY/YmGOh4o WlBIG51Wqx2upaGJceLScCl5v9C3dL/RSUPPzx81vYYJXCpUUF05R0Mc63pr DxWS50ntnrn1CzS0ZfOdwuQCAgcEN0nFLZP5c8rwmiTPF51fY5ccOfjQhyKD 04HvCFzAXCPFK8iH2gy1eiPJ8yn7ufvF/Sp8SHViOmLvawKnamuI153mQ5rG WhN85PlZakQJWrbjQzmj7ALKj8g8Wg+OMxz5EHy+tA8lE1g+8H7BDVc+lFls 8s8pkcBPKhaPIR8+pL109GraAwI/PVQalxPNhx5mPf5QE0nm4fRRkfhKPmQp eN8yKYDAVRdV/apq+BDvlvBjPv7k+Rq0cmS+jg/ptt12MfMj70vP8vOOtvKh 2ITkLi5f8rwYFzfl6+dDAqkB1Yc9CZx+aehewBIf2iy2+U+oC4EzrrsLOajx o3O5GV/CLAg8sdMq8PoGfnTjTOJTDfP/86c3+3gTP1rb8zu5zZT8vs2qL6xt /Ejyotgq8aPk80FO3HF9fsSmob105yC5nsVpaSNrfuSp8LBEXJfMt4uzumYk P3qm3XSsnUHmQ8Ek+Wg0P1riSfTfrUxgUeYOwYux/Oj5GuvGDEUyH/upPzIT +dHRCx0/fOUJfF8pPU85nR813ZfbuVKSrH//6E6JMn5kaaY99FGAwCGmtgc4 f/Kjsd8qGQ2zDJx6iGl5ZoEfRfm5L3XOkPdRA1PXymV+lG7zSGbgO3m/1d4b eYtDABWJvv317RsDWyqqtNMFBVBQx9Om4UEG3vjrh42CigCqEWBuv9jCwL1x gd57Tgsgc842kak3DKzJTEkLqRNA5fM+7y6dYWBBdceF140CKHTTDnVpW/I+ 7a++t6NFAA3O53yqOkXe3+ULh5S7BJDH0ZljIpYMvOpcq3TNiAB6pXhlbYIx Ay/5ch7gYhNE6n4Fc/uBgTupWiX7RAVRLSFrp7eGgeMYCRl1BwRRoKWawKMS ZeyP78QdeC+IVFf+sQucUsIHxU2f1igIITVkn+b7RxHvcq08IXRTCNnvsnWs +LsOJ0vYKHz+KYSITZq6jjUKWKHseYzRCWFknH3Cpum2PI5QKyWai4RRM9E1 cmy7HLafXdFUTdCRIotfnidTBttk/ZC5GU5HtrE3LP7ukcLOgUd/74+ko8qX C0bNW6Sw+9Hcdto9Okqo2Sj6mCGFQ3+6342IoaMKkQPbd/BJ4cxti8uxiXQU pPlAVb9VEi+W/Gt79pKOvF6v5a49LYkjmml3yivpaPnwcnq+twQ5D10cb1TT 0aaDWQc2OEvgx5frd++rpSMBivPVZ1YS+K1IxFJtPR3xuy/n3kISmHmc7tjy hY5CA57Zb+eSwEqDorsHBukoi7NfRCNSHG/I9ZZ6MkxHXT68q0MCxfH2692L Z0bpiCvOalf3JXFsqJT45us4HWUf8jDxMxPHF8/JSM3M0FFGzKeyN+Li2Hfn tcXsWTry86qNWKSJ4+t8A62Xf9JRsbflLPorhuNeP761sEBHyZH+2bUsMZwa sMKhYImO7D2DVQWaxfDLI2d0fX/Tkaj/kseRMjGcK1chqfOXjuT2WKVE5Yrh olnFxX//6MhV+3Jh81Mx/B+2SQ9E "]]}, Annotation[#, "Charting`Private`Tag$5198#2"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {Automatic, Automatic}, 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 -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Times New Roman", FontSize -> 20}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"\"", TraditionalForm], None}, { FormBox["\"t (s)\"", TraditionalForm], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.4, 0.5], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImageSize -> 750, LabelStyle -> {FontFamily -> "Times New Roman", FontSize -> 20}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 5}, {-13.419063362035804`, 4.914192926120555}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"q\"", "\"\[Theta] (rad)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[5, 64], 0.078125], NCache[ Rational[129, 256], 0.50390625], NCache[ Rational[93, 128], 0.7265625]]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.21] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Times New Roman", FontSize -> 20, Opacity[1.], AbsoluteThickness[1.6], RGBColor[ NCache[ Rational[15, 16], 0.9375], NCache[ Rational[29, 128], 0.2265625], NCache[ Rational[71, 256], 0.27734375]]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.21] -> 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 -> "Times New Roman", FontSize -> 20, FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ Rational[5, 64], Rational[129, 256], Rational[93, 128]], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.052083333333333336`, 0.3359375, 0.484375], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[5/64, 129/256, 93/128]"], 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[ Rational[5, 64], Rational[129, 256], Rational[93, 128]]; 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[ Rational[5, 64], Rational[129, 256], Rational[93, 128]], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ Rational[15, 16], Rational[29, 128], Rational[71, 256]], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.625, 0.15104166666666666`, 0.18489583333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[15/16, 29/128, 71/256]"], 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[ Rational[15, 16], Rational[29, 128], Rational[71, 256]]; 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[ Rational[15, 16], Rational[29, 128], Rational[71, 256]], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Times New Roman\""}], ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 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.768749251579438*^9, 3.768749259626295*^9}, { 3.768749345165037*^9, 3.7687493511919603`*^9}, {3.768749389974461*^9, 3.768749460171976*^9}, 3.768749579716856*^9, {3.768749610467504*^9, 3.768749668788149*^9}, 3.768749711220215*^9, 3.768749752542899*^9, { 3.768749790366544*^9, 3.768749794960458*^9}, {3.768749970826703*^9, 3.7687499913144836`*^9}, 3.7687500736680527`*^9, {3.768750202090612*^9, 3.768750242769392*^9}, {3.769430021974352*^9, 3.769430072894985*^9}},ExpressionUUID->"b6aad9e2-42fc-4200-a5f8-\ 2f5e145c5399"] }, Open ]] }, Open ]] }, WindowSize->{1280, 751}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 3862, 77, 126, "Code",ExpressionUUID->"3dc4537a-78a7-4dd8-b33c-46fce2eb1b37"], Cell[CellGroupData[{ Cell[4445, 101, 220, 4, 67, "Section",ExpressionUUID->"3b02634e-db8e-4b4d-a0f4-259874cc52a5"], Cell[CellGroupData[{ Cell[4690, 109, 4254, 125, 186, "Code",ExpressionUUID->"2f20fd96-e5be-4157-addd-4c198e94369a"], Cell[8947, 236, 993, 32, 68, "Output",ExpressionUUID->"ab039e9c-e462-4508-85ea-5bdf82e2a91d"], Cell[9943, 270, 1311, 40, 60, "Output",ExpressionUUID->"8a20be76-d33f-4a38-b7c2-2afd97480aa3"] }, Open ]], Cell[CellGroupData[{ Cell[11291, 315, 4333, 115, 366, "Code",ExpressionUUID->"9d758b88-8009-4167-982a-e2c2d2c93a89"], Cell[15627, 432, 2374, 62, 120, "Output",ExpressionUUID->"7b1bcec7-0806-4587-90e2-7222a8080c30"], Cell[18004, 496, 3722, 99, 142, "Output",ExpressionUUID->"93c03a73-9af6-467b-8e25-d429e5dc145c"] }, Open ]], Cell[CellGroupData[{ Cell[21763, 600, 1854, 53, 129, "Code",ExpressionUUID->"f3fbc677-5011-401a-a5c6-edd11580b8d8"], Cell[23620, 655, 8900, 255, 250, "Output",ExpressionUUID->"5b943ecd-8854-4509-9fbe-4cd2190fe04b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32569, 916, 155, 3, 67, "Section",ExpressionUUID->"adadc95a-b783-4fba-bfa1-54b9e1e51e6b"], Cell[CellGroupData[{ Cell[32749, 923, 7071, 190, 281, "Code",ExpressionUUID->"48ae5c23-a06c-4a22-921b-ebb369ef6226"], Cell[39823, 1115, 3379, 98, 120, "Output",ExpressionUUID->"22fc6ea4-6c58-4daa-825a-333fd04b5045"], Cell[43205, 1215, 26277, 507, 535, "Output",ExpressionUUID->"3c8e482e-bc7b-43db-9ef5-a1a6ec504374"], Cell[69485, 1724, 39323, 727, 505, "Output",ExpressionUUID->"8347d553-1b78-40e7-ac3b-b7d6ff1f14d2"], Cell[108811, 2453, 36795, 685, 499, "Output",ExpressionUUID->"b6aad9e2-42fc-4200-a5f8-2f5e145c5399"] }, Open ]] }, Open ]] } ] *)