(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 75950, 1415] NotebookOptionsPosition[ 59095, 1114] NotebookOutlinePosition[ 76035, 1417] CellTagsIndexPosition[ 75992, 1414] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = 0, $CellContext`c$$ = 0, $CellContext`ch$$ = {1, 2, 3}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`ch$$], {1, 2, 3}, Row[{ Spacer[250], Style[ "HYPERBOLIC PARABOLOID \!\(\*\nStyleBox[\"z\",\n\ FontSize->14]\)\!\(\*\nStyleBox[\"=\",\nFontSize->14]\)\!\(\*\n\ StyleBox[SuperscriptBox[\"x\", \"2\"],\nFontSize->14]\)\!\(\*\n\ StyleBox[\"-\",\nFontSize->14]\)\!\(\*\nStyleBox[SuperscriptBox[\"y\", \ \"2\"],\nFontSize->14]\) cut by ", 12, Bold]}]}, { 1 -> Style[ "z=\!\(\*\nStyleBox[\"a\",\nFontColor->RGBColor[0, 0, 1]]\) Plane ", 15, Bold], 2 -> Style["y=\!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[0, 1, 1]]\) \ Plane ", 15, Bold], 3 -> Style["x=\!\(\*\nStyleBox[\"c\",\nFontColor->RGBColor[0, 1, 0]]\) \ Plane", 15, Bold]}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*\nStyleBox[\"a\",\nFontColor->RGBColor[0, 0, 1]]\)", 13, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`a$$], 0, ""}, -40, 40}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[0, 1, 1]]\)", 13, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`b$$], 0, ""}, -10, 10}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*\nStyleBox[\"c\",\nFontColor->RGBColor[0, 1, 0]]\)", 13, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`c$$], 0, ""}, -10, 10}}, Typeset`size$$ = { 1090., {303., 308.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`ch$109555$$ = False, $CellContext`a$109556$$ = 0, $CellContext`b$109557$$ = 0, $CellContext`c$109558$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 0, $CellContext`c$$ = 0, $CellContext`ch$$ = {1, 2, 3}}, "ControllerVariables" :> { Hold[$CellContext`ch$$, $CellContext`ch$109555$$, False], Hold[$CellContext`a$$, $CellContext`a$109556$$, 0], Hold[$CellContext`b$$, $CellContext`b$109557$$, 0], Hold[$CellContext`c$$, $CellContext`c$109558$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`pz = If[ MemberQ[$CellContext`ch$$, 1], Plot3D[$CellContext`a$$, {$CellContext`x, -20, 20}, {$CellContext`y, -20, 20}, Mesh -> None, PlotStyle -> { Glow[Blue], Opacity[0.3]}], Graphics3D[]]; $CellContext`py = If[ MemberQ[$CellContext`ch$$, 2], ParametricPlot3D[{$CellContext`x, $CellContext`b$$, \ $CellContext`z}, {$CellContext`x, -20, 20}, {$CellContext`z, -150, 150}, Mesh -> None, PlotStyle -> { Glow[Cyan], Opacity[0.3]}], Graphics3D[]]; $CellContext`px = If[ MemberQ[$CellContext`ch$$, 3], ParametricPlot3D[{$CellContext`c$$, $CellContext`y, \ $CellContext`z}, {$CellContext`y, -20, 20}, {$CellContext`z, -150, 150}, Mesh -> None, PlotStyle -> {Green, Opacity[0.3]}], Graphics3D[]]; $CellContext`t3z = If[ MemberQ[$CellContext`ch$$, 1], If[$CellContext`a$$ > 0, ParametricPlot3D[{{ Abs[$CellContext`a$$]^Rational[1, 2] Cosh[$CellContext`t], Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t], $CellContext`a$$}, {(- Abs[$CellContext`a$$]^Rational[1, 2]) Cosh[$CellContext`t], Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t], $CellContext`a$$}}, {$CellContext`t, -10, 10}, PlotStyle -> {{Red, Thick}, {Red, Thick}}, MaxRecursion -> 9], If[$CellContext`a$$ < 0, ParametricPlot3D[{{ Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t], Abs[$CellContext`a$$]^Rational[1, 2] Cosh[$CellContext`t], $CellContext`a$$}, { Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t], (-Abs[$CellContext`a$$]^Rational[1, 2]) Cosh[$CellContext`t], $CellContext`a$$}}, {$CellContext`t, -10, 10}, PlotStyle -> {{Red, Thick}, {Red, Thick}}], ParametricPlot3D[{{$CellContext`t, $CellContext`t, \ $CellContext`a$$}, {-$CellContext`t, $CellContext`t, $CellContext`a$$}}, \ {$CellContext`t, -10, 10}, PlotStyle -> {{Red, Thick}, {Red, Thick}}]]], Graphics3D[]]; $CellContext`t3y = If[ MemberQ[$CellContext`ch$$, 2], ParametricPlot3D[{$CellContext`x, $CellContext`b$$, \ $CellContext`x^2 - $CellContext`b$$^2}, {$CellContext`x, -10, 10}, PlotStyle -> {Magenta, Thick}], Graphics3D[]]; $CellContext`t3x = If[ MemberQ[$CellContext`ch$$, 3], ParametricPlot3D[{$CellContext`c$$, $CellContext`y, \ $CellContext`c$$^2 - $CellContext`y^2}, {$CellContext`y, -10, 10}, PlotStyle -> {Orange, Thick}], Graphics3D[]]; $CellContext`t2z = If[ MemberQ[$CellContext`ch$$, 1], If[$CellContext`a$$ > 0, ParametricPlot[{{ Abs[$CellContext`a$$]^Rational[1, 2] Cosh[$CellContext`t], Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t]}, {(-Abs[$CellContext`a$$]^Rational[1, 2]) Cosh[$CellContext`t], Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t]}}, {$CellContext`t, -10, 10}, PlotStyle -> {{Red, Thick}, {Red, Thick}}], If[$CellContext`a$$ < 0, ParametricPlot[{{ Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t], Abs[$CellContext`a$$]^Rational[1, 2] Cosh[$CellContext`t]}, { Abs[$CellContext`a$$]^Rational[1, 2] Sinh[$CellContext`t], (-Abs[$CellContext`a$$]^Rational[1, 2]) Cosh[$CellContext`t]}}, {$CellContext`t, -10, 10}, PlotStyle -> {{Red, Thick}, {Red, Thick}}], ParametricPlot[{{$CellContext`t, $CellContext`t}, \ {-$CellContext`t, $CellContext`t}}, {$CellContext`t, -10, 10}, PlotStyle -> {{Red, Thick}, {Red, Thick}}]]], Graphics[]]; $CellContext`t2y = If[ MemberQ[$CellContext`ch$$, 2], ParametricPlot[{$CellContext`x, $CellContext`x^2 - \ $CellContext`b$$^2}, {$CellContext`x, -10, 10}, PlotStyle -> {Magenta, Thick}], Graphics[]]; $CellContext`t2x = If[ MemberQ[$CellContext`ch$$, 3], ParametricPlot[{$CellContext`y, $CellContext`c$$^2 - \ $CellContext`y^2}, {$CellContext`y, -10, 10}, PlotStyle -> {Orange, Thick}], Graphics[]]; $CellContext`Tz = If[ MemberQ[$CellContext`ch$$, 1], Row[{ Style[ "\!\(\*\nStyleBox[\"Trace\",\nFontColor->RGBColor[1, 0, 0]]\) in \ z=", 15, Bold], Style[$CellContext`a$$, 15, Bold], Style[ " \!\(\*\nStyleBox[\"Plane\",\nFontColor->RGBColor[0, 0, 1]]\):", 15, Bold], Row[{ If[$CellContext`a$$ == 0, Style[" pair of lines y=\[PlusMinus]x", 15, Bold], Style[ " hyperbola \!\(\*SuperscriptBox[\(x\), \ \(2\)]\)-\!\(\*SuperscriptBox[\(y\), \(2\)]\)=", 15, Bold]], If[$CellContext`a$$ == 0, "", Style[$CellContext`a$$, 15, Bold]]}]}], ""]; $CellContext`Ty = If[ MemberQ[$CellContext`ch$$, 2], Row[{ Style[ "\!\(\*\nStyleBox[\"Trace\",\nFontColor->RGBColor[1, 0, 1]]\) in \ y=", 15, Bold], Style[$CellContext`b$$, 15, Bold], Style[ " \!\(\*\nStyleBox[\"Plane\",\nFontColor->RGBColor[0, 1, 1]]\): \ parabola z=", 15, Bold], Style[$CellContext`x^2 - $CellContext`b$$^2, 15, Bold]}], ""]; $CellContext`Tx = If[ MemberQ[$CellContext`ch$$, 3], Row[{ Style[ "\!\(\*\nStyleBox[\"Trace\",\nFontColor->RGBColor[1, 0.5, 0]]\) \ in x=", 15, Bold], Style[$CellContext`c$$, 15, Bold], Style[ " \!\(\*\nStyleBox[\"Plane\",\nFontColor->RGBColor[0, 1, 0]]\): \ parabola z=", 15, Bold], Style[$CellContext`c$$^2 - $CellContext`y^2, 15, Bold]}], ""]; Framed[ Pane[ Row[{ Framed[ Show[ Plot3D[ $CellContext`f[$CellContext`x, $CellContext`y], \ {$CellContext`x, -10, 10}, {$CellContext`y, -10, 10}, PlotStyle -> {Yellow, Opacity[0.5]}], Graphics3D[{ PointSize[0.02], Point[{0, 0, 0}]}], $CellContext`pz, $CellContext`py, $CellContext`px, \ $CellContext`t3z, $CellContext`t3y, $CellContext`t3x, PlotRange -> {{-15, 15}, {-15, 15}, Automatic}, Axes -> True, AxesLabel -> {"X", "Y", "Z"}, ImageSize -> {590, 590}]], Null, Null, Column[{ Framed[ Column[{$CellContext`Tz, $CellContext`Ty, $CellContext`Tx}, Center]], "", Framed[ Show[ Graphics[{ PointSize[0.02], Point[{0, 0}]}], $CellContext`t2z, $CellContext`t2y, \ $CellContext`t2x, Axes -> True, AxesOrigin -> {0, 0}, AxesLabel -> { Style[ "\!\(\*\nStyleBox[\"\[FilledSmallSquare]\",\n\ FontColor->RGBColor[1, 0, 0]]\)x\!\(\*\nStyleBox[\"\[FilledSmallSquare]\",\n\ FontColor->RGBColor[1, 0, 1]]\)x\!\(\*\nStyleBox[\"\[FilledSmallSquare]\",\n\ FontColor->RGBColor[1, 0.5, 0]]\)y", Bold, 15], Style[ "\!\(\*\nStyleBox[\"\[FilledSmallSquare]\",\n\ FontColor->RGBColor[1, 0, 0]]\)y\!\(\*\nStyleBox[\"\[FilledSmallSquare]\",\n\ FontColor->RGBColor[1, 0, 1]]\)z\!\(\*\nStyleBox[\"\[FilledSmallSquare]\",\n\ FontColor->RGBColor[1, 0.5, 0]]\)z", Bold, 15]}, PlotRange -> {{-10, 10}, {-10, 10}}, ImageSize -> {450, 500}]]}, Center]}], ImageSize -> {1080, 600}, Alignment -> {Center, Center}]]), "Specifications" :> {{{$CellContext`ch$$, {1, 2, 3}, Row[{ Spacer[250], Style[ "HYPERBOLIC PARABOLOID \!\(\*\nStyleBox[\"z\",\nFontSize->14]\)\ \!\(\*\nStyleBox[\"=\",\nFontSize->14]\)\!\(\*\n\ StyleBox[SuperscriptBox[\"x\", \"2\"],\nFontSize->14]\)\!\(\*\n\ StyleBox[\"-\",\nFontSize->14]\)\!\(\*\nStyleBox[SuperscriptBox[\"y\", \ \"2\"],\nFontSize->14]\) cut by ", 12, Bold]}]}, { 1 -> Style[ "z=\!\(\*\nStyleBox[\"a\",\nFontColor->RGBColor[0, 0, 1]]\) Plane \ ", 15, Bold], 2 -> Style["y=\!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[0, 1, 1]]\) \ Plane ", 15, Bold], 3 -> Style["x=\!\(\*\nStyleBox[\"c\",\nFontColor->RGBColor[0, 1, 0]]\) \ Plane", 15, Bold]}, ControlType -> CheckboxBar}, "", "", Style[ " \!\(\*\nStyleBox[\"a\",\nFontColor->RGBColor[0, 0, 1]]\)", 13, Bold], {{$CellContext`a$$, 0, ""}, -40, 40, ControlType -> VerticalSlider, ImageSize -> {15, 100}}, "", Delimiter, "", Style[ " \!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[0, 1, 1]]\)", 13, Bold], {{$CellContext`b$$, 0, ""}, -10, 10, ControlType -> VerticalSlider, ImageSize -> {15, 100}}, "", Delimiter, "", Style[ " \!\(\*\nStyleBox[\"c\",\nFontColor->RGBColor[0, 1, 0]]\)", 13, Bold], {{$CellContext`c$$, 0, ""}, -10, 10, ControlType -> VerticalSlider, ImageSize -> {15, 100}}}, "Options" :> { ControlPlacement -> { Top, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left}, TrackedSymbols -> Manipulate, FrameLabel -> { "\!\(\*\nStyleBox[\"\[Copyright]\",\nFontSize->14]\)\!\(\*\n\ StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"N\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\".\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Bykov\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\",\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"SJ\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Delta\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"College\",\n\ FontColor->RGBColor[0, 0, 1]]\)"}}, "DefaultOptions" :> {}], ImageSizeCache->{1160., {354., 359.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`pz = Graphics3D[ GraphicsComplex[CompressedData[" 1:eJx12L+KFVcAwOFFwUbwD0KSUkGsbFTS33LT5hFES7E2VZ5hC2sbQUSwsTTh kAcIlkKaPEQKrVT2+ssw3+EsXIbzMXvmzG+4s8u59fDpr48vnJycfP72ufjt 8/Prax++fHkwOp6c//x0GKdXbp7dvjf5879//Pf07O7kby7f+P3JP3cm/+t8 nluTvz0//4fJ3537pcmPx//e6y+O5x/0l8f5J//juJ7JXx3XP/nZ8X4n//PY Z/Lv45WPutpZr7NeZ73Oep31Out11uus11mvs15nvc56nfU6L3zUz856Y73O ep31Out11uus11mvs15nvc56nfU663Ve+KiTnfV+X2+s11mvs15nvc56nfU6 63XW66zXWa+zXueFj3rYWa+z3rx6Y73Oep31Out11uus11mvs15nvc56nRc+ um8763XW66x3Pb2xXme9znqd9TrrddbrrNdZr7Ne54WP7s/Oep31Out11luH 3livs15nvc56nfU663XW66zXeeGj+7Czvn+/b75/H22+//5svn/em+/Xt/l+ vHmd9TrrddbrrNdZr7Ne54WP/Xq3znqd9TrrddbrrNdZb916Y73Oep31Out1 1uus13nhY//8t856nfU663XW66zXWa+z3v3ojfU663XW66zXWa/zwsf++7R1 1uus11mvs15nvc56nfU6692n3livs15nvc56nRc+9u+nrbNeZ73Oep31Out1 1uus11mvs9796431Out11uu88LF/32+d9TrrddbrrNdZr7NeZ73Oep31Out1 0RvrddbrvPCx//u5ddbrrNdZr7NeZ73Oep31Out11uus11mvl95Yr/PCx/7/ kWm/buqss183ddbZr5s663XW2a+bOuvs102ddfbrps46+3X/+2/Prn46Pbs/ Otpf/z4+LM6fnPmn56sz/+Sr9bsPyfnTelZ9vO7H69ce3f7lweiIHxbe+c5z 0Fvfan7X33mr9S+uO/Xh/Om5r9bvdb8CSWiRJA== "], {{{ EdgeForm[], Glow[ RGBColor[0, 0, 1]], Opacity[0.3], GraphicsGroup[{ Polygon[CompressedData[" 1:eJwBCQX2+iFib1JiAgAAAKgBAAADAAAA4gIRFQUGEgIDEwMEFgYHFwcIGgoL HAwNGAgJGQkKFAQFKhobGwsMKRkaIxMUIBARIRESJBQVJRUWKBgZ7+XkJhYX JxcYHQ0OKxscLBwdPy8wRzc4MSEiLR0eMiIjNCQlNycoMyMkNSUmNiYnLx8g MCAhOCgpOSkqQDAxPCwtPi4vQTEyIhITQjIzRDQ1OiorOyssQzM0RTU2gHBx RjY3f29wTj4/Sjo7Szs8Tz9AUEBBU0NEVUVGUUFCUkJDTT0+Y1NUVERFYlJT XExNWEhJWUlKXU1OXk5PYVFSV0dIX09QYFBRVkZHZFRVZVVWd2doSTk6aVla ZlZXa1tcbV1ecGBhbFxdbl5fb19gZ1dYaFhZcWFicmJjeGhpdWVmdmZnempr SDg5e2tsfW1uc2NkdGRlfGxtfm5vWkpLgXFyzb2+hnZ3g3N0hHR1nIyNh3d4 inp7i3t8jHx9jX1+hXV2iXl6jn5/kICBlYWGkoKDk4OEloaHmIiJm4uMkYGC mYmKmoqLj3+A8PjnnY2On4+Qo5OUoJCRoZGSno6PpJSVp5eYqJiZqZmaqpqb opKTq5ucrJydrZ2er5+gsKChsaGisqKjlISFs6OkuKiprp6ftqant6eotKSl gnJzuamqu6uswLCxva2uvq6vwbGywrKzxra3yLi5w7O0xbW2v6+w1sbHx7e4 1cXGzr6/y7u8zLy9z7/A0MDB5sXUyrq70cHC0sLDybm618fI2MjJCBgXvKyt 3MzN2cnK3c3O38/Q4+IQ3s7P4NDR7ejS2srL28vMAhIRAxMSCRkYBhYVBxcW ChoZuqqrCxsaDR0cBBQTBRUUDBwb5B0OECAfESEgEiIhFCQjFSUkFiYlFycm GCgnGSkoGiopGysqHCwrHS0sHy8uIDAvITEwIjIxIzMyJDQzJTU0JjY1Jzc2 KDg3KTk4Kjo5Kzs6LDw7Lj49Lz8+M0NCMEA/MUFASVlYNERDNkZFN0dGOEhH OUlIMkJBOkpJO0tKPU1MP09OQFBPQVFQQlJRSFhXQ1NSR1dWPk5NRVVURlZV RFRTNUVESlpZbn59TV1cTl5dT19eUGBfUWFgUmJhU2NiVGRjVWVkVmZlV2dm WGhnWWloW2tqXGxrXW1sXm5tX29uYHBvYXFwYnJxY3NyZHRzZXV0ZnZ1Z3d2 bHx7aHh3anp5TFxbbX18b39+cIB/cYGAcoKBa3t6c4OCdISDdYWEd4eGeYmI eoqJe4uKgZGQfIyLgJCPdoaFfo6Nf4+OfY2MEyMigpKRhJSTiZmYhZWUhpaV ipqZi5uajp6dkKCfjJybjZ2ciJiXnq6tj5+ena2sl6emk6OilKSjmKinmamo nKyrkqKhmqqpm6uqkaGgn6+uoLCvssLBu8vKpLSzobGwpra1qLi3q7u6p7e2 qbm4qrq5orKxo7OyrLy7rb28s8PCsMC/scHAtcXElaWktsbFuMjHrr69r7++ t8fGucnIusrJvMzLg5OSwdHQvs7Nv8/OwtLR8Ofmx9fWydnYxdXUxtbVwNDP yNjXytrZ6+QOzNzbzd3czt7dz9/eHeQe0ODf8u7jy9va7uriEOIR6ODRpZWW 5OUe+fHhvc3M8eno7ObU6Ong8+/r9u4B4uoC9PDs9fHt5ufE0ujR4+7i9+8P 7vIB7PDm7fHo7/MPxebE8PTT7vbq6+/k+PDT8fXh7/fl8fnpl2heKQ== "]]}]}, {}, {}, {}, {}}, {{ GrayLevel[0], Line[{246, 1, 242, 227, 16, 31, 46, 61, 76, 91, 106, 121, 136, 151, 166, 181, 196, 231, 248, 211, 244, 236, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 233, 249, 225, 245, 237, 210, 195, 180, 165, 150, 135, 120, 105, 90, 75, 60, 45, 30, 229, 247, 15, 243, 235, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 234, 246}]}}}, VertexNormals -> CompressedData[" 1:eJztyLENABAUQMEfJjGJHYwgUVtdq6MXG9xLXnOlzzZSROx7jl+rcs4555xz zjnnnHPOOef89QMOQClu "]], { Axes -> True, BoxRatios -> {1, 1, 0.4}, Method -> {"RotationControl" -> "Globe"}, PlotRange -> {{-20, 20}, {-20, 20}, {0., 12.}}, PlotRangePadding -> { Scaled[0.02], Scaled[0.02], Scaled[0.02]}}], $CellContext`py = Graphics3D[ GraphicsComplex[CompressedData[" 1:eJx1mD1rlEEYRRcFG9EkKrESDCxWNn5M7TQDazcGprEaQxQtgrZa6R+w2MJW GyFIwEYsxI9gZ6OCjWgjCNYWFtoYdXfvBu/DeWGbwzA779mbm5lZWbu+ennP YDD49fez9+8nPVp8v7NzZvvGlX/Pt3Pj+wsfdl6tbW+PDh4fD08Ffu/t0S+j 8cnAt/Yfvr3x+UTgryfzrAT+eDJ+OfAnE74v8MHk+fHc+YPp+Oz84XT+wF9M 1xP45nT9gY+n7xv4y6mfwGc+ic/f6+z6gd+jQz14FnfP4u5Z3D2Lu2dx9yzu nsXds7h7FnfP4u5Z3D2Lu2dx92x8/l5bF5ZXh28uBs/i7lncPYu7Z3H3LO6e xd2zuHsWd8/i7lncPYu7Z3H3LO6ejc/f6/unpc2nGy14FnfP4u5Z3D2Lu2dx 9yzunsXds7h7FnfP4u5Z3D2Lu2dx92zc/k4r9EaF3qjQGxV6o0JvVOiNCr1R oTcq9EaF3qjQGxV6o0JvVOiNCnkukOcCeS6Q5wJ5LpDnAnkukOcCeS6Q5wJ5 LpDnAnkukOcCeS7gOYHnBJ4TeE7gOYHnBJ4TeE7gOYHnBJ4TeE7gOYHnBJ5T 8DyYPe5Z3D2Lu2dx9yzunsXd8+C/Z9eziHsWd8/i7lncPYu7Z3H3LO6ejXt+ MuQ5Q54z5DlDnjPkOUOeM+Q5Q54z5DlDnjPkOUOeM+Q5Q54z9DN4LuC5gOcC ngt4LuC5gOcCngt4LuC5gOcCngt4LuC5BM+z/4/BszjsN4JncdhvBM/isN8I nsVhvxE8i8N+I3gWh/1G8CwO+w3Ic4M8N8hzgzw3yHODPDfIc4M8N8hzgzw3 yHODPDfIc4M8N8hzC55n55fgWRzOg8GzOJwHg2dxOA8Gz+JwHgyexeE8GDyL w3kweBaH8yD0Rofe6NAbHXqjQ2906I0OvdGhNzr0Rofe6NAbHXqjQ2906I0O vdGD59n9UvAsDvd1wbM43NcFz+JwXxc8i8N9XfAsDvd1wbM43NcFz+JwX5dv 3Vz4ORqfnr/X1zt3rw6vXQr7avHZ+AzjA4f5w+8rDvMHTuvXPSSMD+shP/re j0uL68Pzu+t8tvju2PjI2vaMZ+A+PsP44IHm1/p9flq/fW/wA+PD707r1/f+ Ae65GvI= "], {{{ EdgeForm[], Glow[ RGBColor[0, 1, 1]], Opacity[0.3], GraphicsGroup[{ Polygon[CompressedData[" 1:eJwBCQX2+iFib1JiAgAAAKgBAAADAAAA4gIRFQUGEgIDEwMEFgYHFwcIGgoL HAwNGAgJGQkKFAQFKhobGwsMKRkaIxMUIBARIRESJBQVJRUWKBgZ7+XkJhYX JxcYHQ0OKxscLBwdPy8wRzc4MSEiLR0eMiIjNCQlNycoMyMkNSUmNiYnLx8g MCAhOCgpOSkqQDAxPCwtPi4vQTEyIhITQjIzRDQ1OiorOyssQzM0RTU2gHBx RjY3f29wTj4/Sjo7Szs8Tz9AUEBBU0NEVUVGUUFCUkJDTT0+Y1NUVERFYlJT XExNWEhJWUlKXU1OXk5PYVFSV0dIX09QYFBRVkZHZFRVZVVWd2doSTk6aVla ZlZXa1tcbV1ecGBhbFxdbl5fb19gZ1dYaFhZcWFicmJjeGhpdWVmdmZnempr SDg5e2tsfW1uc2NkdGRlfGxtfm5vWkpLgXFyzb2+hnZ3g3N0hHR1nIyNh3d4 inp7i3t8jHx9jX1+hXV2iXl6jn5/kICBlYWGkoKDk4OEloaHmIiJm4uMkYGC mYmKmoqLj3+A8PjnnY2On4+Qo5OUoJCRoZGSno6PpJSVp5eYqJiZqZmaqpqb opKTq5ucrJydrZ2er5+gsKChsaGisqKjlISFs6OkuKiprp6ftqant6eotKSl gnJzuamqu6uswLCxva2uvq6vwbGywrKzxra3yLi5w7O0xbW2v6+w1sbHx7e4 1cXGzr6/y7u8zLy9z7/A0MDB5sXUyrq70cHC0sLDybm618fI2MjJCBgXvKyt 3MzN2cnK3c3O38/Q4+IQ3s7P4NDR7ejS2srL28vMAhIRAxMSCRkYBhYVBxcW ChoZuqqrCxsaDR0cBBQTBRUUDBwb5B0OECAfESEgEiIhFCQjFSUkFiYlFycm GCgnGSkoGiopGysqHCwrHS0sHy8uIDAvITEwIjIxIzMyJDQzJTU0JjY1Jzc2 KDg3KTk4Kjo5Kzs6LDw7Lj49Lz8+M0NCMEA/MUFASVlYNERDNkZFN0dGOEhH OUlIMkJBOkpJO0tKPU1MP09OQFBPQVFQQlJRSFhXQ1NSR1dWPk5NRVVURlZV RFRTNUVESlpZbn59TV1cTl5dT19eUGBfUWFgUmJhU2NiVGRjVWVkVmZlV2dm WGhnWWloW2tqXGxrXW1sXm5tX29uYHBvYXFwYnJxY3NyZHRzZXV0ZnZ1Z3d2 bHx7aHh3anp5TFxbbX18b39+cIB/cYGAcoKBa3t6c4OCdISDdYWEd4eGeYmI eoqJe4uKgZGQfIyLgJCPdoaFfo6Nf4+OfY2MEyMigpKRhJSTiZmYhZWUhpaV ipqZi5uajp6dkKCfjJybjZ2ciJiXnq6tj5+ena2sl6emk6OilKSjmKinmamo nKyrkqKhmqqpm6uqkaGgn6+uoLCvssLBu8vKpLSzobGwpra1qLi3q7u6p7e2 qbm4qrq5orKxo7OyrLy7rb28s8PCsMC/scHAtcXElaWktsbFuMjHrr69r7++ t8fGucnIusrJvMzLg5OSwdHQvs7Nv8/OwtLR8Ofmx9fWydnYxdXUxtbVwNDP yNjXytrZ6+QOzNzbzd3czt7dz9/eHeQe0ODf8u7jy9va7uriEOIR6ODRpZWW 5OUe+fHhvc3M8eno7ObU6Ong8+/r9u4B4uoC9PDs9fHt5ufE0ujR4+7i9+8P 7vIB7PDm7fHo7/MPxebE8PTT7vbq6+/k+PDT8fXh7/fl8fnpl2heKQ== "]]}]}, {}, {}, {}, {}}}, VertexNormals -> CompressedData[" 1:eJztyKENACEQAMELVEJLlECCpkRawuJAIf5bmE3WTGmj9hQR+57j25o/4pxz zjnnnHPOOeecc8758wNKE6Xu "]], { Axes -> True, PlotRange -> {{-19.999997142857143`, 19.999997142857143`}, {0., 1.4000000000000021`}, {-149.99997857142858`, 149.99997857142858`}}, PlotRangePadding -> { Scaled[0.02], Scaled[0.02], Scaled[ 0.02]}}], $CellContext`z = $CellContext`x^2, $CellContext`px = Graphics3D[ GraphicsComplex[CompressedData[" 1:eJx1mDFrFFEYRRcFG9EkKrESDCxWNhqnf82D2I2BaazWEEGLYK2V/gGLLUQr bYQgARuxEDWDnY0KNqKN4B9QsNDGqLt7lT2XOzDN4fHmzZm73773rWxcW7+8 bzAY/Pxz7/9z37339/q22zxafLe3t9qP7y+839vd6MX7tcMnx8Mzxu+8Of55 bXza+M7Boze3Pp0y/moyz4rxx5Pxy8afTPgB44PJ9f05+YPp+EL+cDq/8RfT 9Rjfnq7f+Hj6vsZfTv0Yn/lMvD+3eejX2pGReSaXZ3J5Jpdncnkml2dyeSaX Z3J5Jpdncnkml2dyeSaX58D7nQvL68PXF80zuTyTyzO5PJPLM7k8k8szuTyT yzO5PJPLM7k8k8szuTwH3n/9uLT9dKszz+TyTC7P5PJMLs/k8kwuz+TyTC7P 5PJMLs/k8kwuz+TyHPjsd9qGutGaZ/L5utGaZ/L5utGaZ/L5utGaZ/L5utGa Z/L5utGaZ/L5utGa58Bn+akhzzXkuYY815DnGvJcQ55ryHMNea4hzzXkuYY8 15DnGvJcQ56Nz96rCZ6b4LkJnpvguQmem+C5CZ6b4LkJnpvguQmem+C5CZ6b 4Nl4P5hd9Ewuz+TyTC7P5PJMLs/k8kwuz+TyTC7P5PJMLs/k8kwuz4ErPyXk uYQ8l5DnEvJcQp5LyHMJeS4hzyXkuYQ8l5DnEvJcQp5LyDO56mHwXIPnGjzX 4LkGzzV4rsFzDZ5r8FyD5xo81+C5Bs81eDau/3fzTI79hnkmx37DPJNjv2Ge ybHfMM/k2G+YZ3LsN8wzOfYbIc9dyHMX8tyFPHchz13Icxfy3IU8dyHPXchz F/LchTx3Ic9dyHMX8mxc5y/zTI7zoHkmx3nQPJPjPGieyXEeNM/kOA+aZ3Kc B80zOc6DoW6MQt0YmWdy9DdC3RiZZ3L0N0LdGJlncvQ3Qt0YmWdy9DdC3RiZ 58DVHzPP5OjXmWdy9OvMMzn6deaZHP0680yOfp15Jke/zjyTo1/3j9+4vvBj bXy2/3Lr9pXh1Uu2ryafjS9hvHHMb9+XHPMbT+tnHxLjbT3JD5/7YWlxc3h+ tX+2+PbE+Nj/eWa8BK7xnKeQy0Oan+vX/Gn94bnmB+Ptu6f167m/AUzRwSM= "], {{{ EdgeForm[], RGBColor[0, 1, 0], Opacity[0.3], GraphicsGroup[{ Polygon[CompressedData[" 1:eJwBCQX2+iFib1JiAgAAAKgBAAADAAAA4gIRFQUGEgIDEwMEFgYHFwcIGgoL HAwNGAgJGQkKFAQFKhobGwsMKRkaIxMUIBARIRESJBQVJRUWKBgZ7+XkJhYX JxcYHQ0OKxscLBwdPy8wRzc4MSEiLR0eMiIjNCQlNycoMyMkNSUmNiYnLx8g MCAhOCgpOSkqQDAxPCwtPi4vQTEyIhITQjIzRDQ1OiorOyssQzM0RTU2gHBx RjY3f29wTj4/Sjo7Szs8Tz9AUEBBU0NEVUVGUUFCUkJDTT0+Y1NUVERFYlJT XExNWEhJWUlKXU1OXk5PYVFSV0dIX09QYFBRVkZHZFRVZVVWd2doSTk6aVla ZlZXa1tcbV1ecGBhbFxdbl5fb19gZ1dYaFhZcWFicmJjeGhpdWVmdmZnempr SDg5e2tsfW1uc2NkdGRlfGxtfm5vWkpLgXFyzb2+hnZ3g3N0hHR1nIyNh3d4 inp7i3t8jHx9jX1+hXV2iXl6jn5/kICBlYWGkoKDk4OEloaHmIiJm4uMkYGC mYmKmoqLj3+A8PjnnY2On4+Qo5OUoJCRoZGSno6PpJSVp5eYqJiZqZmaqpqb opKTq5ucrJydrZ2er5+gsKChsaGisqKjlISFs6OkuKiprp6ftqant6eotKSl gnJzuamqu6uswLCxva2uvq6vwbGywrKzxra3yLi5w7O0xbW2v6+w1sbHx7e4 1cXGzr6/y7u8zLy9z7/A0MDB5sXUyrq70cHC0sLDybm618fI2MjJCBgXvKyt 3MzN2cnK3c3O38/Q4+IQ3s7P4NDR7ejS2srL28vMAhIRAxMSCRkYBhYVBxcW ChoZuqqrCxsaDR0cBBQTBRUUDBwb5B0OECAfESEgEiIhFCQjFSUkFiYlFycm GCgnGSkoGiopGysqHCwrHS0sHy8uIDAvITEwIjIxIzMyJDQzJTU0JjY1Jzc2 KDg3KTk4Kjo5Kzs6LDw7Lj49Lz8+M0NCMEA/MUFASVlYNERDNkZFN0dGOEhH OUlIMkJBOkpJO0tKPU1MP09OQFBPQVFQQlJRSFhXQ1NSR1dWPk5NRVVURlZV RFRTNUVESlpZbn59TV1cTl5dT19eUGBfUWFgUmJhU2NiVGRjVWVkVmZlV2dm WGhnWWloW2tqXGxrXW1sXm5tX29uYHBvYXFwYnJxY3NyZHRzZXV0ZnZ1Z3d2 bHx7aHh3anp5TFxbbX18b39+cIB/cYGAcoKBa3t6c4OCdISDdYWEd4eGeYmI eoqJe4uKgZGQfIyLgJCPdoaFfo6Nf4+OfY2MEyMigpKRhJSTiZmYhZWUhpaV ipqZi5uajp6dkKCfjJybjZ2ciJiXnq6tj5+ena2sl6emk6OilKSjmKinmamo nKyrkqKhmqqpm6uqkaGgn6+uoLCvssLBu8vKpLSzobGwpra1qLi3q7u6p7e2 qbm4qrq5orKxo7OyrLy7rb28s8PCsMC/scHAtcXElaWktsbFuMjHrr69r7++ t8fGucnIusrJvMzLg5OSwdHQvs7Nv8/OwtLR8Ofmx9fWydnYxdXUxtbVwNDP yNjXytrZ6+QOzNzbzd3czt7dz9/eHeQe0ODf8u7jy9va7uriEOIR6ODRpZWW 5OUe+fHhvc3M8eno7ObU6Ong8+/r9u4B4uoC9PDs9fHt5ufE0ujR4+7i9+8P 7vIB7PDm7fHo7/MPxebE8PTT7vbq6+/k+PDT8fXh7/fl8fnpl2heKQ== "]]}]}, {}, {}, {}, {}}}, VertexNormals -> CompressedData[" 1:eJztyLEJwCAARcFPnMRJsoMjCNaubmuXNEKKjHAPXnO1zzauJPu95LTu/MY5 55xzzjnnnHPOOeec828Per4pbg== "]], { Axes -> True, PlotRange -> {{-2.1999999999999993`, 0.}, {-19.999997142857143`, 19.999997142857143`}, {-149.99997857142858`, 149.99997857142858`}}, PlotRangePadding -> { Scaled[0.02], Scaled[0.02], Scaled[0.02]}}], $CellContext`t3z = Graphics3D[{{{}, {}, { RGBColor[1, 0, 0], Thickness[Large], Line[CompressedData[" 1:eJxd1GtMk2cUwPFibct0QIUy2LjJcCUQRi0ySouDs3UuywzMVAqoCKXSrJXO qs3KxRrcADeLcnEgFUMmGMxcgRhaOgUZxIFg3XBQGI7IuIwBZmxdwVRELnu7 5D0f9iQn/+T38eTkCZaqRLJNFAqFTwyVmDG/zIqotDEobzpfRrSb8t/zBamN 1sK/PgKXUgcMRNFNnz37O88yCL6D7y0QRR9rWH5el9AHRSqznSj6Hv+qQGtC F+wqptCJoi+e8TnyRXgbxBgH4omiz5sskl87DaARuC8+6jSgx5qMTI6xAcIO K5WRxgb0tW2Vn/Oy9bD5Wr/urWw9ejl/I03gWgFrPucO8lwr0Fcfxi1cbS6B yYhppr65BJ0frUsVp2shZ8ZTKEjXotcEZzI9vNUwzKMPzrLU6A8b9/HfnVJA 4d3i4geTCvSZCo/DEysSKPiYdix8RYIuNG5bKfgzBR5N5nVLn6Sgf9B5Iemx LRFq5WM9J54koh/wHKwabhNCdt3kCVaTEH2k96frMrMAFiuZjurLAvTJ1Nj9 QzouZCy8qbVmcNFbGX0eHb2hoNseqHxNGIrOmY760KwKAtasYG70twD0NPp8 i3K/N9R+bXD42T3RY44W6eY73OHafW7urmYG+lzWL30h6Vsg5yOFWVvvgl4V F1uUF8kAyviindq73EV606o+JjmcBseO9gZFr9vQ1zs0lJRVKhj/2LkcqpxA fzUpTnRFT4UCG13J6T+LflJTuK5YosJXdwpnby2PJ5DOSn4mquHSQHBo907p G/+gd0dTvv1EygCjn9u4uuQ5eikvydyQsQXa327/gdfoArjnm41TjVnu8MqV MLdKHgNdFcGR1Ju8ocYiU+zN8EK/5GoN2kTZDocUITcrNYHoF2unts6khcKd tvPmYSsbvTFrNKDyNhdkG/EqRhkXfZ/pbJdIKADdBmfPZrYA/XUvX1qBWAhm ynHuub1C9Jwxt43844mQrVkzLCkS0T3kVHrIj2L4/f2/Imz3xegPWgNEj1sk YJsuD99BlPQdhS5MzrAcNA5DstEqR69Tb70RLz4JsrDqHhZR0sOylgbOvDgF /t/cS5cRJb2s4PJLL+4WA8+HbbETJX3hKre0fbQcuNraIhNR0iODDzS3C/Qg 8YpqvUWUdMVthzx3oR6ML1/s1BAlvf5phbBUbgCW9ZRVR5T0LDV0XMg0wRy7 rNpZ0vNvWKZy3b6HiS939ztL+uhEz8Gh+XtQLT0ichb3/OnQ09MrP8PQd+t2 Z/FOTr8TFM0eAUf+qr+zpP/v/0T/F8gpzFM= "]]}, { RGBColor[1, 0, 0], Thickness[Large], Line[CompressedData[" 1:eJxd1GtMk2cUwPFiBZwOqFAGGzcRVwJh1CKj8OKArXNZNDBTKaAilEqzVjpR yAoUDG6g06JcHEjFkFkMZq5ADC2dgowTBoK44aAwXCPjMgaYdesKpiLXvV3y niV7kpN/8sv5dD48/qJsvngTjUaLIodOjtErvTIsxQgVTZfKbaX9+zzjRGb7 lqhbo3A1eVBjK+W6z178lT8wBJ5D75tspdzYsPSyPrYPSrL1Flsp3+dd7WuI 7YI9pTQHWylfOOtx/IvgNojQDsbYSvm8bkD4S6cG5ITzwhOylEfqtAy2tgGC jslkoWQpX9te9Tk3UwWbb/Yr3yZLeUXURgqxpRLWPC4e4ZKlfPVxtOlG8zmY DJlmqMhSHhWuTBakFkHWjCuPIEt5rX86w8U9F0a4DkOzzFz0x40Ho96bkkJx d2npo0kp+kyly7GJZSEoPrY/GUyWcp52+7LijyR4MpkPomdJ6B92Xk54ao6H Oomx5/SzePTDrkPVI208yKyfPM1s4qGP9v54S6wnYKGKYa25RqBPJkceGlZy IM30VpEhjYPe6tjn0tEbCModvrI3eIHo7Omw/fpsP2DOEnNjv/qgpzjMt8gO uUPdVxqrl8UVPeJEiXK+wxluPuTk7Wl2RJ/L+LkvIHUrZH0k1Rep7dCroyNL 8kPJvfEFC713qYvyplVVRGKwPZw80esXvm5GX++Q05JW6aD9ffdSoGwC/fWE aP51FR0UZgcZu/88eo68eF26SIcv7xfP3l0aj6WcmfiCX8uxB+Lo3t2iN/9G h3DaN5+IHEHr5TSee+4lehk3Qd+QthXa32n/nttoF4d3vtM41ZjhDK9dD3Kq 4jqiZ4ewhWqdO9QOiKUH0tzQr24x+G2i7YCj0oA7VXJf9Ct1U9tmUgLhftsl /YiBhd6YMeZTdY8D4o2YbMdyDvpB3fkuPo8A5QZ732YWgb7TzdNeIeCBnnaK c/EADz3L6LRRcCoeMuVrmkVpPLqLhO4Q8IMAfvvgzxDzQwH6o1Yf/tMWIZin K4J3tQjRdxXbMdgjEpBbNYlagwS9Pnfb7RhBDoiDanqYghz0oIzFwbMrheD9 9YNU8Uoherni2isr3aXA9WANWLpL0U03OGXtYxXAKaor0Y1VoIf6H25uJ1Qg dAtrvUuo0KX3rJI8kxq0r17plJvU6OrnlbwyiQaYhkKDUqJBz8iN67icroM5 VnkNWfSC2wNTeU7fwcSFvf1k0ccmeo4Mzz+AGtFxPtn/7vzp8PMzyz/B8Lfr FrLoZWfe9QtnjYK1YNWbLPr//k/0fwCBLOjT "]]}}}, { Axes -> True, PlotRange -> {{-2825.339396323529, 2763.3748713232308`}, {-2873.483576500933, 2787.0790440597143`}, {0., 12.}}, PlotRangePadding -> { Scaled[0.02], Scaled[0.02], Scaled[0.02]}}], $CellContext`t3y = Graphics3D[{{{}, {}, { RGBColor[1, 0, 1], Thickness[Large], Line[CompressedData[" 1:eJxF1P0zGwYcx/GIJvUQTyH1sBChbGJW48JYNd80C23XFkHsZm1divVIx6UI Rz2MotoLis7DcvO0HtU17R4Mm2U9tNWMblYhE52HeWq71TprRZF1d/X1uXv/ 8voDPkxRsiCeSCAQAl5k+KLT84ee6PWuP6Yk/L85Dpsw+HXz5HtQlRr7bl79 lsvSb/86Ph8N7QanWgj+W/7FBklCXBYCKT7Ex/6IC3oK5e2gwOVIsB7rFzdV MNEtjSqrDnhGgKC37rjHHWf0H8Z6/lnKCYesx0Hi8hkGurcuWpVfEgqd0rpE RagTeoKZ2lAqPQiHL0Q5b9TS0Rtkjalt4fshRN5zeN8jB/SYRLbG7EQwXLqV qT4VY48uf9Bm7KPhwdHCKtrdVlt0taJzMonDhZxYw6um1jvQVWYZ7uRnQUDw Yih5Z2zQndyPXTe/FwC/nastbh+hohcrkr5Lv8oGusmJtuW9VugZ42+lPWb6 QBKbRRqnW6BXqqS2TL4XHPe/39rba4o+KCj72J3+KrAyAvUftRihd3aJWFQ9 ExonIvoyuST0HRrdNo8QB5jPp+0OsSOiP2vslxHzqdBd/Rp/Qbiu3HTd9OXZ h6tk8F7ULO+SP0U3Kauf4jJWOO90jxuvC5fQzd3czldcn+KsyXzJRZOL6De/ OUKreN7HSWlTrFhZz6DX2PXYlQXdUJILVhqCJRp0ayLte9qeEaUwwbVxOHsA Xbyn/N/SYa1yqaY27u9aCXptIjNtOOZ35a2fNKW+Ebc5mx4QyuOmUiaU4gZp teMVDXqEySPdtMWIMtDrxpdhn8ygrxmrmAPZPcrPKOlss9lF9ES3+Y77dv0c YjpNG2e/hP76FVX53W8nOdspYfmiv56i921YxsSRdZyCSTVP0ryOvsJf+GWt eDtcqy8Ky3liAJvepL9MmfWkQnJTnOUfQhJ6gbnFmmeeAxxNrHMszjdC/7NL cC1tgAlnw9MDfD81RQ9Wm8oVo+6wzaZ6LnfVHJ2Z+0qmlOgFo6ozS4UWVugl P48t1Hz1JkRlifzqeqnosQV76w0K2SA2fegy9L4NugFrgnLxwwBgtN+8SH5A Q2+OVbRyioIgq5MXYVFvi05S8aiOnlxIuSTu8Ntljz7W5ntPUMkDCtFf9Mas A7rZ4NBJ+gfBwD8ZWc2qpKNna7VEKX8/2HU5JvN3OqHnTe1+LnE7CBckJRXe owz0Mo9VrTY5FARFoV7yDmf0jZ0ZyURhOLBiCqNaTjPRHWXW7Vl6AajnjJsq o1zQ5+LPd+mmI2FINMulMlzRD/kdK23vFoL75/YOZ8u2nJ0bRq+4Ew0v/3PL X/7nf+0TbpU= "]]}}}, { Axes -> True, PlotRange -> {{-9.999999591836735, 9.999999591836735}, {0., 1.4000000000000021`}, {-0.4899793762066707, 99.50999183673487}}, PlotRangePadding -> { Scaled[0.02], Scaled[0.02], Scaled[0.02]}}], $CellContext`t3x = Graphics3D[{{{}, {}, { RGBColor[1, 0.5, 0], Thickness[Large], Line[CompressedData[" 1:eJxTTMoPSmViYGCwBGJmIJ4xEwQ+7q997vvp/3/lA+07Xlv2b4o4ABOfUpLg 3TBb+cADvecRx3eGw8VXMxYvYTBXPvB/m8r3t0fD4OKsqe5GkrFKBw4diTyk eiwELi5842jOoomKB5IObJQ0+xsEFw86PCtZ85TCAYGJdyruBATCxavf2+ZM eCx/4Erm1KsROv5w8R3ls7LW+8sd4KoT5vOT9oGL+00KVfg3U+aAy/97dQ1f PeDi7nP3+nm8kTrw/1bR4yfcbnDxZccrrxVHSx5wjH4uzFnrDBePa5kien6F +IEqhW+vnB47wMXrEpjXcQuLHRB+/8lqi50tXJxBV36/c6vIgTT2W0f3SFvC xW91z2xffVXowPkJz86rfDOBi8twZaz84iR44MCezZ1zMw3h4tmmWqy3ZfgP qPTlOtRe0YaLJ5vfW3H4MPeBONHW1U2rVeHiWhVW//OWcBzwrIkIzutTgIsv vBt8pNKR9YB53NOwh6nicPHnjaI27hJMBwz8kg6W2vPDxXdN1XB9EfZ3v83b xs4YC0a4uMHLm1/0537bL+c+OcjN5OV+mLjLrtucf8M+7F9w/NfE9UlH7WHi f/qM2doevNzfmumjHXn6IVy8YOX6H4LCj/fLyF42Wxj5Gi7O1vxjgVvRzf0M OuHqS658gIuHpSkvvFRzcr/Y762lB3d+got/mDEz5ePMov1KbrNChWM+w8WP n7nZZRx8wt5z/6IT1icQ6nMWlE+VXXPTXuDdmTLxkwjzrXQPbgqY/tjezOLu lGs7X8HF5/OUmfI+fWk/h/fVIdYjCPczlYneSZH8YK+xOqF+u+dJuDg7T0Bj 0rtv9pPU6ly7mV7Dw6f5wTXnosV/7a0C9pfmHkWE54bZbQF1nxgd2jh191pN 5YOL5y9KEXgSxuqwZPIv3yfzEPEVlzVLtr2Rw6GuxuPmxQhE/HYGllkaz+F2 uD6D8Rh3OiI9sIhMfVb/i89hk6PgossTEenn+unWDy38gg4XNgb/dfttABcP rU4ym3VYyGFFyt71608j0mcO92ulc1EiDp7cEYou6y3g4vKrj01jeyXq8NpR a+/bszaIfLrDOZh/trjDSutGmS/nEPmlYFnONjN9SYcaqcJ7muaI/MXDZJ6k 91TKYaMtT8Xn/65wcdfckKlak2UcFHyleP1eIvKvxE7ZfFcVOQeVoCpWr5Pe cPFJRR0TDa7LOxjPMn++WRhRPgS1+evO3abgEHB32pe36ojyRCu6JXRJraJD vpuRQfpFRPlz7RnnosmhSg4Wcqvtnm5BlFfnkp46CskrO8x/V8s/vQdRvqkt lZTq7Fd2aDfPX1gzB1EeQstPB1j5CQB7lOXZ "]]}}}, { Axes -> True, PlotRange -> {{-2.1999999999999993`, 0.}, {-9.999999591836735, 9.999999591836735}, {-98.78999183673487, 1.2099793762066686`}}, PlotRangePadding -> { Scaled[0.02], Scaled[0.02], Scaled[0.02]}}], $CellContext`t2z = Graphics[{{{}, {}, { Hue[0.67, 0.6, 0.6], RGBColor[1, 0, 0], Thickness[Large], Line[CompressedData[" 1:eJxd12k0ld37B3DcZ+BkHsqYTPVEEaXC33Nf0SBCZmUoFQ8iUsmY43mQeYhQ So45IRlKpvtOkkZzHMqQ5CCzI47S75y3/xd7fdb3zd7Xde219lpb4ZyPpSsP FxdXF3txtLVqPbzXfgC2fFsyYIs7/7VgyVQfAJ8BGQu2OPOnx8JP4gC0t6bM scU1qZkmjdV0YAbVHWeLx/SmJehL0CF/viSOLX7qzSUyNtoHTeBFZIvf0ztq oFvYCyN5gsAW9+x+5x74thNGFKXc2OL+53bdyUZfg53GVDJbXKkkZbkbxeC5 6MYgW/yfJt7lm6o1ULCAtbPFEcGXWwcaH0F0OqmC3vgI5057kaxRlQv2h4J+ qFfl4h8uZ+48eCETzIQ7NPdfyMQTDdpadXmTIVTbsu0AbzK+mFJOpZVFwg01 m4LMskjcQQ6TsnUMgY0oI6KeYwiO76akCklcgTt2lVYT4ldw5v6oKYNRD4ii Nmq/H/HAhX0sOodZZ6FI9sRXVdZZ3GVpJT142haWAryczk/a4o/qzsl8mTOF XpvBFL9JU9zA6aZMb40hXC6jr4qXGuKqzcuObk91oZ/+qzT9ji4eH6H2titW EzTOmC13O2viE4Wij+tf7QCmIUNQxnAHfvsYtvmZjzycdqE29Q/J4XOr9/d4 W0nAzGR1tOyCKJ55fufxTm0J0Hok6oK3i+LFboIpHpISoDDNDL9VLorHi3An ag+Jw+AbbTvcSxT3uC3ut9dLHMzzYkN1pkVwr7Wlv2JTxGAx9XqK47wwjnZI Hvv0RwTynmpY5WsJ4gcqzS/qM0Tg+85X0pYsAbw++nJ2R4cIeIjw5B9vFsBv p9qbBOWKwJaGqh4xKwFczNw5vueYCLw6NdxKDODHIZPn4tW7wnA7sGlq6iMF f5BWsGuyXhA+/Sk6vq+MjJsIfcnpTBWEc3w5TJFAMp6nHRch6iUIEgmMiL1H yHj6WkB7lpwg6GyWX0GHSPjaAT15PEIA9MYOT3mLkXB+5eV98+f4YeGUfl12 DAG/sOkWKDtSQDZy2jOUxo0fF7tJNfubAu4xH8qbr3Ljp1h8RS3bKBB5W8VH 14gbTyMOWqZ+5wNF3rvnsDkunGenBvLkGh8Mpd1SEDnEhT+0Jl0povGC8OtI x/f9v7EwF3J/gDoZFiN9NIivVjF5J7GuaWkytBgeDI0KXsUM97/lv0MmA6Om KOKI1io2/2E6nDZKglqm9VBgzk/szFSHrmsmCdzVtj0uClvBxEsfocnCJBBX EjgYaLSMXS7XepTCRYJ9Stc6qTzL2Lr6zaS380Q4yar4UtewhD3MJil/7STC 8ofgpJeaSxjd+cPh/HQisAKsdcS3LmJOps7e1qpEyB6POL9/Yw77lVg1Wy9H BA+Wp+jC9TnMd+9Cqb0IEdrpk1vWF2axFcWm85prBHhwI2zk5/cZbCiGcNnx HQGOlKwU+vRMYx/NbeI9cQKg+7gOU09OY1KPjdZKawhwKehGU+/7KUyBYOz4 MYcA0FYha9w6iU1/7vOlBhJAmOpsv69hArM0fIGq+xLgH76Sp8d0J7B7aki6 0D8EKLaoyL9d+x2LzZUK9bJhn0+MFf9cM475Ged1xu8jQItGTu5c5RhWI91z pWcXATDhDnqV1hgmR01aMlMhwLGR6evFlV+x9T4T+LyZAIU2IkNyVaNYmYuj jO0vBNz6hNBdXsOYuVOGqMUKAqvaEd4+V4awaNsh95B5BAIPXHX9FfQFi0kJ Z50fR+Cmna3xVOwgZrdpXXrbCAIbcnqRR1MHsLwndRf4BxHw97+mMpZFx8Jv mhhe60TAwa30YE9ZH0a/NYwvvEfgAXfIhtKzT9jEcVQnuw0B2qheewnei1UL T8xH4Qjo6knoW/d0Y3PSabIvGxCIfLlL02+oC3NI/ySj8RyBredVhhoZnVg7 OuqXXomAgi+olay3Y98Ty+pSHiNAfrybeUDkI5bhueVpQykCQpB5V3DHewz7 c8h5SwkCEx4t13fqv8WUuVtKaUXs/vCsyf+s2rDJjKIshwIEfBg0UynPVkzB xlPlSB4Cmo6T3OPUFsxP+fdhZxoCGlq8rl8zmrEutIVZ+ACBkG/8n/gf49hZ 5Yy98tkILGl9d8fiGzGzaJzVeg8BvcE9eGn9c2zcYuNYdhYC+0PO+fVP1WAP ksIlC+4iUM8IAh3pSszx8qzH4B0E/hgx++JSS7FCA0fdQ+zsuZ7pPbWYj21x s4n+lIlAY3ZD/M/8u9gbiz7LLHYOqVy5V9MWhU3GW95JYmcBTLlYa/QSalte 4lDFziJCS10Vsqmom+P+uyT2fu5GJh3V6jT0oSlmE8POQz+66Lrtxeiw8b9J eux6LjoUUzcOVKBLmhrH5dj17jE2GY3irUYFWYwIdXY/765Kf0Dpz9A3tUeO +Nxnz7+8+1+tknr0crFZwjC7/5kO/JB7MIae1aCeDctBgCA+oXyt8AXqy3jT bJaLgJxXx8zZpJfozdLEWtN8BMYLbGVDAl6he+/nHw0pZN9fR6HFO5fXqPse G7+BYgSSKV4aViZvUHnKzHOVcgRuDNd7y8t/QHUcir+KPkFgSjJA3JuvHVX4 r7BZoxoBRrzIKk9QB1rQQXm9WofAzhNbZiRcu1BHnq/r+U0InLXUkR493Y0u Gw/xhjcjEJ/4YvfgyR50dkqxs+0tAjuGcu1d9T+hnh+Cc/a1I5A6GSTF2tuH 5gjI+HZ0I8B0axZ7rdqP/t+NE/qZXxBYfnZSQExqAJV81ffNYwmBmrQYWvXq F1RWT2WDvobAx7gz29xJw6hntqbQf1wE+Hy+nl+XMoKqrCq5UgUJYNvDfNEh OYpuKz4tq7qbAOTEOgerg2Oo/CsZtQvaBCh4k4k+x8dQjbx/Bvv0CaAybRxg d/wbem6jLNzLnACUBPSPgcM4uqzkVWF6jQBGS0RV7n8n0BOLobfswgiQokH3 t+ZnoFqWfxhZMQRwNjtj/yOdgVInJTx6sgkwIniYPF86iV4ZvSXK+54A2fMX wv0+T6Nuy+UyGZpEaFNdE3BRmUd5W+Uv2aFEiJv7/Z3fex712RRvb21KhL5c UuZE9TyqlZF2m+BJBN4E66e7jiygn6PFDxoWEmHTQ18ffvdFdN5YM+uMKgkU Wh4K9D9bRtEf6dm/9UgQ22le3sXDRNXFgiiDpiTYzjity2fGRCupBxnWfiRI +3bUZ/c4E41yGg0ybiLBHNVvxmPzT9RMI9vS+xwZVoba7vlFrqGXZt0CCv3J oODUcv9o+xqa7/9mTCqODD6KSO1pKRbqwL/ZrqKaDKzFTsmj5SzU1anFhUbh hdj3SLf+4Dp6uO9x0MsXvMAgGiTYGGyg/aRA/VxnCvxc2i50oIAbPm5+aFDg IggrYXL6yQfI8PyqIgTGCAIOAR7pF8lA/WZiVfhEEPzLUxkjD8iwNSMyWQAR gviXRIMjfLzQUvo1QK5ECFr8CIaOw7wwMDsS1hchDGo5k1qmdyhg4KhdK8kn CtYXw6JrjAShKDFhMKdaAk58ae4xdhaD5FORz7i5tsHnVu7eZP+t4LCW5DNm vwOkGY8293Rvh/3rOQXJzzVB+NoQk5SoCVxK1/ktDXXBu8kuBdmuC6zJFWqg jSGstVDKok0MgTJH0w70NYXxzxe+LnqYgk7mR1/F9zYw4fIwY/aNDej7fRse LD8LFjUWtUpsVUo2XNV73EG1q6Ckstsd3NbC1f628YOTyZRj4mwrUm2EqOvB ULH1r/sX2J5M8w5mNUdA4cKa3gLbYIryk+d9SeDfEP+wiu2zYW9ynW4m2LUc 5a9la1yoM+v/gwYbyz0GHDPaRm7Guj+CTfnvtnDkU2vUSDhTDfFfKBSO5Tx/ xK4LNMGFUV+WP9tl6lhjJ6MVApB/azjuck6khrI6oC2nLpSjl8GhMm/JTggM 8CvhGKqlnX9rfyeYW12kcQzcM+gacqUTRARkznOkPlRKos91glqmfzxHs/ad juynFCinaKc4xoUekt+3vRdWAn/JcpS+4/XnhkkvEJLUfnPcsnaftulyL8SM nn3A8dhA2a/phl6QSQ1gcWxXejnba/cJ5tXu/+BoZOwcVnu3D/xqbEI50uOC 8+xa+uBRlD+NY/dCtxrM9oGof9dOjrLFmM+cQT+U7XrlzVFKK1q5d64fzC9l KXLkITi1fJChg9qDK80cZ2qIM2JGdFAskZ/muFhF+xVLo0OlUTOL47ee/p8N H+lw8MkvJsfQnkv5f/+iQ9Hi7VyOcYGTicKqA9DbLZbA8f/9h+B/upRRvQ== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], RGBColor[1, 0, 0], Thickness[Large], Line[CompressedData[" 1:eJxd12k0ld37B3DcZ+BkHjKnQj1RRKnw99x3NIgosyKheBCRSsYcz4NkFqFJ TmYhiRLlvpJEJXPHoQxJDjI74ij9bm//L/b6rO+bva9r77WutfYmV19LNz4e Hp4OYq1pa9V4YJd9L0h/mzdc0+mvWUuORi/49spbrMn56Tn7k9wLrY0p02tq 0TNNX1aygBNcc2TN691pCQZSLMidKY5b80TzeSo+xIQ6zJu85l39Q4Z6+d0w mCOMrenV+d4j6F07DG6WdV8zwHX7rSz0LdhpjievqVycstCJ4vBcfLVvzX/q +BeuqVVB3izeuiYi/HpD78uHEJNOKWcR8qa9StZ88gDs9wf/0CBsuZC5bd/Z TDAXbdPaQ5ho2NSox58MYTqWTXsJ51LK6IzSKLiqbpOXSeigiMvaOobCarQx WZ8QdtBSRaQuwi27CqtRyYvA2RM9bjjkCdH0lzofBj1B1NeifYDrDAUKR7+q EbrML6aHTNjCfKD3qTNjtvCwxlX+y7QZdNv0pfiPmYHhqWvy3VVGcKGUtSRZ YgRq9QuO7k/1oIf1qyT9lh7ER6q/64jVAs3T5gudTlowmi/+qPbNVuAYsYXl jbbCzcP4+me+SnDShV7X068I00v3dvpYScHkWGWMwqw4ZJ7ZdqRdRwq0H4q7 QKs4FLoLp3jKSMGmCU7EjTJxiBfjTdTpl4S+Zh078BYHz5uS/ru8JeFYTmyY 7oQYeC/P/xWbIgFzqVdSHGdEAW2TOfzpjxjkPNW0ytUWhr0Vx84ZsMXg+7Y3 cpZcIaiNuZDV1iYGnmJ8uUfqheBmqr1p8AMxkH7xpEvCSggkjjnFdx0Wgzcn BhrJgYKAZfKdu3RbFG4G1Y2Pf6TB/bS87WO1wvDpT8GR3aVUMBX5kt2eKgyu AtkcsSAq5OjERYp7C4NUAjty10EqpC8Htt5RFAbd9UqLaD8FlvfqK0GkEOgP Hxj3kaCAoMrC7hlXQZg9YVCTdZ0EZ9fdwFQcaaAQNeEVxuCFIxLX6OZ/08Dj ektZ/SVeOMEVKGjYSIOom6q+esa8kEbus0z9LgCb+W+74tM8wLdNE3l8WQD6 025sEtvPA0XWlIsFDH4QfRvl+KHnNx7uQu0J1KDCXJSvJvnNEq50SqJjQo4K DUb7wqJDlnCjPe8Eb1GpwK4qiDyovYTPtExEMIYoUM2x7g/K/omfHm/Tc8uk gIf6xkcF4Yu4ZMlDNFmUApLKQvuCjBfwC2XaD1N4KLBb+XI7nW8BX9G4lvRu hgzHueVfal7M40VZFJWv7WRYaAlJeq01j7OcWg7kppOBG2itK7lhDj9l5uRj rUaGrJHIM3tWp/FfiU+mahXJ4Mn1Ep+9Mo377ZotsRcjQytrTHpldgpf3Fx3 RmuZBPevhg/+/D6J918nXXB8T4KDxYv5vl0T+MdjNvFeQAJ0N88B+vEJXPaR 8XJJFQnOB1+t6/4wjm8imTh+zCYB1lSuYNI4hk98ZvrRg0ggSney3/1iFLc0 eoVq+JHgH4Hip4f1RvG76ki6yD8kKLQoz71Z/R2PfSAb5m1DnE+OlfxcNYL7 m+S0x+8mQYNm9oPpimG8Sq7rYtd2EuCibawn2sO4Ij1p3lyVBIcHJ64UVnzF V5im2Of1JMi3EetXfDKEl7o4ytv+QsCdKYJu9x7Aj53KELdYRGBJJ9LH92I/ HmPb7xE6g0DQ3ktuv4K/4NdTIrhnRhC4ZmdrMh7bh9utW5HbOIjAqqJ+1KHU Xjzncc1ZwT4EAgIuqw7fYeER10yNLrcj4OBesq+rlImzbgzA7AcE7vOGrio/ +4SPHkF1s5oQYAzptxZDN14pOjoTDQjo6UsZWHd14tNyaQqvXyAQ9Xq7ln9/ B+6Q/kle8zkCG86o9r9kt+Ot6JB/egUCm/ww9eKVVvx7YmlNyiMEqI92cPaK fcQzvKSfvihBQATLvC289QOO/9nvJF2MwKhnw5VtBu9wFd6GEkYB0R/cGfvP qgkfyyi445CHgC+bYSbr1YhvsvFSPZiDgJbjGO8IvQH3V/l9wImBgKY2v9vX jHq8A23g5N9HIPSb4CfBR4A7q2TsUspCYF77uwce/xI3jwFu410E9Pt2Qknt c3zEYvVw1h0E9oS6+veMV+H3kyJk8m4jUMsOxnTlKnDHC1OefbcQ+GPMYcal luD5ho56+4nstZLpMz6Xi0u728R8ykTgZdaL+J+5t/FmC6blHSKHVizerWqK xsfiLW8lEVkIVynUHjqP2pYVOzwhspjIfEe5Qirq7rjnNoXYz8PYtK1Sg4EW meE214nc/6ODpddaiA6Y/JukT9RzzqGQvrq3HJ3X0jyiSNS708R0KJq/EhXm siM1iH7eX5JrQVnP0Obqgwd97xH3X9b5r3ZxLXqh0DxhgOh/sg32e4TgqLMm 3Tk8GwGS5KjK5fxXqB+7ud78AQKK3m2Tzkmv0WslidVmuQiM5NkqhAa+QXfd yz0Umk+8X1u+xXuXt6jHThv/3kIEkmnemlamzagSbfK5ahkCVwdqfZSUWlBd h8Kv4o8RGJcJlPQRaEU3/Zdfr1mJADtebIkvuA3Na6O9XapBYNtR6Ukptw7U ke/rSm4dAs6WunJDJzvRBZN+/oh6BOITX+3oO96FTo1vbm96h8DW/gf2bgaf UK+WkOzdrQikjgXLcncx0Wwheb+2TgQ47vUSb9V60P+7etQg8wsCC8+OC0nI 9qIyb5jfPOcRqEq7zqhc+oIq6KuuspYR+Bh3eqMHZQD1ytIS+Y+HBJ/P1Arq 0QZR1SVlN7owCWy7OK/aZIbQjYUnFdR2kICaWONgtW8YVXojr35WhwR5zZno cxhGNXP+6WMakEB1wiTQ7sg31HW1NML7GAloCegfQ4cRdEHZu9zsMgmM58lq vP+Ookfnwm7YhZMgRZMVYC3IRrUt/7DvEHPfyfy0/Y90Nkofk/LsyiLBoPAB 6kzJGHpx6IY4/wcSZM2cjfD/PIG6L5TJZ2iRoUltWchFdQblb1Q6b4eSIW76 93dBnxnUd128vbUZGZgPKJmjlTOodkbaTZIXGfgTrJ9uPziLfo6R3GeUT4Z1 RX6+gh5z6IyJ1p3TahTY1FAk1PNsAUV/pGf91qdAbPuxsg4+DqohEUzrM6PA FvZJPQFzDlpB38e29qdA2rdDvjtGOGj0qaFgkzoKTNP9Jz3X/0TNNbMsfVyp sNjfdNc/ahk9P+UemB9AhU2nGu4dal1GcwOah2XjqOC7Gak+KctFHQTX25VX UoE71y5zqIyLup1qcGHQ+CH2A9Jp0LeCHmA+Cn79ih/YZMMEG8NVtIcSZPDA iQY/57eI7M3jxT6uLzLMcxGGxXBFg+S9VOz5pc1Y0HVhACzQM/0cFaN/M7XK fywMAWWp7MH7VGxDRlSyECIC8a/JhgcF+LGGkq+BisUi0OBPMnIc4Md6pwbD mZGioJ49pm12i4YZOupUywiIg/W58JgqY2GsIDGhL7tSCo5+qe8ycZLAkk9E PePl2QifG3m7kwM2YA7LSb7D9ltBjv1wfVfnFmzPSnZe8nMtEL3cz6EkamE8 ylcELY30wKfOLgXZoodxxxbpQTZGsNxAK40xNcJo0wydID8zGPl89uucpxmm m/nRb/MHGxh1KcqYarbBDPy/DfSVOYNFlUW1cpkzplq86qbR5QFqHXnFFZ0e mPtyhPrfNv5wPJl2WNLGHytPtRGhr4RA+Ya/7p1dCcGOp/mEcOsjIX92WX+2 PhILoak8fs5MgoAX8UVPmEnYswEfao1eJtg1HBKs1svETPJ1pwJ+MGB1ocuQ EMtoGrwW6/EQ1uW+lybEBNRfaiacroT4LzQaIVbG90fiilAdnB3y4wYI1WEL 9OGX7exGCET+rSLEtjsl0sO4bdCUXRNGiHkb7i/1kWmHoED/YkIsTFsn98ae djhmdY5BiAXt7HMLvdgOYkLyZwgxepFyEmu6HdQzA+IJMfPWbY7EKAXaCcYJ QiwubL/S7i3dsBj0S4EQk7vl/eeqaTeQktR/E2LSy/cY6y50w/Uh5/uE2OHe 0l8TL7pBPjWQS4i1Kr+e6rb7BDPq934QYsYmTuHVt5ngX2UTRoix4kJy7BqY 8DA6gEGIdc52qmNTTBAP6NhGiCkU4r7Thj1Quv2NDyEmqx2j0j3dA8fO39lM iPGRTjW0yLNA/f7FekJssoo8KWHMgs3FShOE2NwTxq9YBgsqjOu5hNi3rp6f Lz6yYN/jXxxCLKzrfO7fv1hQMHfzASEWFzSWKKrWC92dEgmE2P/7D2H/A1wC ur0= "]]}}}, { Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {{-2825.338481506642, 2763.3739253200924`}, {-2873.4845177719953`, 2787.079174946472}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}}], $CellContext`t2y = Graphics[{{{}, {}, { Hue[0.67, 0.6, 0.6], RGBColor[1, 0, 1], Thickness[Large], Line[CompressedData[" 1:eJw1eGk01W3ctZnMnWRKcZwSiTTglnRdiCRlPo4ipW5J7gwpZSgJpVIZk6Ey ZMoUogG/f6GiMh/DwTlkHjILmZ7e9T7P/rLXXnut/WGv/WmTHd0s/uVgY2Mj sbOx/T/+/9hKeOjwt6Z00/CFqK8cncsU4n1snW9NGw03KoZzv12kEHcq99lN 19Nwirm8gPsMhcgOY9YZfKRhw5RD4t0DFEJ1IC9wKYmGHxiG7iR+UAi+/CPi yWdpWCKMZBsQTyGE023nOgZtsKr0tgI2TQrhKT8awTFLxXf9F5GUvTwhv+2V 3f5ZKxwz6e2THE4mUG1agbGyJaZ3mHgo1cgRMWQ/0akb5viWXPKdx72yxJ/s CfbAu6a4PGM1OM90C3HB6r2mt7cJtqp4p736VIZIDY59mWl+BB+rJbsYjUkT 7z6Y8Ao7G+Lsha6pyyelCC/eDep72vXxuTcLanUZEsR4kdY6V6SLg8LPVwts ECdKawQ9eeZ1MM+p2wz9YDHi1kjSvHCzFu4uXUl+RScRo0VDS1dz1bG89vfK Wb31hAyXZf4EeQ/2fjKt3SEjQvi1rN4iG6hgt6dprIoKAaKEeN6jILMdazA4 NNxS+Qiy6acbpDUyzkEyS9d1uYltWndjlA5L44OGS2r0fdyE63XhkPht0rje hOGkpshNMB+pe5C5pPG0bWzjgDA3sQc57b/wUQpreIllWXZyEfnp5rFDB6T+ 9iFoq+LNRax7YRaYpimJ69evFHdncxK7VSeEZQ+I45neLs/DkhyEHpHLz3mL hMVZ3gpR/BxEq0tZ1XpHEt7PWM/oXmYncpka85r6JBxYb6Dr08NOSMq7lNVw kzCpLEckJ4ud6JJobFn3YD1Wi/HPJumwEwqQrjOeIIovGW0e6DrDRkQuNhU/ fyGEI/RLnu6wYiM8nqV8iXMWwsUHzY95G7IRdXSjqko1Iby6L7hIVJmNYF/e cOflR0Esrc/gvjO0BvoKOVvj+gWwzdx1ZCG0BmbTI19MNfhxo+27giHqCoQ4 R+WO/eHBcrLXGtgPrIAjZ0VhbjUPvtSnMSlNXoEiY/PZxFgezO9WpHJsdBlK mA+2c2nyYN2gvIzXN5dBWyaAOnGFG+fnvnzmk7EEhr+oLXiZE4dxRtwT/LMI Jwar7Ot3sGPGV7PMbaxF6BYdqdVaY8OKD0W+HqxchM6B/3zrm9hwpWQYt8fD RVCPjQoJ9mfDyyp3A+jyi/BdrrRGJm0NudBuXH12dAHu5XwK1RBaQUY5Lo5q ib9B2NtCQl92AT0oKo+RCPoNmswrCtfb5lH9B9K3VZff4EtiTa6EzyPbmvd7 f/zzG2x/BpbMcM8jl0F+bpfmOXCQFRV8PDWHwsiv0lME5uCZsG7j/dYZ1Bg9 OibuMwOltxdfypZNIPFERF49PQMLsYXR+/Un0InUSOv+wzPgarS4NF09jnoL tMsLN84A29XtOw+0/0Kzdfcfmb2ehlIBkU1qa6NIgn/nnntDUxBLFtj7zHkI 2d1w9V6hTkLL7+Kjka970OdLGulftCfhbaB5y1e9HqTmwNYaLjcJp7r3+5Q0 dyOeAMX/TJon4Bt5dlPAHAtZc14bTfwzDkIPrWqWn3Wi6XUSQ/jwL/glnJrq oNmCPo9kHaaL/oKmU4W9v9zp6Om3g+kXGGOgZXHaevxVM8JhTk4R/41BGCWy 3kChCT0SLe7rjRwFU3c7BdOd9WinhHVPSPcwOJ5behazVInYFobwpqxh8PSq dV9MqEBNbX4v8i4Pw41vnelY9xPyiUt1aOMZBpNE6v2FrYCqN892KakMgZWF bIBZXhFy2hrJ+H59ANjKLq5823cRvdjd0ETa0AteHNWc93U+wumYR6f0u3+C uI4kZ5TqJyAvHRu+nPNXnxiLlthcAcmVNavNh3+CoTbl6sPpSnhpU6n0xK8H DOO+yWnf/AqWS5fWNL6zYLSGR/axbB00V46KxTqxAJRTqXpDdUB96LxjkY0F Ppq9jzVt6oFGdrT+oM4Ew1oTrQSpBrA7bP0KPe+EPcY6a4ceNYJTpLaNkWc7 UH0jHcQO0mHQ7q1rpmA7MA6GSug9pIOzgnogf3obPLqsK6XSRQeXd6o53zta 4bHa4uJ+7xZwY5E5zQ1aoHchWE0joRUmM55JFrDoMGvwSOP4z1bw9NykusGH DhpcJ0Mo29vAi3ujLT23GcybtTh5ctrgmjJfnq1kEzA+iXlmZbbD4mxQ5fuC Rrj2dPfn7P528ClnZ2w61ghGPaLnXOUY4G++xMW81QB+leL+lAgGcE50vqls qQOtdrTVw6kDeAJbukME6uCclvtn+9gO4NtYL3AE18JH/rMFvNUdIKhdceZH 5ncQZX98PlKhE8TvZAq1+FUDxwHew/caO8E4YnE2+s1XEAhy409Y7AT/xCOd 1uNfQH/SJdVbtgv6Coez6A6fQUd9k92D810gCVoR0bFVsCZUf70qtAuO1oRe t26ohEl+yUtfs7qgoFvJiK5XASc9zjCUh7tgYPT6rmjfT0BnOFo84GGC1Hy1 uHXRR7jhPP+iWJ4JAUIu/c3bCDgx2f7R2YYJzru9niqVlUPYyPaoSTcm1B0W c85ULYNxvnU6eneY8MzLijtz/XvQLggi6Rcwgfv+bJPi7begoCOLpquY4JoU lZwxWwx4zETvYhsTmkr2eSg6vYG7ICSTO8yE/bXNKKO1EFaKz3x/v8iEpD4v YcUjBZDUaGQZzscCviWxrvT3+XCZVJG/W5wFTHkXG1NaLnhdre+Ll2dBjmnW 7HHtV5C86j5Rp8ICX7+R8ONbMmA1K7X+hyYLjmTu2HWc/SWE+l68G41ZINHi 8v1YXxLouVeJbzdiwTdualPcw0RQDC3wDTzOAmeHFqE4qyeg83lPSbolC7je UY2eSodDwHbD6hgbFuBtudy7PwbDVPbYa9MTLJjMt587FecJj6kKHo0nWeCX fDvwsYYtOrV1hkfWjgWqgc810tVvIltxy8vqf32mkKkCXfgBur3TsHijLQss VdJpF3WjEMPpex1Ys6C4SWGLq28cOl3VD3vNWSCk0+RRfOIFEjOKCPE4ygIk Gtlc7J2Cfo83UK4fYoFHr4VmSVQa4nmf+sT4AAuSi0lxJa8z0aFM/p/9e1jQ HNq4XFKbjfJLOTmPKrKAxz7C4e1oHjo6++jPdRkWyEgqnbELeo02mOV99RRh wRv20IhOUiHirz/znzo7C46PDlXYJRWhXV7pQx+n/u6jPEPBvrwEcSiNOf5T 93c/GXy0LpN3qEBr9Ix8KRMKwp1D7Tveo0eX/DVb0pnQd05xzH6hDDUdOukU 78sE/+N3NzNDAGkPpEH2WSYIyHhtz7tHoIZXwRN3jJmQyt1M2yX1CYWkLDfG izHB/c9tD7fuTyiNHhXSPN8FOhN77+WlV6BZZUK0tb0LWtoiP+zSqEKbDOoz tOK6gDfbcoua5VcUrtQy6CXYBRk2VidpytVIcniLfdbPTjDitI4N4KxBsnJh NZ4lnXDvBJXUUPgNZc62h5XadYLgOlseT7E69EZTvXhvTAdkF9nqx43VIc3C zDG2Mx2goKaCzzjWI800/U1ndnTAlw4V/9D9Dah4evA04y0D+Pbumm8faURZ 26bD8ivboe1u3sZxahNSsI8I3hjUDhnMXfs4KpoQWZB2RUivHY7cU/PYEd+M ouotdYrftcG9nt2jPkdbkMeMoNvok1YQfLyPtSm7HfElBdv2idChs79oZZck A10z82+69rYZsrXVZQ4FMZCzd5zBC4dmODaobutq14EqlA1IGZlN8PCgZlOp YBfyULU7Fr+zEe7+TujN1ehGVE1ytFznD3And02/de1GW0IgLGPtO9BMNnNU JHejgYqMq1S576CYnCjXKtyDLgnaSW21rYHqY8/s1wZ6kGuDQXJIxmfgf/m8 1fRJLzKimgQ1+JUBt8mbD2XVvSggwjvgxIMPwDZT81x5+a8fHjA+GvMOfuPf 53nP9KGgFmU5xcQ30NtpslC+ox85r9UWCnRmQanYH0nV8gHU/eTfr8ZzD1HJ B5GV+MkBpKa5cfmcTywqcNzWs44yiCRNsBP7lxcoM98ss//OIPq6+fp914VM FGOSrpVoPoSadR+LHbhQjNyCrE4I9g+jUzHmO9slq5CLsstBH4kRZFzn8Djs 9Gfk1HhTfujICJpWuPmhLOsLspN7NVKRO4Ic90w5hRvWIKNSdl/fa6Po57tk Ek9CHZKfzY0fEfiFyqoST5Ec6GjkddClc1KTSE24ofVHSTfSS5D69+2+SdT8 UveOokIPigvJPSloNomoDzaO6kT3IOOTbUZFIZNo1WCwLvbKT5TFtZPCNTuJ 6i/uERZBfeiiTVNrSu0UCrp13n5ldhCNLZN1e2/PIBm6iWHP2AQ6NFisqfl8 Bp1N3aB7RGsSJTQcVb3/fgZlBu/Ruuk3iUzSrmzaOzWDgg9y/8PJNYVyTKvn Ak/NosDQVbeLEtPoUrJ7lrzWHLoRhKtLTWfRxGHY4Dj+Gz0U5iCf5VlE+Gy1 hca6eRQydv6gt+UiirjRFM6/dR79E+9k3f9iEWm8GRQptJ1HtS6q7nUH/qAb 8qKCXFXzKLdxkNZxbQkJr5zmSotfQGZV7PMN7KtIpYBjbtjoD+LdNLwn8RU7 vihj2OKRsoLKk6d5lu/w4s9z79e8S1eQ8anQcy7FvFi+bpfSDfoKCuQ517/W x4vbbkn53eNdRWMy/WYv9Piw4eAYOeXiKiLOiNcVr/Fh+YLI/5r3riGbo+rO +2/x418p7oGbHNmwzrNzQglJQjhVq1zqxjQ7vpxUGd6nTMLwuixfhI0DL607 VX7amIQZSmWHk4Q4cGyZ7/iMMwmLSpdeqVTkwCSeQ7YOaSTs9+ddA78DB+aS 4bM1lt+ArT68CX3yjQOzTp5i99gihrl0chbzUzmxh7L+HJuiOD6LE9p7qdyY g3/8gnKANLbgaxwIucWHOTJd7K5Uk7H/RA7H3gQBvL478GBeqwJeeP097+Yf YUyI84t4c6jghjgyPUhkPQ6supQbW7gbmxqvSsdVkLDYSc6T7EHq2IkRwlt7 Qgznflb+En1eC0v5OPryjGzEC+Lp9ihEB1+5w9IUiZfAP0wZwzLKutjlCl+8 xi4pfPKIeKZFpD7maWg0VO2XxhtTK5CMnSFGByav74iUwaejpxquGhzBpLvv LA22bsGnfyV/8dxmgh/obr2q1iqL97z0Tut0M8V1/yXKJhbLYV3LDgsOqjlO 12s8nOpPxqvs8mG+axbYstYmKtJaHlerKMUt/rTCR4337iPJUvBH/pQLr95T sby/42i0PAV/MXyXQaqg4oW88GQpBQruCl5/2fcbFadtnBQlq1CwgdDdTPNO Kuboyf61S5uCZ3BYougqFb/1Vkg/ZkPBhPZCUpuuDVZ4KSUd+oiC1W+ayYTX 2OCVVqMGwUgKDt2cXqHUZIOb+a/dfRxDwZPl6HdFhw2+5d7y+0ni3zx+zZXl MRvcqR3ZlPaKgtu+6ETcEqHhyEbBsMovFCxNf9XWbEXDLtwHDhl9o+DoVPl9 IfY0jP+5uPStloLJ3h3SWk40PJ5YfaGJTsFe2zbcS/GmYeMLIYY/eyl4IS1u 4l4cDZMT3qz8O0jBvI/IL41SaHihtq9oeISClXxG+nmzafjlPn3K1BQFJ9nq rbtfRsN+5z0ZXnMU/OdYw+jxzzRsEZcUvrBAwWcNkm3F6mhY6Ue9kd8yBfeg NxYdrTT8v38I/r8/5H8AhBSPBw== "]]}}}, { Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {{-10., 10.}, {-0.48999763182343326`, 99.51}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}}], $CellContext`t2x = Graphics[{{{}, {}, { Hue[0.67, 0.6, 0.6], RGBColor[1, 0.5, 0], Thickness[Large], Line[CompressedData[" 1:eJw1eHc41n30v63sbBrGjaiErCTOp0dmJPtWRD1Psp5EikSPJCGU0VIa9kwh 0fB+F4pI9ior4bZv9wfZvn7X7/s9/5zrdV3nOuN1zvnjHJnTPtZnWJiYmASZ mZj+n/7/Iocr5xSdbhdRsUdSDcvPFQrmsZpiKs2l4mbFePayRQruCrYZ6Eml 4jQrWe7zJAWvGa7aqiVSsVHaYdH+YQoOfdLAOXKBimOMovbgbxR83N39Uawm FYvFCjqGPqJgV5fAoC/lDnivpHwRkzYFV3VvFp+qtseRIYsg4SyL/XtqB+Q/ 2+J79ICg1HgZHB9Rra21ao3bfpj7Kn2VxrSu5Ls/j1nha9KpN+8MSuEn25V5 HPdY4orstRuFljswb/WfQ0e3mmPbynLdtYfbsMl8W2HonAm2aJDxNJmQxM57 orcMcRvh/IWemQsnJLB44DHYHGKA/3m9oPo9WwwnyAcIGQwSODz+bC23kChm y78ZUaKvhzlOXu82uCGMa+u28XzYqoP736+m5rUJYvV7fwvIz2tgWd36qtm/ tuB/hr5VpXio4YD7DN0f2/gx78PZ3JDW3djnYWZfZSU3Nrl+l+t6njzW6mbR 8knfhIu2lGWdi5PGBbBt+fIhdmxUcYE2cEYM6xstq7ZpsOPYtcUOm8NiuNG8 201VkR2vC8tUdsmKYYbjg+ZhPnZsU2UVI9MvirX8hXNtfrLhpj16Y89OiG7w weOoHMCGd8kfbD1pL4Ibt6yW9uezYuvibteO40KYHOzxMxZnwZ+jNcovAT8W 7QtQSOJiwfQ+K5UkZn58oHtLd/8KM37y5XBCfyUfDms0PBQ0wIz9jubt4DDl w4IfCvgLcpnxis4Vq3A7Xqx6LyRfUI8Zx0UqSFkEcONzJtuHe04x4XbWvOMC vZw4weDNw122TLgkO8iLO5MTl+pbWQQYMWHBfikPzXOceE3jRonAbiZ8mGN8 l+g6B5Y06Ga/SVtHEarhNVwUDuwwdxmseddRwspHL3yBDTc7lhfR7FdRjZ+X tfN+ZiwtFdjEfHAVpfMmO0hxMuNzv7XokjKraN5W8QFfOxPm8ilRthhfQUu0 v+v8/ZnwofDC7Ff/raBl8xezyG0dvXyR8SQoexltmT4xe/rCCoplTYjmWVpE OoM6rGGN86i75liOfN8iMtQKG7K9PI8U4/hr9KsWkd6vKP0w2XlUJR7L7hu3 iKYPd9hOXJxDK8qRoW2yi8hK01NwTXoWeVKvXnpyZAHxfzrfJBY5g0wKPE+r pswjBTHmChONURRTUnFPLHweBQ4Z/yzJpKHGd4J1a57ziOmopG+FBA05fn2r /m3/PHo/eWoth3kEeY5wsXu2zqGas8FZvzp/o1iZvKw07jlkZNSr3p3ej5rv jk+IBpEoxjHPs+pMExJNAZk1VxKxhUuZLfk2ouPpiXZDxiTqrLZTbl9rQINF uhXFIiRSDOabWtKtQ7Pfb90+9oqBxFvyc762VCIxrj37omkzSDrXX4FnOAM5 XfUOWLWno9DQ4sTs09Xw+ZxW1hddOlo4ZurRvP0LqLowdcRL05Frd1qXWHsN cIQq/mveOo0Oi2dFz+nVgx1r4HjK0hTqlyJFr15sAsZmMRphPImYnqYd3NrT AZ/Hco3bBCaRpGXSakxaJzys08/y6J5AJSdGbsW4dwER6+aW8O8Eco0uEdCc 6obbAqW/BxPH0RO98be7aT2wR8xuIKJ/FPWu/q5xqBsApgUasTV3FHXrnBde l/0FLZ3BzwovjCKx9Hyjycu/ICg53aWTYxRZsOq4PJEfhNrtsz1KyjSUP/HU 1cb/N7jJJXbXXx5GB7wy0zdND8MztaYWQaFBlCR2T+2Z4zi43rt90qD/Fzo4 7OH76+44yCxbjF4o+IWCJ3fYX28ah9Sqr2utxr9QTcYevgGjCchwqFK6HzyA Ij+07+fZNQk2y+fWter70KuoM4EyzVPQWjUu/MCtDw0PmHMcZZsG+zj3XYtM fajET0SnS3MaqDKn7d5p9iJJfbNY7vvT4GRslwdPf6JN+jIL04p0cEvUdTDx 60JWX7Ua01rpMOJU5p3D04X26WroF9Lo4K6gGcaV1YlcTFLXPFbo4Fm+t6D+ Rwd6qt14aVJ2Bnz6ZFitDNtRiceFw3u8Z4Ce/US8qK8NLbyfMywKmQE/v617 hYLaUFQ+7eFI3Az4s4s4tr1oRXdcpXVcX85A4O5NhY7iLWjftg7bqOkZWJwN r3pb1Iy6rHpHo9ZmIKiCuXurRTP6RrFv0uFlQIjVMlvvtSaU/Pj+/SwlBrBO /3xd1f4dfR04xfzuJAM4wtr7I7i/o9bFSSUtLwZsEmnkNiUa0J4XY+muAQzg 0a089S2nHqFxzYTKOAaI3szhbQ+uRcFvhcw+ljPALGFx9u7rGnS1fvLtjcqN eCmmP+2mvqCYLO/nK/UM+F08mtvm8hnVlVG/M/cxQBzpJNx9UI2Wp6pF74ww 4MjXqMt2TVVIe6qjpXGaAUX9SiZtf1WiZuOxFx7rDBgev6xy98onpJY6Vv+R gwSJP7WidiUf0aPq2671vCSE8noOtcpjlHC2hrYgSYK7mv9DpQ8VaMfwiR5J GRK+Gwu75+z9gN4oJxlPK5DwxN+WPWfLW8QlTgYXqpHAfmu2RfF6Gap+K2Hy SIsE7+dJqdmzpeiWwlCkji4JLW80fBXdXiPnE3YQDSQcaGiF7I5ipOvo6RVr QMLz3/58iqZFSE5ajtfAmIRNy8I9WW9fIvGXYXJ5ZiT0yno6WFJfIPHNEa+q LUgosMydPaqbh+R27y1JOEbCleCx+KM7spGu6JU9gjYkmObsUjnKnIGcv3pL HrYjQazds97i93MUY8x6VdGBhDp2+5bkuBRUHavvgKgb9bq08ybb3kfcKTsy Nx0nga3c3uShZDw6cTHNk+0ECYT8C3a1jzdQmei39KINTH/pPHcy2Q9JXXtk K+REQnDq9bA7Wo6QWMIXpLCB94Y91crS/A8EXymITGzY9/JaKrTxxcDjS4Py /2xgG+UsqtehJNjHbpgftxGvtEVhh/eVZGhxOpLt5UgCr16Lb+nxZxAaMi+x vJEvCCS2lgakgc5ZI2Y9exJ8B6213yRlwqqE7kk1WxJSSwWT37zKgfq7raqd ViS0RjWvvGnIh6xuwctqliRwOCe4lI0XQhxtTkvPnIRt4kqnnMJfQSgK8Vw2 IeE1c1TCT8FiuOqSK+RtSMLRcVql0/MSuFlzZd/tQxvzUZGt4FzxBt7P8TRN 7N+Yn+xN1B7zcqCV1x/bqUFCUbx7lPOPtyBlrGYkrELC738UJ5wXPsDL97R4 djkSQo5Gbu+NQMCVoUvbvIME7m3+OwujMfjYq5dgMRLS2VupKhKfwFl4S4Eh Fwnnl677+vR/giHpP11CrCToTatHF2ZVQuD8teCkZQa0dya+U9Gqhk8rN2QL xhnAmW+zQ9WmBvovGjN0axiQ7WB7grq7Fj5mPLSs/cAAE1a7B6GsX+G6+pzn chEDoo/bCzYV10Gme80Pi8cb+7nZkcNP+Dt46PRl5HkyIL/E0SB54juYUoPJ k84MUFBVJk6dboTNbbLrpZYM+PJDOSTqQBMo0W4ds1Pf2Hd1lT9dY80w7N/w w2x+BjojC0Wm7FugOqxUQm54BrJ7VTRYKlsgfCpLJLVtBkyjVX13PWqFZ32Z xjHFMxA9oDYedKQdqIoiSRJeM8BzR6Nva34XfLApbhCrpcPPoZJVFfFueAhq kweL6ZCvq7ntcHg32EWV1XKk0MFiRNPR2+kHeGsNvo/0oUOcvnbLe54eEP+T fctQgA6R848HX2j1Q73cxF3Da1NwXqaHUebdD1fLhJJ2mk0B1Xw7S2VqP9A5 j/LZCE6BYmqKdAffAAh2L12KeDYJtRZPnNeHB8D6iKaES8nERh+fdljeHwR8 Svl5R/kYsJu/fvehdhCMaotwzZUxYCK/Pt29MgjSoxemJPXGYJ6YP8t56jd8 scrx//VhFAZ/mi9U7BqCyc/9u9fe0OC98JL43ophuE+EGbrHDcObd/yrj+jD oKdcaeJpNAxFp+UHNlNGQLMZjn9bHYKcl8dyhm6OgKThRFap5xDcM8/SSbHa 8NOwZUpE7zf4hNse5xkaBRff2/KcVQPgudtTP0hsDOQGb/FI+g2AW/N/sjTT MTjAW8UcJzUATtJ5Y5UvxuBk9Ijow8B+MHnPfOVK4DisHJvvCDDqBdnZF4/G uCdBlZYT5v66E8ZehZ/7R4IO4pQjf1eY1sJfjyXOlGls8FwVmWFz5wskR7w4 wXOMDqG7dETXWqrB7ESnSUkEHfoNGGEJ1p8gl20PhW2WDqqOt4QuOJaCl0NL R1rDDGCriw9WHVLQxIrMocHrJJivWOUZVzehwyOl2tpPSXg2yEHJbWxGj5uO 7L31loQy9zDWsJ4WZJ55cav6DAmK5t/W4pfbUIFl7VzYyVnYFljUu8+0G51L PZ8rqzMHHPt6ZA7eHUDTxkjo9NQ8KBi5NkWyjCPi71prrc1/QJRlD8+rx+Mo 4WpLPJfcHwhyUToQqz2BtF6P8Bc7/oHMtTKfUz6T6KqsAA9b9R9wa9h96PLI NOJbdWXLfLQAbV2F+sXBDKRcxDI3arIEiWahBVub/yCvbUbtvmmrwFRQm+td zYw/z71dD3i/CjHurpt+kMxY9ruK0tW2VagS0I06L8uCO69JBEdzrsHene9n BUJZsNHIhEya1xqweE/67dRjxbJFif+2qq9Dsh0PT14FG55MOx+29TQTEZqt +4qnjxOn61RIXGUwE4oWrl907vJh9OrDS34mFmL/jkTpfc18uFvpg/FzXhbC 70ZDKJWfHwtIvr9YpchCuIm62KtE8+PgpfImLhcWQv45mctySADbvnsddb+O hWAaMLVR0tuC2fQKFl+msxIJL/calxsJ4b+Jx12D9uwE5XbXu8EnYth6U/Nw xLVNRKKX640mqjQOmS5gUX/MTaSmBp7lPiuPF17VF/63xEdYda1rt8Tvxk3J Mm3h/FuIr5mjnzZOK2xptiaZXClIOB286lNYp4HduiM4G44LE/NZmT8MCvdj iaDTVzjGRAhiQcZv8ttBfPFmnzb/IzHCF4vNkg0E9ry46ZGWigSxXm5TrKRt gDmamo32DkkS5cLMZuS6IYaD9Mu7ErcRbBwqPy1GTbBgZLmNodwOgu1kf5Np 7REcc0jukmqHFNEu8vplsZAl/v5vilRKqTSRyL3UMbnTCmf91WycHiJDHHtL CJ5tssY2DQ5JiXayxNZhY6mhElt8xExdQ1CKQghVfpy6F2OPZUNOj9+VpRAS 6x3Ka0n2eKEwPlVCgUKo6KsuuKXY40wRuoCMMoW4X525V++FPWYZyJ9U0aUQ hot5sivf7XFZgEKWhQOFEJwV3Vkl5IAVMiQko25TiJvaPs+DHzvg1Q6TJp5E CvGjrdpEJMMBt3IFRt65RyH+Cjh5pbDAAV873z5/P2XDX6VdGK3CAf/UTWzJ zKMQu0KdxP4dcMCJzTyxVV8ohHfsV2esQMWe7AcPm9RRiBGnQ+W+KlRM7Pda rmugEBdUlp7K7afiqZRaj5Y2CvG5R43/tikVm3lEGP0apBBmLuX+l7ypWObx 69UzIxTC0ZjYpXGRihcafpeMjlGIK/s2e5EhVJyhYUCZmaEQ5JZTcZduU3Hw Wb9u/zkKYc5BP3/gARVbJz+PX1igEK9Xce/6MypW+tZoErxCIdQXWjo+51Dx //5DiP/7h/wPO5W00Q== "]]}}}, { Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {{-10., 10.}, {-98.79, 1.2099976318234311`}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}}], $CellContext`Tz = Row[{ Style[ "\!\(\*\nStyleBox[\"Trace\",\nFontColor->RGBColor[1, 0, 0]]\) in \ z=", 15, Bold], Style[6., 15, Bold], Style[ " \!\(\*\nStyleBox[\"Plane\",\nFontColor->RGBColor[0, 0, 1]]\):", 15, Bold], Row[{ Style[ " hyperbola \!\(\*SuperscriptBox[\(x\), \ \(2\)]\)-\!\(\*SuperscriptBox[\(y\), \(2\)]\)=", 15, Bold], Style[6., 15, Bold]}]}], $CellContext`Ty = Row[{ Style[ "\!\(\*\nStyleBox[\"Trace\",\nFontColor->RGBColor[1, 0, 1]]\) in \ y=", 15, Bold], Style[0.7000000000000011, 15, Bold], Style[ " \!\(\*\nStyleBox[\"Plane\",\nFontColor->RGBColor[0, 1, 1]]\): \ parabola z=", 15, Bold], Style[-0.4900000000000015 + $CellContext`x^2, 15, Bold]}], $CellContext`Tx = Row[{ Style[ "\!\(\*\nStyleBox[\"Trace\",\nFontColor->RGBColor[1, 0.5, 0]]\) \ in x=", 15, Bold], Style[-1.0999999999999996`, 15, Bold], Style[ " \!\(\*\nStyleBox[\"Plane\",\nFontColor->RGBColor[0, 1, 0]]\): \ parabola z=", 15, Bold], Style[ 1.2099999999999993` - $CellContext`y^2, 15, Bold]}], $CellContext`f[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`y, Blank[]]] := $CellContext`x^2 - $CellContext`y^2, $CellContext`f[{ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]}] := Sqrt[2] ($CellContext`r[{$CellContext`a, $CellContext`b}]/Abs[ 1 - $CellContext`r[{$CellContext`a, $CellContext`b}]^2]), \ $CellContext`f[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`y, Blank[]], Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]] := $CellContext`a $CellContext`x^2 - $CellContext`b \ $CellContext`y^2, $CellContext`r[{ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]}] := Sqrt[$CellContext`a^2 + $CellContext`b^2]}; { Null}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.472052022484375*^9, 3.4720525439375*^9, 3.472052636375*^9, 3.472055008546875*^9, 3.472055245421875*^9, {3.47205541196875*^9, 3.47205548821875*^9}, 3.4720555675625*^9, 3.47205562065625*^9, { 3.4720557116875*^9, 3.472055733375*^9}, 3.472055784015625*^9, 3.4720559665*^9, {3.472055999609375*^9, 3.472056033390625*^9}, 3.47205609678125*^9, 3.472056399203125*^9, 3.4720564489375*^9, 3.472056651484375*^9, 3.47205670484375*^9, 3.472056759171875*^9, 3.472056887265625*^9, 3.472057059875*^9, 3.472057135625*^9, 3.472058487875*^9, 3.4720585846875*^9, 3.472058622609375*^9, { 3.472058682578125*^9, 3.472058708125*^9}, {3.47205876828125*^9, 3.47205879034375*^9}, 3.472058923625*^9, 3.4720589615625*^9, 3.4720589968125*^9, 3.472059028421875*^9, 3.472059116171875*^9, 3.472059222859375*^9, {3.472059346046875*^9, 3.472059367046875*^9}, { 3.472059454828125*^9, 3.472059479421875*^9}, 3.472059515375*^9, 3.47205957959375*^9, 3.4720596691875*^9, 3.472059721328125*^9, 3.472059848171875*^9, 3.47205992684375*^9, 3.4720600893125*^9, 3.472060251078125*^9, 3.4720602940625*^9, 3.472060385921875*^9, 3.4720604565*^9, 3.472060570203125*^9, {3.4720606761875*^9, 3.472060699890625*^9}, 3.4720607985*^9, 3.472060859796875*^9, 3.472060952*^9, 3.47206110740625*^9, {3.4720611399375*^9, 3.472061156375*^9}, 3.472061885828125*^9, 3.47206192021875*^9, 3.4720620519375*^9, 3.472062101390625*^9, 3.4720621674375*^9, { 3.47206229440625*^9, 3.47206238546875*^9}, {3.472062444140625*^9, 3.472062459953125*^9}, 3.472062574203125*^9}] }, WindowSize->{1272, 922}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYVNe2z/feP/e+991rcl+aBRQpgjSlWbBrsBtbYr0xMSYWjCYaWyzB GDWmWrB3BAvSBOm9Db0zQxlmaEoVMWgUHWbm7Zk1s9mcM3MYYJDEu3/f0e+U vddee50z63fW2nsfjFZvXrj6v1977TUL9G/df732mmJf1EMIhWnTZ2YYDElY uLgoJgbOidVI/nqnxGhYwxCzGquxstEfSMevkI1bJp30UcOlG5WFArTdC49+ 5Lr9hd0kuYVD2zDbRwOH3jtzrqcqUVBQUFBQ/ImRdflKhoFRqsGQdONheR8u E1y/IcrOFuXlpR4/yTOxkw8xkQ4e+tRmknT2FunCvdLF+2Tzd8tcvng+f/Pz 2Z+1OS5os3mvzdL5ubXzM2PbhkEmlRGRfd0hCgoKCgqKXgEElYLk5HxTc4GB UZ6hUb7B0FxDk1zbMbmjXUItJvOtxsmNBssHD2kzsWpdcUSy/kLb+vOSz92l nxyXLj0kmfeNxOULyeilL0bOeGY1rs5weK25XVlael93i4KCgoKColcAvFlW UpI5ZlzRoCGFg40Lhwzjm9jmmI3JGzEvesyyxuEOCt40NmkzHvp44iLxjmuV 2y/d336l6etLTzedbfvcXbLsoGTGZonzkpbhE6sMbapGjhXl5vZ1tygoKCgo KPQPPIiJ9nNWrxENHFJhbJlrPiJ1qgtvzoLERSuiF6/gu0wqem+SYMY0wZxZ /MnOyas+i924LX7DFt7GrzM3bstbv5X/6ZeClesKF6/Imvl+hoVTkcPEsvz8 vu4ZBQUFBQWFniEmoDjc51ZtYJZrO6rk1IF7vmerfS9U+l+p8rtU63269vbp Wt+ztX7na33O1tw+UxV0rTLYs+quZ/Vdz3vBnveDrtXc8bjvd/me/wWx1/HI sRMEicncTZcVF2f6+AqTOylGQUFBQUHxJwHiynI1VMT5zb6qoQ7ZX3xW43e5 PiCoNiS2KiK5JTj0jzuBj4NCWkIjWyKiWiKjWoKCmsPC67Ny63PyGzJzGtKz G3mZD2N5qHy1X3BVUHCh++nQJaszA++WCYVkiyUCQUZsbNjRoyGfrklfurzq 1JnywsI+6j3Ffy6Ed+4IPTz6WgsKCoq/DHCACYxZoYSCOkWi4gUrqmym5327 rSbIrzE2qyYxpz46iX/6dFNE7NO0vCepuU9Ssx+n5zxOTn8cE9+SxGsuLGkq EjUWCBvT8mtjM8rDk8tCEspjUsoCowKGjr76zpBzdk7es+ZdWbj455mztjuP 3Wo+7Lc33wp6p/+9lauqEhP72hIU/4lApMl/7TW0CQwM0H4vtZJMEykUf3G4 uroGBwf3tRZ6wKlTp1BfLl261BMhJG8ixqxUQlxSkvft9yWW04STVmW57awM u1udlFMfl9Icm3Bn1NiEMRP4F680ZeU/yi5ozsxrzsxt5qWjS81R0U0JiQ8S EuuiYivDYsoCI4oDw0sjYvl3gr97d8D2fm/82u/tfX//x5d/+5+j/+wX+tbb 9f0N24aPqLvQI/0pKHqIkrVri5cuVVBnv35lcXF6l5+VlYV+qnoXS0HxMoG4 xtfXt6+10AOio6NRR1B30I7utQTJvISrV+OvXcuOjS3Oy0NxZZlQWMrnF6en F0ZG8n39c4+7p81dkmY6LnX04pRZrhluO8rv+tVFxP0eGfcgOT1+5pz7BuY5 A03iliwX+AfWZuY1ZOTW8dLrE1IaouMaQkJr7gRU+fuKfLyLb17P87yWH+CX euvGF++8e3LAMM93DLzfGVA6xEhmaiY3Mmqzta8Outtr5qGg6AIQeyLqLHJ2 1rtkypsUrwBeGd4EHD58+LffftO9vFggqL7ll77ko5PGpvsHvPubvZ27k5Of g2OSvVPqSMd0hzH8UeOLbR2F1s4VdlPqHSbl7tpYfdujMSSiMTbpfnJa5IzZ ZSY25ZaOJUaWCcbDYzd9KQgOr+RlVMbxqqLiqkLDq/wDxD4+xTdvFHp5Zl29 nOXjzb95K9t2YpWls2TkRJnVaJnFCLnxsDbbEdXh4b1nFgShh4e+xq3KsrMV 0notj0fR50CRJiRs9T7WSXmT4hXAK8abqC9btmzpRsWquETxF19lWdommwwL NxuWbjOiZcwE+Shnue1IuZmp3Hiw3GSofNjwrB2u4lvX7odGV0UnihKSQ6bP LjSzLbRy5Fs5FVs6Zg+xCBnpFH/wB0FYdFlUgjA4rNTHv+TGrQIvzxyPKymX LvBv324Ii5et2i+dt0k6fqnMcYbMwlFqaX8/IEB3VRFtgU9DG9rH5wX9+mn0 dRA74A0d4ksooCDDCsYhgqrK9u34TOnBg7ghVBJdwlVgn6/+sCFSg6EPWxop ViHHyopsWpEqVHcQkodYedwpdB45eaQA2jCVox2BgQEep4O6WDgmhdITJ7BJ URnoF6pSPGsW6AxaYTuzK0IroBUqAwZEclAfkQTQim060IShFaiNmlbZ1soK DNVeC3XQwwO1hXbQSbYNSWUYYGhO2geJQpviVnasiG9xBzlaDMW2jDZw8yZ7 2IjP56NfNDqPz3h5ee3atQudQf+jfbIwDNag8qgWOkSi3NzcXJVAO5CJgibQ 2zWUZIzscAjXeAmJInWDlBfbozKK6dIixwgaSMP9Ql1AVtUmluwjQybHYXJy MopBoAm0g4ekGVVwv5BtsanJ8qgA3D6wCaM6UhtaQWXQvUNC0D6+d9oqdlU3 jdbTaFjUNDwYCGiHLMm2FbJwl54i0kSos9BNMAKSA51F5ZEodAn1C86AcFyY rTAShUuSYrkNovFSl1K1JMSJSeJP1jwc6fjIcUzLuEmtDmNlRibyIQZyMzOZ 9Ui5lVPajo3FN66JQ6KEEbHFMfE+LjMSTW1SrBx4yi3F2jHFwi7YwOT2lGkJ x9wL7wQX+fnzPT1zr1xJv3iBd/5saXhsVVzqi+2npJ8cls7eKB27QG41vvHY 6S4pifmIpCSSTEliwvyCdsh9uNoN3sSeH51sd/I95k08IwUTJaOwiqCVLIPp DB2iptkvDFgxoDBcvr0XQDFq4dBx6AgIRBJEmsIuRkUV9ym7D/sqIVZWWCuG 6UArBQN2NBdqq/2FRNkvtGEFULugGJTRaEPotbbkKqm5ijT79VPINDDAvMy+ HYzXMG2GYltGGzrlTQbpILcDroY8RJ4EFUP/g/uCS+B10SG6hLwHuALkkXyV QDtQEjwMnEdnSKfHIVzbJSBKUgGNUyzIYuzeaWyRI6LB7AxdABdNFgaxyM5Q ADlhjTK1HaJ7hMyCakET4MOBmhlVcL+QtaE5BMQO+NUF6QZygN3I6vBGhAqT rWAraavYDd10vBcIwF/wCGEu02Yr/HTBU9Tpo4JNBOXhVwBGAHqFS8gg6Dz6 H84gCbgwA6guqogVBrHoDKZODoMwLsELQE9mB4nF4spj7s/GT5GOniBxmiyx nigdaiw3MpTZOMpGvcfb5lroeaUkKIwfHFEQFnll6rQbRuY+5ra3ic3XwvaW kfm5gYOvL1yccvZcvqdXzsVLCWdOZ3ndKIiML4lKbN5zVrrxuHTJXtmEFa0L 1og6LkjpFNjfkm6KJFPsyjCZMtgH01NXeRO3gtkNeXi98Ca+CoXbJ3aqZ6dg abgh5KhVDakLM3gQSFaRVVYXYBArqM2+Cs3BDoOnGNxEdhkaRezJuMTsvjo4 ZbSLy+O2IB+uMrjSCOgM0JNGcmTYnwFSc1VsqA5a8WsG2X0wPtkWt6G4WRuj S7yJXSv+vZMOSqT0UTi/xPCH7CgAN4F5hCGBQ7i2S7hR8OfaBom0+WqOFjvl TfIM+GccLzDEkn3XhTfRDULul6yIDuGu6cJN6K7hcIajRXixIeMjiCJ7VTeO 8yKW3bj16cZTxD6JbhzJdBqhUYJIzfJkqoHxEOrOm0C4QNndRkVFxb2wcMl7 c+TW49pGL5ZM3yCxGyMzNJDZjk7ctiHH42Kh393cgOCcoJCTkyb/MsjohLH5 8Y4bOuNubP5Lf8MjhkY3V6+OOXYs7fz5zMCwnNDowvDY+27nXmw7Kf34oGzS x3W3upChBagclJKwGF5alSdUE0rpiROk1xWx8mld5k1WVKivPC1uHa6Sfhv3 EUtjqwGxHn5hUBFrv37aOkIWIBlZm1baJLf38c4dMiIGaIxqsSiGVtpYD4yA 858QO5Ndw2AbnASpOTxCOO3QHlarE92qtLkyqGx/meE0FNvmGtEl3gSPgX/v KPRAOwxHgc5ASEK6BXZJbU1gCRzCOS5Bo/DmTzpSBjT6au7udIk3RcoIBQhF 975rO4RsIVkR3Du7ikZNIO7GWXHdeZPDsetLN47z3BK4TafLo0I2BMlVkfKu dRrl4cIkQCy7LrxBdRqAk5fgfsHt0PjY6Ijy8vLKysqa+MS2CXNlTh9IF33z YN3RlvEz5UNNeds2FN64WnI3vDAkvCA08syUqccNTU6bDte4nTGzPGVs8etb A8/b2MZ8fyAnLEoQm1QclVjpdvbxtpOy1QelM9ZXx3V5LRt4Y8aAoGr4D4eT SqLU6IpJX92NPK2Kr2fNAh+rR96ENDLQCtTFfhu6A01DdTw4qBqIVL4hYKfN fmFgcBbJd3gfSWZsInZs2zEAJDulGN9Uv8yojEP0CB9iUaKOIao23sREiTqF msA5BI3zsjgs3KHLd+7gOJptW6wM0hwsqQrMOQ1Fytd4fwG68yYEm5CDgt+7 Ro+Hq5BXyUwmBo6AGOM44DQ4hHd6CTEmd9SgUQJ3d7rKm3iISmPfNTpSbYfs pnGL3NyE2AEyftpCHsb9hZcNpDOYThee6rZunZ7nlsDWp6tPEeyjWhDG4u7g /DbjZiGb4CQ8e6QbGmIvhQbi1mgrbd1BCkCkCe+oGi2jC4A3UdRZ5x8os58n XbCr2fV4wdYTTWOnZu5wFfp4lUfElkbGFUfHXXeZEWhqHWJlr2GztA82HxFm Y5e6cHbSTtfoM6eKo+LEvIzypLQqtzMPd5xoW/eTfPrm+sveXdINu028A+fB 7ynmoih3IDzpDd6EmSF8YqKRvnhTxX1KWgGyUBCQUggwiyqoJEJseIUgN5zP 5HecpsLmLD6Rq2QIaZdGZkphahBLMhn4k9Nm8KYh/MfROqEVm+tJy0Ar5KZx ahBOmwOdAdXiG0dWJOcg4a3dtkrFyMFQuIkchmLI1wbdeZOdC+0qb7Ih0uLx dCFHjktsmQy8BN6EAAS/ZjCgUaZ+uQkmZcF4ZadNYJ3xDB/yHuldt06tp7HR rvIm96MiUpuIMZdJ481CwmF0FVXRGANCXMl+VYMkOcShOnYHT15CbzscORNu iMXiCjXQ/tNVW2SzNj91PSrcdirvq58zv/lC7OtVHRUvjk0qjU/2mzEz2dQm 3doxzUq5qXdSLezTh9sVuEzJ37Eu5tSvuSFhlZl5FUmplbz0Kl7Gve/OPth2 TLL2iGze1xKXNZVpXQiNVQlMpaclc2iYsHDgKdJfnha70w6aKCM1cmJMD3kT 64Z2QBRJ7uikKvIiuE+EF8V4eKjCcMZMV3VbGiJQiLCUuUrGZN32mM7DQxtR Mmb2kulZ6AuqyyBK9iwjcr6uYuxS+5wfbFKFzTtmWUmwX2kUgaqayBiaq2Qq 7yMjyUzmzHHOlttQoo6D3dqgI2/iYFNE/N51z9OSMzMB6KrGbB5IQOV7kqdF DkeXeJOMKVBh/eZpRerghd13Vx2ypuRhN3Kh0ChbYe4WAWAKJAG4QO+6MUC+ V8BoIMliuvNmV58inA4llWFP2wY5EIlzPFFAwRovwWOgY3dAYfYvqKvAHwsC 3ny054hs2ucvPvupZqt77p6zGQd2VPtdr41JrE5IESWmhE6fXWRiW2zpWGzp oPzfsdjCvth8ZPk4Z7HryhT3I/FeXpnet2szsusyc+tSMmrTsmp5mbV73R/t PCn5eL90/jb56CWtC9ZVZOXoqF6HvKg6KFBlNZVOjyygr3lBMP8TziDnTwZE 4MMZmUZw1JgUVLEYpmzt8QgeyyN5E4ecjGFNhSbkMhzGTNeO01Rw6zhrSjp5 uIqXvTDoQDUVx8pKZTRlRYVNiGRs+9sCkaXUMB23IzNqnBqEJZMgz5DvKgyQ twC/1WDSZ1QkZTKmHJO8idVWvEVwGgo3x0H9OvKmtgk/XZoXxJjjAclDV9aM DswyPZkXxE2d7BgQiIx7XlBXZxm5qhc4kGJJGiX7DoEJbgIOQSvuuTca58No W9zBphuyUwxzwdxRbRVxyNZV3Rgg32EgEYqKaXxXYRANqXk3niKNJmJ0B4/5 dpoy1ZE3tRkE95S0OfkMdAnkR/YUX6YtFba+/7F0ymrpxwcfbT1ZvOtU5uE9 NYG3mmIS6pPSqnlpUTNmlxvblA93UGwW9uVmI6pHOtasnJ/3q1uqj3dhYHB+ 4N1C/4D69OwHmXlNKVnNGTnNKZnNmw61bPpZsspNOnODbMJKubXL85nLq+Li ddGQHQggZ4V3RMSMGiiv4zoUWMGnWpenXJ5AJjBxOhTiHWAfch0KFMZOW7XA QS1NcWhlhYVwfL0N947kTRERcpJeGhZuMDTBg5J4xQQegGvXx8AApz0xjeLx YiwN2xAfkhVV/VK30j60evCgYmHj0qUKHdSFEUNBEI1XTcLqGJGW+bqKfoEE 5VIUkZK7VdlXvHCVmF+EgWN8HB2rBCqDdEZCADWh6C96MJBiauPAJY2vW0C4 HIbCY8HshS0YuvAmw/OT7ot7kj/2h7gWDB7BJRxzuXZcQaCvdSgco5zamI57 HQoEHeyZsRqlkQk6vDIComxyHQpegwMrOCB8w4egPPdaD8YqHnI9Ba6CLuFg HG4BJiayU+gS7JP3QltFXx3WoWjUjdt6WHNRZ7xJas5uq9OnCBrCVeBphO5A chvkADvDXCBsGTaX6Zin1WYQ3FPUNPk+gA678VkSxnfda/2DpNaT2iYslS7Z 17rx2L0d7jk/7qsP8f09OvZhUlpdWmb0TBVvis1GVljZ1c6fXnJgS8p1D0F0 3P3E5PuRUQV3gvL8/RvScxozch/wMpuz8h+n5jz5dM8fy7bLPtglnfqJbPRC mcM8ucMsifOMsktXOtWQnF0J0Qq4PtLLMegJXSVXDmr87gG5toX0mdgJ4/FT xUcGOo61tWcsiWAHtwjL6vEh9/o+7J9BMez8ccjJiIMYI3QKliFCQnJDtsJT gzD1kHG0SJnLJQ2F42Kcw+zQrxMnOvSLmJuq0T7kAluSatmTbBnjtvidhBw2 5fjuOkMfnCsmZ0DhyVRkQ2SXGeTLiCu1GQq/s+F5R2z1dOFN+I1jn8BwdBoX lcMZDHCkwBpQEvtD166vWOe4ROoGy9XRVfaAFEcGTKNY/OYPeuoijZEGBBvC GwJYEi8PgSFF1ByqgkcY4RBL0/htAYZWjIX25EcMYLUseUfQIbtT8DCQC/xF xIpdXFGknnXTbd24rQcLOhitiIgIka25a7e+noFUhUVVqApuiPHxB6wzRIIg pBvzgrgNAmUgh0wKB83ZRuMGyZuVfMGz6fOlVuMko+e8mLW+deX+B66/5P2w tyHE53Fk1KOE5AepGSEzZ+cPteJb2ImmThRu+yz98umcoBBxdHxdYnJdfHxt RETp3aAcP7+6pLT6lKyGpPSmjLxHqTkP/r3ryYLNzyavaRuzTGI/T2o9VWYz UW47WTZifNP6Lyt4KdrUY68XwHzBJ5OB6gm3ZF2N39nrNE/LkNCuiXpUUauq ygLkpBTgXG3lAXhaLKNHIoJf2KEWMAIpvMMs2bVrQRNyoQSMP5JpXrKbnfeL bEtLv0AO2QT5rQPIo2JNNCZm2RpqK0yCcRMZXMl+e2HfSnymg/JsI7MMRYpi PAAYnfImYxW5SOdhFx2LuWofN+wG9KtbTxoF98i9EvDlo9vW1u9tIqGRN/V4 d14OdFmHwgG9mxdT56NPP28bbvfcekyb/TSJ8+Lnczc1LN+bfWBXbeDNR2Fh D6NiGuMTvKe5xNmMKPh8WcbJH7P8/UUR0dUxsaKIqPLwiJrw8Mq7d0sDAjJu e9+PjL0fy6uKTKrlZTXxch6t+f7J4u2tUz995jhHYvOe1NpFNny83NxJbj5K sWLUdlzjR2vKff1EJSUM3XDsgM/gPCF5kmPeCANd4s2XgPbP46gH1PAl3Hcy McgNxhJX9hKSlw/2pFONJNUTMMZb8ZijaupOx48zvHx0ypvk12YAOpIOx/fT GE28erwJMZrGbx30Lf78vEnmaf9a6PS7BxzoJfOWrF0vGWousbB7YmrTOMyx znpK1ZilubPWp+3fUelztT7Arz4wsCY4JGDOjMRvNqV5XS3yDxSFhAqDQ4uC ggsDg3IDAvL9/Apv3869eSPx2tWygBBhRGJpaHxFXFpDfMazVd8/m7Op1WGh xPK9Z47TH63c8HD3gYaj7vXnLtZdvNrgfrZ593cPt+ysPc50L+Qwk1pPlZMk 53Oyi2mDRt5kTFh9ySAzh4xwhrykC/fBxBj215M6/YZqrwIxJozJMrTizmB3 ST4jIUw+Hhpn/75MdMqbbP+vO+noMqWhD3nTl0BP/ggpY2YLpP56+CcUewlZ SvS8oqt6rkvPodF63f40ax+i0+/scUD/8Saf3+C6WTLIqHWQUZOBcY2hiXio ZcXwsXy7mRkz1vK+/Vroda78uqf45s3ymzd5v/yUe80z/5Z3gbe30MdX6Oub f/Nm0rVrcVevoi358uWUixcjzp4p8LwlCIwW+EVUxqQ0JmY+n79FMmZpy+J1 DcfPVaRlaFVFWMY4gVwink+iKqJM/TFOwhQUXfwwgzdxFhH51b4KSeC75aqv s3YMwRTDrOpL3ftrLDp+Q/UlA7TSl8FhJJfc4JsMcJXxpfqXj055kxFsinQO JHVEn/Am+SV2je8GXQLju+7Inq/8nwLXI2+S1oPo7K9ImgDu77pzQL+/glrP my+cp7QMMqoYZlUx0rHUzlHkMIpvapltYJ5mNjpx8vKo9Z/xb1wqvu5V7H2r 5La3wOd2mb+/OCKyMiW9OjuvKiPnXlJKZXhUqZ8f77pXxOVLEZcuhl48n3LV ozQoShQa97Cssio44sXY5X8sWicWFOlL7W4DSIrM6OJJRH0YkvQe2P39MwCG Dl/O32XDrNpXfwauz/+OmKv2vzPSDeiX0ykoXg709SsQ5+cL3c8Efbzad9eu bF+/0owMYUGBqLBQlJ9fGheXe/JU3PvLAu1n+o8ax/vlR1F6Wm1paaNY3FhV 3Vhb96C+salBudXVP6ypa66pfXCvpqHyXl2ZqKKkpFQgKCsSNIrLHz981FRR kT9l4VOLyTXXb/dcZwqKvxz6nDcpKCj0hbLCwrz0dPZ5PE2oODMz0HGal7HJ dXOz4GnTcletLdhxKHX3Yd6ugyl7DmbuP4K29H2Hsnd8K9jyTdrGHfFrvor+ bFvE6q03Zs/fO945bMas7PnLC+2nNtpMfGxiXx149+X3kYKizwF/bbCvtaCg oOhdYOr0meLy65v/OjZgiNBxunTt0Rd7rtR+f0140EN46KroR0/xT9dEP3pU 7j/3x+bDorUHslfuSV71XdKyb/MWbfcwd1r7xuulZlZV5iNqTa0fGJpUeN3o 625RUFBQUFD0IooSEw8N7O/2+pun3jFuHbtYunC3dN2Jp9vOPdx9qf7bK/fc rlTuv1zhdvHennNNaw/Vr/qufMm+4hUHBAu3C1w+Lxv7YYiRddQgw9KhpmVG ZtUGRiXfH+rrDlFQUFBQUPQahMLYn346+Oa7e//39XjDYdIx70unrZEu3Cn9 5GfpxlPPvz73ZOfFlp0XHuw4/3Dr6d8/Pfxk+fe/L/ymadHu+9PWVoxaXGo5 scjMLnWwUcKgwfmDjYoGGhbNXSAqY06XpaCgoKCgeDVQJhRmxsTsH2jg9o/X n1vYy0ZOlo6aJ52wQj5lvXzeHtmKH6Rrfmtbe6xt3dEXq354sXR/69xdz1xc Wyavfmw7r278/AqnKYLBphn9B0X2Hxg10IA3wDDD1LxE03AqBQUFBQXFq4Hk O3dW/+3v8f0HyixGyIY7yS0nSJ1mty7e8Mf6b59/uE02eYN07k7p3B3S2Vvb XDY9G/fxHw6LnllMbTj0qzgvX4Q2P/+Cpcvjhwz1feudkLcHRL47MPNK51+j paCgoKCg+Ivi4t493/7zn3JjY7nJMJmVfYvrV1UJqrXG4uKSR27H5E5LZOP+ LRv3UZvTomc2s1tNJ/z+yRcMIfyIiOgFiy++8X/e//d2yOy5NFVLQUFBQfFK okwo3GhvJ+w/UG5k1Pqey72wcHaZlq/c5A7zZCOnSx1mPzWf0GruXB0Vq1Ea 7/z5kwaGZ/u9UalJDgUFBQUFxV8dqXFxh/71L7mBUfOXX4m1fMioPK9AMmWB 4s+aWE94bjb68bxlIqFQm8D8uLgj5maREyfSkJOCgoKC4tXDLxvWNw4YXOt+ mrtY3Q0f+fDRcitniald42+dfDycn57+i62N+PwF/alJQUFBQUHR98jg8c6/ 3b/x+FldCv8x70O52QiZuX1FZFSnhQVZWeGuG8szMnusIwUFBQUFxZ8F57/e 2rD7gI6F689fkps7tNg7l+Tm6lK+ODe3hPImBQUFBcWrgtTkZMGRX3UvLy4t bRsz5cGs+b2nEgUFBQUFxZ8WJfn5XZ2683TpmvQP+uaPV1JQUFBQUPQc/w8M IIOg "], {{0, 0}, {616, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {616, 41}, PlotRange -> {{0, 616}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 58546, 1092, 730, "Output"] } ] *) (* End of internal cache information *) (* NotebookSignature qx0YfayoRIAUrC14u0Mr2wpz *)