(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 150240, 3631] NotebookOptionsPosition[ 136853, 3404] NotebookOutlinePosition[ 137214, 3420] CellTagsIndexPosition[ 137171, 3417] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["1)", "Text", CellChangeTimes->{{3.781588299734708*^9, 3.7815883011404867`*^9}},ExpressionUUID->"d490ffe7-c309-4a99-ac14-\ 78ff2c208645"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"4", "/", "3"}], "*", RowBox[{"Surd", "[", RowBox[{ SuperscriptBox["x", "2"], ",", "3"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7815883032451878`*^9, 3.78158831214779*^9}, { 3.781588500031083*^9, 3.7815885016411667`*^9}, {3.781762148539135*^9, 3.781762188830928*^9}, {3.781762396355942*^9, 3.7817624026103067`*^9}},ExpressionUUID->"c44510d9-6733-4609-ba71-\ c675317f21ba"], Cell[BoxData[ RowBox[{"(*", SuperscriptBox["x", RowBox[{"2", "/", "3"}]]}]], "Input", CellChangeTimes->{{3.781762192218422*^9, 3.78176219239012*^9}},ExpressionUUID->"cb619b96-c161-4802-bed4-\ a2b007164205"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"-", "8"}], "]"}], "\[Equal]", RowBox[{"16", "/", "3"}]}], ",", "a", ",", "Reals"}], "]"}]], "Input", CellChangeTimes->{{3.781588313775834*^9, 3.781588330831031*^9}, { 3.7815884140208807`*^9, 3.781588429040856*^9}},ExpressionUUID->"2ccfdfbc-8f72-46fd-96a0-\ 098709697da5"], Cell[BoxData[ TemplateBox[{ "Solve","nddc", "\"The system \\!\\(\\*RowBox[{RowBox[{\\\"4\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"1\\\"}], \ \\\")\\\"}], RowBox[{\\\"2\\\", \\\"/\\\", \\\"3\\\"}]], \\\" \\\", \ \\\"a\\\"}], \\\"\[Equal]\\\", FractionBox[\\\"16\\\", \\\"3\\\"]}]\\) \ contains a nonreal constant \\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{\\\"-\\\", \\\"1\\\"}], \\\")\\\"}], RowBox[{\\\"2\\\", \\\"/\\\", \\\ \"3\\\"}]]\\). With the domain \\!\\(\\*TemplateBox[List[], \\\"Reals\\\"]\\) \ specified, all constants should be real.\"",2,1003,33,33098961279030598713, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.781588331337916*^9, {3.781588419735832*^9, 3.781588430073613*^9}},ExpressionUUID->"0404c00c-212f-408d-be6b-\ 7debdac68efd"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], " ", "a"}], "\[Equal]", FractionBox["16", "3"]}], ",", "a", ",", TemplateBox[{}, "Reals"]}], "]"}]], "Output", CellChangeTimes->{{3.781588325427759*^9, 3.781588331358471*^9}, { 3.78158841976383*^9, 3.781588430092544*^9}},ExpressionUUID->"9f0b3d2a-70b4-485e-9025-\ 7623a02302d1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781762110965314*^9, 3.7817621258032846`*^9}},ExpressionUUID->"e28ff768-face-4a21-b280-\ 8bd17f831081"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw11vk/1PsewPGQLKMxmK8oZlCIJGQ5OHp/UE4qhYiytqA7iLRQumXLQZ1y bE2OSlGntBhLhNHnGyPKIcuQbVDWUfYckXLPfTzu/eH1eP0LT/UjIc5+oitW rLj5T/+9PiiOLS8zSXkV9m5XVwKFLKxPWFhkkhSpvhjl/QTiFBlqzc4xyfTH RlkCRwIZbXQ4MvyJSaLp4dN+ewhkJhfX9dd7Jlmu0lp5ypZAaGD67c18JnnD esvDJEMCOf/a8HirD5PMTNQsvLuaQOHv4oIDXjLIrftS9E7V0BGfTxl7dViV jDO6KWmpTUeqZAjdTEWFdIkvN7f7XQE9D+SJywrWktuNaq1kluSR71XDqc4Y ZbLMb1NIops8+poSmYBBiRw9uDbNs0IO5VB7ldkfFMnVFvaslbJyKGuXYVhr IkE+2OA2HHqEhmKCDkfo2NPJ4PqNqf4XZFGkWF542Lg8eXLouEg4jYoOR73b 0P5Qjny9sqGJVyyD0iuH2FksGjkjNBXlulFQed9GmScaVFJx6+akoRYptJ6G bFxuU0hVhZoDEV6SqFA3gfVxQJJsSLwSlVWxCvXVFKiZmq4im64Jh7bJi6Mh vXQjXCJGfvbY/Ln9jBiSu/jIVF9EhMw4bX/M5p4I0jOd1Ls/u4Tp6xPGcp8u Q+z28aayiHnsS52JmEr6BoTLs+SDa2ZwxNXlhmPa81D4d41s3YYxnKhdNt2W OwPX8u5VbVsQYoP0PRGqyTMQ6H3pzPMGIX7a0xtwMHIGNrz+qfveWSG+KmGg /MxpBjLSHz/4d90onqrPe1f7fRrOG/9utTVoBA8+PR+Ss38abMI8A28XDeLL f16e0x+bBIaWOYNIGMS3/JL+5Vs5Cd86ieYrnoOYPZyrFZY8CcXW70zPiQ9i O3ttmonpJGjJ2Yi6uA1g+29SdvpREyDN0b4p9e0D/shVa0pbPQ73u4d+E8b1 Yn+d7yXD0mPQdUHxzq2tvThaU/N2So8QqIxfOE4fBXhqDe6nPxPCWd+HLWUg wCw74zWZjkKwG2KtSVrsxkExQl566iiMTkxm64Z2YrnJzOBS2gjoii4WBXrw sUFsqcLdDwPgnaNbw5Tm456D7y2uPxmAlO0e7a0vWrGGXnmQSfgALMZzv1oq tuLkRMv8HMoA1FMuWck0N2P+7hLfDoOP0KEree3gb4248ai//yirH7ycVIq7 j/Lw5R72gVMKnfB5ds78DK8aB+1OOK+Y3AEXMt5hqmY1TuZmsA9QOiCrO6be evgVbt49ePPE93Yorm+p2df8Eg/ssTr/dwMf+LT45piUStx2/W+ZKCs+zLqa C57v52JtS5tHP/Jawaj/zpd17WWYLnF2teelFsj/ErR+tKsYs9ylsq2lmqDR XG3LuqwinBX/c5JzXSNMXGy12OtViK+tXLUsG94A7vKnc4/jfKxTEdd7l/sW bmR1VTRaP8V7VrOTG5zeQLuWdasxLw9XpY/OxvbUwn5LqqjIm/tYYF9e/uUv HqTUnFYO2J2D847kkdP61dC0r9ugoSEb/0XBto8vvgJGcWyyf3YWblz78G5j KIY/6hyx0f0bOEiT8SX/aQUoCVQnfjxKwZyjghOCnFLYNNBmnuF1BXcGx29j /VQEWjKhN/QDovE570/2YcFPIIq/kb+uOhh7vS76sV4jG/RkBSzxzS5wSA3C rX2uQ/t0zB3a1whgHL0QPlj7AKb2ac+EhMXDi5L3Iuz3HIhMtXsbaJwMD9pM uPzY5/Dj4rk/7mxJBz9345KTZWUQxXoS1KqbCefmK9XnsyqhWi3x11u0e+Bu 5fSrmGcVxGVohJpdywXvL2lT90V5YCfDdW+m/AnHt9kkRrNroG5+Qkdc4gnM +UbZDmbWQUCArn/Jj0K4NTJ5i6vRCDs1wg/FWhWD3H0LjlvoO9goqN7reOE5 HIrfMZru0QRjzl5mYwuloJ9+Rc76ZjMEbUuWZMxxIdXy0L0Tc61QJh3ZVnWm GpaM/XDZ3g7I3ky05mvwIP2kttiooAPiHfObst7xQIR9PuNiYCe4ZAzUn9V5 DSzqmiydmC6YUt9TpSuoA3aeIal0pwe0zFXzU7Y3gmbSm5x6x354U+SzvSCR DxsWDxiVLA/AzzV61dr9fLAtDNjEMRsETvuC9W3TNuB0F9C8QgYhYyEVrgy0 gQJ9bE27YBCOQZ2Fn9V7MORlm4SUDsHyWwND5elOSNkg893PewRMPoowot37 oGmXF5UbMwb65W7TBo/6wDCui9DmjIFWylNe/0IfuKZEsgMFY0C5+8Qk26Ef Xmfy5GLNPsGSo3vP8kQ/FIao/7Ig/AQCTr4ONvwIytv8BH47x+FOqDfPqnQQ jiwcmh0Zn4T1UxULFlVCUDtV3Ss4MwP2OZ0Ne91n4GlftDfHex52OMiLzT2f B/bbTyeryr/BdZ/3UQalS2B61YhyIXoZaveqrnaUF0GcNI9/Kz0TQePqxMWW TDEU5X+MFnZUDJ05venwdcVVaO7wj0cmP1ai9z00Z/86SaQxeRQEeauQ77mf RyT2UNDZ0Z+YC3qSqHqTWVK1OBUNqV5e51MlhbSkuKO5O2noRYvhqXlDClLl Bu4QT5BDnwcn2nR+l0ErFkUfhX2UR5xehQ1NK6lo3qnSu0aTjs6WOi1z3WRR t7HPOs04AvVGe5pd96GhUDeanEaPIorovXbaQUYOKacNuq9UVUISI8pqrDw5 9Mwj+8/ZCGVUyJrye+ssj9ysLu2sq1yLKKkeKg7j8qjAO1jDYmkdkthuaxQY o4C+StuKlbmqoo5sk84ydTpybrY0VWUz0C6bhEsGxXQkbUl5xb3FQHETNb1l JXT0Krdrt2cOAxUY2yraltGRQcS5w388YyB+2Hqq60s6ojJLryrXMJCJVJJG eB0dvQkyGiBmGGiR4zlc1ENHSFInmbqHiSJcHqvQxAn09eTXtc+cmGjYzy8j TYJA+d219x3cmKjt5DWhkjSBGPn+FVePMFGLh7OKuiyBllxzh6XPMdFYy73i LcoEKs1hWkk8YCIh+9iLHZsJdGL1ZO2Dx0z0cNa9oXYLgbTCXzrbFTBRgdJe rr0RgdJ2eR2/zGWiJwXeGx3MCBQ2nZkq1spE/D4FC2drAul6sBg5HUyUESCl 1vqPbz7wzB/Z9DJRvPkv/fvtCOTI7ngZLWQiUVM86bKbQJKiD+3VJ5kokk6B NgcC4cBwPvmFiZZzq467/uOns212Pr6LTBT6YiKozZlA//MX+r+//gMKXZRG "]]}, Annotation[#, "Charting`Private`Tag$50874#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-8, 8}, {0., 5.333333188208615}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.781762126326604*^9, 3.781762197680875*^9},ExpressionUUID->"814f0d18-82a5-4ba9-94dd-\ a77d5e4fc867"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DetailPlot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781588505670556*^9, 3.781588522466598*^9}},ExpressionUUID->"a2f0e048-6690-4af1-b1dc-\ 0eedcefc9d2a"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw11vk/1PsewPGQLKMxmK8oZlCIJGQ5OHp/UE4qhYiytqA7iLRQumXLQZ1y bE2OSlGntBhLhNHnGyPKIcuQbVDWUfYckXLPfTzu/eH1eP0LT/UjIc5+oitW rLj5T/+9PiiOLS8zSXkV9m5XVwKFLKxPWFhkkhSpvhjl/QTiFBlqzc4xyfTH RlkCRwIZbXQ4MvyJSaLp4dN+ewhkJhfX9dd7Jlmu0lp5ypZAaGD67c18JnnD esvDJEMCOf/a8HirD5PMTNQsvLuaQOHv4oIDXjLIrftS9E7V0BGfTxl7dViV jDO6KWmpTUeqZAjdTEWFdIkvN7f7XQE9D+SJywrWktuNaq1kluSR71XDqc4Y ZbLMb1NIops8+poSmYBBiRw9uDbNs0IO5VB7ldkfFMnVFvaslbJyKGuXYVhr IkE+2OA2HHqEhmKCDkfo2NPJ4PqNqf4XZFGkWF542Lg8eXLouEg4jYoOR73b 0P5Qjny9sqGJVyyD0iuH2FksGjkjNBXlulFQed9GmScaVFJx6+akoRYptJ6G bFxuU0hVhZoDEV6SqFA3gfVxQJJsSLwSlVWxCvXVFKiZmq4im64Jh7bJi6Mh vXQjXCJGfvbY/Ln9jBiSu/jIVF9EhMw4bX/M5p4I0jOd1Ls/u4Tp6xPGcp8u Q+z28aayiHnsS52JmEr6BoTLs+SDa2ZwxNXlhmPa81D4d41s3YYxnKhdNt2W OwPX8u5VbVsQYoP0PRGqyTMQ6H3pzPMGIX7a0xtwMHIGNrz+qfveWSG+KmGg /MxpBjLSHz/4d90onqrPe1f7fRrOG/9utTVoBA8+PR+Ss38abMI8A28XDeLL f16e0x+bBIaWOYNIGMS3/JL+5Vs5Cd86ieYrnoOYPZyrFZY8CcXW70zPiQ9i O3ttmonpJGjJ2Yi6uA1g+29SdvpREyDN0b4p9e0D/shVa0pbPQ73u4d+E8b1 Yn+d7yXD0mPQdUHxzq2tvThaU/N2So8QqIxfOE4fBXhqDe6nPxPCWd+HLWUg wCw74zWZjkKwG2KtSVrsxkExQl566iiMTkxm64Z2YrnJzOBS2gjoii4WBXrw sUFsqcLdDwPgnaNbw5Tm456D7y2uPxmAlO0e7a0vWrGGXnmQSfgALMZzv1oq tuLkRMv8HMoA1FMuWck0N2P+7hLfDoOP0KEree3gb4248ai//yirH7ycVIq7 j/Lw5R72gVMKnfB5ds78DK8aB+1OOK+Y3AEXMt5hqmY1TuZmsA9QOiCrO6be evgVbt49ePPE93Yorm+p2df8Eg/ssTr/dwMf+LT45piUStx2/W+ZKCs+zLqa C57v52JtS5tHP/Jawaj/zpd17WWYLnF2teelFsj/ErR+tKsYs9ylsq2lmqDR XG3LuqwinBX/c5JzXSNMXGy12OtViK+tXLUsG94A7vKnc4/jfKxTEdd7l/sW bmR1VTRaP8V7VrOTG5zeQLuWdasxLw9XpY/OxvbUwn5LqqjIm/tYYF9e/uUv HqTUnFYO2J2D847kkdP61dC0r9ugoSEb/0XBto8vvgJGcWyyf3YWblz78G5j KIY/6hyx0f0bOEiT8SX/aQUoCVQnfjxKwZyjghOCnFLYNNBmnuF1BXcGx29j /VQEWjKhN/QDovE570/2YcFPIIq/kb+uOhh7vS76sV4jG/RkBSzxzS5wSA3C rX2uQ/t0zB3a1whgHL0QPlj7AKb2ac+EhMXDi5L3Iuz3HIhMtXsbaJwMD9pM uPzY5/Dj4rk/7mxJBz9345KTZWUQxXoS1KqbCefmK9XnsyqhWi3x11u0e+Bu 5fSrmGcVxGVohJpdywXvL2lT90V5YCfDdW+m/AnHt9kkRrNroG5+Qkdc4gnM +UbZDmbWQUCArn/Jj0K4NTJ5i6vRCDs1wg/FWhWD3H0LjlvoO9goqN7reOE5 HIrfMZru0QRjzl5mYwuloJ9+Rc76ZjMEbUuWZMxxIdXy0L0Tc61QJh3ZVnWm GpaM/XDZ3g7I3ky05mvwIP2kttiooAPiHfObst7xQIR9PuNiYCe4ZAzUn9V5 DSzqmiydmC6YUt9TpSuoA3aeIal0pwe0zFXzU7Y3gmbSm5x6x354U+SzvSCR DxsWDxiVLA/AzzV61dr9fLAtDNjEMRsETvuC9W3TNuB0F9C8QgYhYyEVrgy0 gQJ9bE27YBCOQZ2Fn9V7MORlm4SUDsHyWwND5elOSNkg893PewRMPoowot37 oGmXF5UbMwb65W7TBo/6wDCui9DmjIFWylNe/0IfuKZEsgMFY0C5+8Qk26Ef Xmfy5GLNPsGSo3vP8kQ/FIao/7Ig/AQCTr4ONvwIytv8BH47x+FOqDfPqnQQ jiwcmh0Zn4T1UxULFlVCUDtV3Ss4MwP2OZ0Ne91n4GlftDfHex52OMiLzT2f B/bbTyeryr/BdZ/3UQalS2B61YhyIXoZaveqrnaUF0GcNI9/Kz0TQePqxMWW TDEU5X+MFnZUDJ05venwdcVVaO7wj0cmP1ai9z00Z/86SaQxeRQEeauQ77mf RyT2UNDZ0Z+YC3qSqHqTWVK1OBUNqV5e51MlhbSkuKO5O2noRYvhqXlDClLl Bu4QT5BDnwcn2nR+l0ErFkUfhX2UR5xehQ1NK6lo3qnSu0aTjs6WOi1z3WRR t7HPOs04AvVGe5pd96GhUDeanEaPIorovXbaQUYOKacNuq9UVUISI8pqrDw5 9Mwj+8/ZCGVUyJrye+ssj9ysLu2sq1yLKKkeKg7j8qjAO1jDYmkdkthuaxQY o4C+StuKlbmqoo5sk84ydTpybrY0VWUz0C6bhEsGxXQkbUl5xb3FQHETNb1l JXT0Krdrt2cOAxUY2yraltGRQcS5w388YyB+2Hqq60s6ojJLryrXMJCJVJJG eB0dvQkyGiBmGGiR4zlc1ENHSFInmbqHiSJcHqvQxAn09eTXtc+cmGjYzy8j TYJA+d219x3cmKjt5DWhkjSBGPn+FVePMFGLh7OKuiyBllxzh6XPMdFYy73i LcoEKs1hWkk8YCIh+9iLHZsJdGL1ZO2Dx0z0cNa9oXYLgbTCXzrbFTBRgdJe rr0RgdJ2eR2/zGWiJwXeGx3MCBQ2nZkq1spE/D4FC2drAul6sBg5HUyUESCl 1vqPbz7wzB/Z9DJRvPkv/fvtCOTI7ngZLWQiUVM86bKbQJKiD+3VJ5kokk6B NgcC4cBwPvmFiZZzq467/uOns212Pr6LTBT6YiKozZlA//MX+r+//gMKXZRG "]]}, TagBox[ TagBox[ TooltipBox[ FractionBox[ RowBox[{"4", " ", RadicalBox[ SuperscriptBox["x", "2"], "3", SurdForm -> True, MultilineFunction -> None]}], "3"], FractionBox[ RowBox[{"4", " ", RadicalBox[ SuperscriptBox["x", "2"], "3", SurdForm -> True, MultilineFunction -> None]}], "3"]], Annotation[#, Rational[4, 3] Surd[$CellContext`x^2, 3], "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[Rational[4, 3] Surd[$CellContext`x^2, 3]]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$51352#1"]& ]}, {}, {}}, {{}, {}, {}}, {RGBColor[1, 0, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{0, 0}], RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], Annotation[#, {0, 0}, "Tooltip"]& ]}, {RGBColor[1, 0, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{0, 0}], RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], Annotation[#, {0, 0}, "Tooltip"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-8, 8}, {0., 5.333333188208615}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.781588523377792*^9, 3.781588608217114*^9, 3.7816640923716717`*^9, 3.7817622332395983`*^9},ExpressionUUID->"249628ad-1ee3-4640-a3c8-\ 412243beb2b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"y", "-", "1"}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"4", "/", "3"}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], ")"}], RowBox[{"2", "/", "3"}]]}]}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.781588787999332*^9, 3.781588830216217*^9}},ExpressionUUID->"c4b0f5ed-73f6-4068-8156-\ 26758866c2c5"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781588830663316*^9},ExpressionUUID->"4edd53b0-1dce-44fa-b2c4-\ fae5156d4190"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], ")"}]}]}], "}"}], "}"}], "/.", "\[VeryThinSpace]", RowBox[{"Rule", "\[Rule]", "Equal"}]}]], "Input", NumberMarks->False,ExpressionUUID->"8ddab775-bf0d-4989-abca-2860b2fd39ae"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Equal]", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781588850502565*^9},ExpressionUUID->"7d589054-86e9-412a-b306-\ f994a8ccb36c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], "*", RowBox[{"(", RowBox[{"y", "-", "2"}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"4", "/", "3"}], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"x", "-", "1"}], "2"], ")"}], RowBox[{"2", "/", "3"}]]}]}], ",", "y"}], "]"}], "//", "ExpandAll"}]], "Input", CellChangeTimes->{{3.781588920581937*^9, 3.7815889754491987`*^9}},ExpressionUUID->"90279234-e8cb-432f-aa46-\ 70d795a96148"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{"2", "-", RowBox[{ FractionBox["2", "9"], " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], RowBox[{"2", "/", "3"}]]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.781588956638801*^9, 3.781588975857744*^9}},ExpressionUUID->"02e911c3-0c8d-4e6a-b509-\ 396ba16e14d8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ SqrtBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"]], "\[GreaterEqual]", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.781589017729821*^9, 3.781589037421714*^9}},ExpressionUUID->"0264f42c-d18a-4b91-aeb7-\ 2b635ca44976"], Cell[BoxData[ RowBox[{"x", "\[Element]", TemplateBox[{}, "Reals"]}]], "Output", CellChangeTimes->{ 3.781589038334756*^9},ExpressionUUID->"89289f19-b895-41b0-85b3-\ fad452f0473e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "-", RowBox[{ FractionBox["2", "9"], " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], "/.", RowBox[{"x", "\[Rule]", "8"}]}]], "Input", CellChangeTimes->{{3.7815890640720177`*^9, 3.781589100086261*^9}},ExpressionUUID->"ecf2a1d7-b54f-40a1-928f-\ a673c8f1927d"], Cell[BoxData[ RowBox[{"2", "-", RowBox[{ FractionBox["2", "9"], " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox["7", RowBox[{"2", "/", "3"}]]}]}]], "Output", CellChangeTimes->{{3.781589084591831*^9, 3.781589100837171*^9}},ExpressionUUID->"2c4d327c-ad9c-4579-8e5d-\ 9b08f7fb631c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DetailPlot", "[", RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "17"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781589144654277*^9, 3.7815891709046803`*^9}, 3.781664106607587*^9, {3.781762250786056*^9, 3.781762251177487*^9}},ExpressionUUID->"3da9734f-9b94-4753-b3cc-\ 13be498649c5"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVknk8FHgDh8WUHDnGpCWtIyk3JUo5VulQtg0ttiSlFRKlkmwpsRRydZBI KRG1jm1bJd8fSZGjrIxhHDPDGDNmGCRXvL1/PJ/n/+fzaB8OdjkqKSEhcfM7 /7eJnSp/ft6YsMZUYjcp0xE8tTJuatqYWJ3fdCiGSkdxmbne2Bdjsp2pfaVZ hY61a5wPcwXGRECy83xV6bBSju5ooBuT56dj/FKX02HPEddn/GVMbofe48+s osMltrFwnbcx+XO1Va30JjrCmqOD/CqNSL/9j4kyv9PR2irHr/IxJJLUysTK d3SsIME0Kw0D4hkf8JOUfjueB9YsVOxaQ57KaRo8v96OQwnmI4yo1UTZJefS goUMTKZGxMFOj9je3/ipP4KBXIVutXSWLkkJsTjpLt2Bu07mp/67upJgiGGb c7cDUcd9zunv1CHnO08XVFt0IkLqSdgpoRZJj14DR34nqiXu7Szaq0nWCD5z jPKYMIr4YL7xswaJasx3MwvtQkXPGvkiHXUS8P4A+fFEN1Yp2Tu4ZS8j+8Q/ SSaF9+Bvg7gANodGLHZc+Cp7tBfanw6VGzJoRNvSNJDh14vrYRsXn2mikXh+ 04eCgF741fAfSZfTyK4Pml6/hPRC/aAzy+g6jbQ2sBY8j+hFZArVI2wDjZxz 3BPSndoLp8m7jvKJKuSzM73gTXUvWG9LtCwtqeRZjvn4GX0WLrpObd1gRCVN S+XS7hixoM6y97fWoRKpvemXqkxZcJltLrFVoJKyF89dVS1ZqF4rctjOVSar 9GJNmA4sPLhncNTjljIZ3pIY1HmABd/w3ILzE0pEeYK7CKksNHkaHL0YpEi6 G5fV8Rax4THr1PXJXZG4GyFNUY4NVnbgvlUOioTLoFpYK7IxzilybFBVJAOS TxQyl7GhdsJUT50oEJOA9V3xa9jwjbIYeE5VIB82n8023cXG9BNbf+ELeVLs ukOyJI2NaGdvlv0DebJcJKz0TmdjyUik540EeaKsXW+lksWG1vqqnZt85IkZ rSMyLo8NR2wxuCorTzpXzns+LWcj+b8dAl0vOeKRXLiQ18uG3qxL0AFJWVJ6 T+W17zoOFIL2JmuLZEiW/cN/fTZwMNG1p4zLkCGHlLcMHLHhoBa7p0JKZEgo 65PUue0c+F3ZFhNzSIYIzeqdevdzkC9rnfWscjE57B0sKI/hwFBNu1EiQprM Xkm36u7igHZNc+Tt79Jka9R+9VscDmanV6jEu0iTJ6/s0t0GOWhgqnsuNZAm 0W1Gmf3jHBzPofXrMxaRNrVYW0/5Pjxbvfibi9UikvSy7lra5j6YWQ4bPRqj kHrnKGr1gz4EmERGlndRyNs06zNTBX3I1VNsaXxHIaZT/0xbl/RBdZlp2EQm hewoPdrCRB9mvp6o2r6VQt4FbIjN7upDbbloH/+GFHnx9shn8+X9OGAjumhq KUksEqNij9/rx631Fz9t0ZIk4Q2JwVr5/Wg2VtD1kJUkWnFegezifjj8aFJ3 qXsBUfJZapdS3Y/V80EqLX8uIEuUJ3qzuf0YJcLHp+kSRCVpKj/HnAuFqx33 Q8VzKNf/pp7VysW1lPZ7x2rn0CGXOrO5hwvpO21ZXplzuNzHrBwZ5EKisCVj u+McfKhvxm/MczHaUJ+yPOMbaurjbtINB0BXenX5jf0sck+mNcfEDcBNrTzy 36Wz0Gl+HxRzYwAftV9ceMqfgWzYaEFWzgDq15aF374xg413sn3UygdQ4VZ4 MpA3jde1p2a3CwaQk57po5I8hT2JUyMMNx407md4Lz46he4V+kEph3nIKLjt 9W3jFJr898sfC+Eh9WWa5wBnElS5x/mnE3iIZsbvfWU1iazM3UVqtTz4a/3x 05GeCcyZt3IU7QexNv+AdpnJOD7YrdY/5MrHcWfVM/GLxqF1y44i9OUjb7T5 /ZHuMdilX5YtOMuHus2WENr1MdBChjRK7/Ah1aKPM8JRlCVpuOj089E6M3Fg Q5EYEVyriz7RAijcLy5Wihbj0Y24JI8MAXZsC6AM7hfDsbX5h+RnAlQkdxVm yIlxsshJtZYhwKNVNdPTASOoLfCuPrtuCEPZOuYRriJYhsnVHfgyhEODN9sN pUQQJ6TuU1cUonWdzCVmqRA1mnNeFvpCvH4/3GRDFUJexUsv9qAQ10crjkt8 EsCyQdpR2CiEpI0ZreSSAEXWj5n/8YU4G5v7ysdMgEF+IN1wsQjeGtdk3yTx 8eDny0c2bxXBbJt7fszP3zsx3IZtqkV4mFy/x3KOh/Dbr6blOSL80GnzlfuU B+nQ/e/8KcNYEKK7bccSHmZdU+u6dgyjJUPMkW34/pHA5Le1jGGECuM1k3f2 YbMSbcv66yMw2ucYc2GUg7DTiR76eSPor5jjB2RyUMp8HfqkcgTuCSf/cRSy kbJW1zhQPIJNhu7OM8ksjLxf+PDeQTHGU5XKeBtZuFs5P1QaIcbT6bof2ti9 cK1Qr0/IEEOzfnNfsUUv0nybyUu6GItatk40FHfBeeXZa+u9R3Hu/ouqx5Jd uMnhff7ryij4IQaJUW5MFHq3waVgFE2KSrobJjuQ6yV/zH1yFPY9UcNUpw4E PXT5pUd7DKXPvrwUZjLwQrX3EnP3GG45d+7NtWvH2KNfV95+PIbFK35ecTGF jixK+ZVr9DGcHyI8D04bylOeZXvLjONgfF6kQuxnRBpGD1mHjuPjb2q7Bttb Efi305nkwnE4GCSo1hi0onW2ONyPO47VdSefhje1oPOUTPUJ3y/ISO8756bV gr+9shvV8r9A7pj7VtNTn8A/kky1Hf6CC1b1irI1HzFsUJVnYj2B4UU2nX1L P0LUyTF2ujqB6iJv58jmJvypf036G3MCebsc+yxCG1FOKaHUrP+K4KtK1JyX 9ch/32s2OPkVrmsm8vcdrIOHVFLeP76TsHrXaScn+R7xl3eHX2mfxPLfq9rI o1roNUYa+++bwjzlcdDZnW9xdWXbkgrmFDi5CRQj4Ru8eysy0wiZxjuHU5ms 5GoknpOXSFSeQSHLfe1tiyro6rYfv/VmBpoLIlIzigH2xZavp6/Ogme7jVAm KyCrsVjNx+8biv9QFgXbvYSf1GrR7OE5/Krz4S4j4F8k94Tx/FfN43/Gwi0T "]], LineBox[CompressedData[" 1:eJwVkWk4FPoCh8fW2EmhlNCxlmU61lR+/xaOLHWS6GZJxKMk2sQpkSWSmpY5 pZQ6KoluShKZVGqUVCoaS8gYyzCWGWOMLe65H97n/fJ+ew2Co7xCpSkUyq1/ +b/fcevEkUrlEJhceunVMYPLvGJfgVYF1jfFNtPnzkDcbvF58z8voHo5U1Ns +QsFe71zGzVfwZyt7MrZPY2W7gsBVL/XyF29Qk2+aAoKu+oW2N+qguXVJ9t1 Fafg0KrcENb9BoNFm79lHppEuK8b/fIyFpYo1Wlt7JtA1rc0t+qoang/0Ou9 v2cC7zxZcmMl7+BFOenoLRqH8QZyfBs+IMckSWC/ZBw+L+PtU1NqQY+6W1P6 QoJUx4qRkpqPaNk9bjMRLEEXzW7PfO860APMY84xx6DIXqmR6/EFzrYmLqKo MeReahpeOfwFSvWtwStNxvBVVatwj803TAwHWunfEiP8Y0m6VOM3VO948th6 lxiUjK1hV+Pq8dLmxWElIzFochcMaiobkNbIM3QsGQV9SinLdGMj1Mq7ZaQG RDAuLzjyit8IipmqTkylCJUxG7duP9eEVaujPyReFGFIeEo1vb4ZTacdnow7 ieDBk0rtDWjFEb0qw/X3RtB191ZwAqUN1g1PA4xSRnA8BET7dhsuzK/xUgwe QWH78SkXXjveTH92L9AfQWr/lMPW8g44zum/oZ4vxJ8ba01uKnLwTrS1oe6M EIvzr2nx/Tj43e7xWRItREnoytGkGQ4Cp3PlF64Soqsjpqh4PRfIv3xzqFGA R3DJmWFwIcyzEpx4JcDxHM2zbj1cDGeXXKXfF2C+f8nezvQuPCcF7nrxAqxv FBppfO7GDqmsLUlmAkzLyYWwdHuwLf5IGUVLgBKbBbdiI3sgHrw3+UNaAMOL Tjo/lXvhbVtKd6wYhqznGdUH7jwUXwh1m7UYBvNYjvvObB5CJDYTNOVhHC54 nK7B52F8S+J+Uf8QuqlN0nEZfVjLH12oUzCE6ipDiXNNP8SbbU8lWw7hhNDe ZmIBH601p83r1Idgp+9+4EE4H9bxDvvPiQaRF3+AryE/gDMfz5T6PR9EmkPl z58ug/D/21ae6zEI14e+7+PeDkP/7talickDSNz/NElLUQB5RTWnuogBtMrB QLBCgGcVg1v3eQ+AYeMVePukAA8TCtNPGw9A7mJsk4KBECtmX1Yt/cxHjwfr I3vnCExO8r5kmvGxrmtTxKO0EcSqzC6co8VHzrEmhYyiEUT11qk/k+bDp4Dv smb2388LZV5XtPajmqrx+naOCL6vdn+3vtSPe1WBT6PbRjFly0qeq9CPIHfW aKG8GMqXd41YSvqg07DcptdaDKXwswbx3X041z1eHJAhRsKZSvP8qj4clr/0 yM1+DE+DqOYGCX1Yt+ldoeEFCb5KKBXCWR6m2Rb8nUwJRJ0ZoucCHkp3MpZl 90pQX9kuzOfwYHZg1/25TuOocCluFrzhQZ0xlTfTPw5be+om/Qwe2putcps2 TOJ0vOZo2mIesoIvc+ZFTyJKTc7DX40HL/60/ubsSex78muVpzQPrOmamyzh JEZiTtgl83rxQG/3jeKcKcwE6XrZlPYiLjQrK3N8GsI4lXxfn17MF1Lo5MEs nr2qY+y61wP1tsLYrIZZnF8+E1J7owfKNT7BgulZLHws2u7M6EHSn2ydL8YU IvsrRRJ+sgd/mZoPJRylELXxt/J7/XsQ0dTI+LlAihT/ldVsodkDDwerzhw/ aSLJre0rOt8Nt4eyjR+ipMl1NuOfuvRuuBq21I4lS5Pta0M+TyZ2Y4N66tNN D6SJraXnvEMHurGa15I+My1Niv6TZMfz6oZF1imrwBwZEvAxKOmTdjdUx9uO 63JkSZJrgMqP/C5U9BismxyTJXLx2boF/3Qh/HsotVFZjuzuvGqcfK0LVcWD F847yJHs2jdVXpldOBL5K0/mvBypH5r/d2h0F1o7F3/tc5pDWkRcUxfHLhR8 8jMqvU4ldL/M9NAGLnyZN/svFlPJlmCj826fuZAt5BZFvaeStXOeadq/5yIw PcLRbJRKkl837DBmcjF3/bHN193libOqSNv/DhexZdfikibliUxQtbt2DBfO t5s/bdquSFqdRq/tW8LFQOrDMFakIrGR7SNOC7lghCfPrkpWJO37FRM153PR ZWGxwuyhInmcVn6zQYGLlLJEhoysEnGS+X0DQ9yJt59M/MqKlEivRcFh9c+d WD9+hGdAVSG12SOLmEmdWOupISN+qkYYmRVKv01wkLFLQThRo0a+JrWG+Is5 aDhC+TnTpkZilvn0ZAk5sN58NEBWRp1Q//vdd1E/B6yjoStVl6uTbQ8KI51/ cND/fq3Q4Jg6Ka9bmb6s8t8+YjJo46K5RPd5gP+iUxxUF0WQLD8NcuOlD+ud LgfrYnL0DoVpkNlIwcE9OhxUrv4643lAg1gV1LBUtDkorbF7IZOmQSbMXnoE qnOQx5VyjCrWIIrTbceWyHBwSjvL2kVhHjHv/MtnQV8HXBLeGo+WziPPoaH4 o7QDrE26Kn9qaBL/Mn6GZHsH+AaaJ75d0yZmYfZjusd+4tDh5bvoWjqk2FN0 tf5gO763qnuFvV9MqI3ePvSjbQiMW91L9dAj0puvJ3ffawXn70UsjrQBuZhx yy2t/QeMFZi8O65LiZbkW7is7Q/oMiOc5dJ/I5Z9j/QP3mgBZVL6/sFOQ9KZ WH17ek4LJFteBLKMjIlw580rTanN+GGzc5FRigmZOrJUOVO2GdG+6nOXtpqS PzpCrGToTVjI6Nouq7uMqKRXjLwxbcJDv1v3RLHLybqgF/uUXjfCd02C6/sX 5iQ/vIhpE9aIx4GRSx2nLUj9S0dDa41GjCuulynfZkW2jd8rN2WycZ+nm63q QSOMR5YjdtFspNxIDWrfRCP7WFeqBvazEeQ1aPRwC408aW5vz41kYwGT+cjT l0aY+mcn1SLYOEX3q84MppHClgUVg6Fs7La7KlSMoxGyJtvlmR8b+inzXal5 NNJyzaHs5B9sTDscV2nMpxGdC9c/EBc2mga53/IKaeQ8z8qI4swG3fdJgMtj Gnlvd6g4YR0bM8u8DqUyaWSv+bZlSWvYaP1Kz5GppxEjdamjDGs2yk5JQuq/ 00itq+Ws7+9sMFbtNLvdRCPNwtpPi1aw4X7XsmRdO40sl/SvuWPJxvPYTzUn +2jkeV1FWJkZG5ctbOlbBmjEzyBa74QpGwc6r3sbDNOIzYoK3Q0mbJh67Pv5 apRG5n653//FkA1ZqYY75yU0cjpPu/zKb2x0PF21N2iSRpQ+PPoYuJQN5t7b VrRfNLIteYeRsQEbV/SUxLOzNMI1m6wa1GPjfzwK594= "]], LineBox[{{-0.004078183247506316, -1.9466342049399579`}, \ {-0.00011361230621549472`, 1.929766414965794}}]}, TagBox[ TagBox[ TooltipBox[ FractionBox[ RowBox[{"8", " ", "x"}], RowBox[{"9", " ", SuperscriptBox[ RadicalBox[ SuperscriptBox["x", "2"], "3", SurdForm -> True, MultilineFunction -> None], "2"]}]], FractionBox[ RowBox[{"8", " ", "x"}], RowBox[{"9", " ", SuperscriptBox[ RadicalBox[ SuperscriptBox["x", "2"], "3", SurdForm -> True, MultilineFunction -> None], "2"]}]]], Annotation[#, Rational[8, 9] $CellContext`x Surd[$CellContext`x^2, 3]^(-2), "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[ Rational[8, 9] $CellContext`x Surd[$CellContext`x^2, 3]^(-2)]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$51853#1"]& ]}, {}, {}}, {{{}, {}, TagBox[ TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxFxwlI03EYxvG1TaSZU8fUPMbcdHPOecxqVhYuy9By0oYxQ5vTMkEdmgtU FCOZNkmYhJWW2THPFHXooOJvmjSxQyMPPPJoamXasKHigbkK8v098OXhw0jK kCTjcTic6G//3j/UadFi8evG/V/Gpqd6cwu5rZ3PXllDDuKIkr4tIQc7qCY+ jCIL58zvKluRJTf7mw4kIGd/VClSXvHAw8M2i68TfcG07gxqsDsXrE97Y2U3 xQHLS/m/xgu9wRu389RdoWywljztUmH0Aled4WcNlXiCC9MTc3wimeA8wrPs LJMHuAf3KLJZTAfz8t7zj4y4g7EZzr5mpiuYZS8Mi6l2Bndw1amzc1Sw0aDz EAgo4IEL3OQChR2YvS1RxONJ4EDBMq92hQgml0w8UZp3unYd1BDPaPdfBStN t+hlkfNg7NRTRoquPnTXJ0fNLMrAV3B9j0yfObUKpppxGmGzBUzemMqnGYnC XYdrx/ujY0ngEyIKYU1vB+5tTRNWxFHAhmia7TmKI3iJ4VgweN8ZrLzmm6hx cgWPTNpLrvS5g2W5x75bR9HBxjtuBiOeAWbvxRZqIphgGpYWbqX2BOO28I1Z s17gdXGnzMBigz8fTHBjqbzBmVJ7B+YkB+xSPh9LpHHBLXGP61dyfMHS49cj +jp5YJ1MwTy67QfeIJ0kvDgfAG5coD0gRwWCVQ+L5NPRyHKJidUiRt6PYW0i KXKxJq63NAn5sqDSTMpF9lBRI6zrkLcP59uONiCPmeYG65qQNdL2i6d1yDtc ibIIQ578pKkmDCE/L16/NDSCXB6S4KMdQz5b698RNo38Mqf/7Y0fyHf9DmnE P5GvzlbFMJaROVHpM92ryMQ9wzVl68hf9CGp8i1kLFUbEPgb+R7dZs1iQf4D pAYZtg== "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]], Annotation[#, {0, 0, 0}, "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[{0, 0, 0}]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$51809#1"]& ], TagBox[ TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxFxwlI03EYxvG1TaSZU8fUPMbcdHPOecxqVhYuy9By0oYxQ5vTMkEdmgtU FCOZNkmYhJWW2THPFHXooOJvmjSxQyMPPPJoamXasKHigbkK8v098OXhw0jK kCTjcTic6G//3j/UadFi8evG/V/Gpqd6cwu5rZ3PXllDDuKIkr4tIQc7qCY+ jCIL58zvKluRJTf7mw4kIGd/VClSXvHAw8M2i68TfcG07gxqsDsXrE97Y2U3 xQHLS/m/xgu9wRu389RdoWywljztUmH0Aled4WcNlXiCC9MTc3wimeA8wrPs LJMHuAf3KLJZTAfz8t7zj4y4g7EZzr5mpiuYZS8Mi6l2Bndw1amzc1Sw0aDz EAgo4IEL3OQChR2YvS1RxONJ4EDBMq92hQgml0w8UZp3unYd1BDPaPdfBStN t+hlkfNg7NRTRoquPnTXJ0fNLMrAV3B9j0yfObUKpppxGmGzBUzemMqnGYnC XYdrx/ujY0ngEyIKYU1vB+5tTRNWxFHAhmia7TmKI3iJ4VgweN8ZrLzmm6hx cgWPTNpLrvS5g2W5x75bR9HBxjtuBiOeAWbvxRZqIphgGpYWbqX2BOO28I1Z s17gdXGnzMBigz8fTHBjqbzBmVJ7B+YkB+xSPh9LpHHBLXGP61dyfMHS49cj +jp5YJ1MwTy67QfeIJ0kvDgfAG5coD0gRwWCVQ+L5NPRyHKJidUiRt6PYW0i KXKxJq63NAn5sqDSTMpF9lBRI6zrkLcP59uONiCPmeYG65qQNdL2i6d1yDtc ibIIQ578pKkmDCE/L16/NDSCXB6S4KMdQz5b698RNo38Mqf/7Y0fyHf9DmnE P5GvzlbFMJaROVHpM92ryMQ9wzVl68hf9CGp8i1kLFUbEPgb+R7dZs1iQf4D pAYZtg== "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"{", RowBox[{"Global`Private`obliq$51663", ",", "Global`Private`vaP$51663", ",", "Global`Private`vaN$51663"}], "}"}], RowBox[{"{", RowBox[{"Global`Private`obliq$51663", ",", "Global`Private`vaP$51663", ",", "Global`Private`vaN$51663"}], "}"}]], Annotation[#, {$CellContext`Private`obliq$51663, \ $CellContext`Private`vaP$51663, $CellContext`Private`vaN$51663}, "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[{$CellContext`Private`obliq$51663, \ $CellContext`Private`vaP$51663, $CellContext`Private`vaN$51663}]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$51809#2"]& ], TagBox[ TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxFxwlI03EYxvG1TaSZU8fUPMbcdHPOecxqVhYuy9By0oYxQ5vTMkEdmgtU FCOZNkmYhJWW2THPFHXooOJvmjSxQyMPPPJoamXasKHigbkK8v098OXhw0jK kCTjcTic6G//3j/UadFi8evG/V/Gpqd6cwu5rZ3PXllDDuKIkr4tIQc7qCY+ jCIL58zvKluRJTf7mw4kIGd/VClSXvHAw8M2i68TfcG07gxqsDsXrE97Y2U3 xQHLS/m/xgu9wRu389RdoWywljztUmH0Aled4WcNlXiCC9MTc3wimeA8wrPs LJMHuAf3KLJZTAfz8t7zj4y4g7EZzr5mpiuYZS8Mi6l2Bndw1amzc1Sw0aDz EAgo4IEL3OQChR2YvS1RxONJ4EDBMq92hQgml0w8UZp3unYd1BDPaPdfBStN t+hlkfNg7NRTRoquPnTXJ0fNLMrAV3B9j0yfObUKpppxGmGzBUzemMqnGYnC XYdrx/ujY0ngEyIKYU1vB+5tTRNWxFHAhmia7TmKI3iJ4VgweN8ZrLzmm6hx cgWPTNpLrvS5g2W5x75bR9HBxjtuBiOeAWbvxRZqIphgGpYWbqX2BOO28I1Z s17gdXGnzMBigz8fTHBjqbzBmVJ7B+YkB+xSPh9LpHHBLXGP61dyfMHS49cj +jp5YJ1MwTy67QfeIJ0kvDgfAG5coD0gRwWCVQ+L5NPRyHKJidUiRt6PYW0i KXKxJq63NAn5sqDSTMpF9lBRI6zrkLcP59uONiCPmeYG65qQNdL2i6d1yDtc ibIIQ578pKkmDCE/L16/NDSCXB6S4KMdQz5b698RNo38Mqf/7Y0fyHf9DmnE P5GvzlbFMJaROVHpM92ryMQ9wzVl68hf9CGp8i1kLFUbEPgb+R7dZs1iQf4D pAYZtg== "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"{", RowBox[{"Global`Private`obliq$51663", ",", "Global`Private`vaP$51663", ",", "Global`Private`vaN$51663"}], "}"}], RowBox[{"{", RowBox[{"Global`Private`obliq$51663", ",", "Global`Private`vaP$51663", ",", "Global`Private`vaN$51663"}], "}"}]], Annotation[#, {$CellContext`Private`obliq$51663, \ $CellContext`Private`vaP$51663, $CellContext`Private`vaN$51663}, "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[{$CellContext`Private`obliq$51663, \ $CellContext`Private`vaP$51663, $CellContext`Private`vaN$51663}]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$51809#3"]& ]}, {}, {}}, GraphicsComplexBox[CompressedData[" 1:eJyN1EEKgkAUBmDpHLWonKJFRwhaVkuhfQTtyjqFuK5o3apNm0IQIgqpW6S1 7BzpezZDfwXvgciHzrz51bE8nDqjgmVZ/fTIzh/lX9v/7MbhJK5cxE5ShqdI 7KXdndv7s/YCPAdTv+dR7F42QfEgdi1t13VCbQW2wVR+IDbn34k9ozxb7SnY BddpfRvIY6zAD+q31r6DE3CDxq+gn7ECN8kejPfgfuM8devTA7CpEo+P3i6D 1c/rK+0qWIFvnF87Bidgnm+jbYMVeMzvT3sCdsG8nh2sxzgBU/mB2Pn3LXaH 94/YnPcIeY1dcL7/xebnEYmd/7/EpvKvX34Buq9B1w== "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}, RowBox[{"{", RowBox[{"Labeled", "[", RowBox[{ TagBox["x", HoldForm], "\[Equal]", "0"}], "]"}], "}"}]], Annotation[#, { Labeled[HoldForm[$CellContext`x] == 0]}, "Tooltip"]& ]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-15, 17}, {-1.9466342049399579`, 1.929766414965794}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.781664101575453*^9, 3.781664107825039*^9}, 3.7817622524207172`*^9},ExpressionUUID->"145f23f2-4814-4477-84f7-\ d58f43649f48"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "-", RowBox[{ FractionBox["2", "9"], " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], RowBox[{"2", "/", "3"}]]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "17"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7815892040745277`*^9, 3.781589220078238*^9}},ExpressionUUID->"1d99e774-b514-4608-a985-\ 82622d034cc3"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVj38803kcx+dHD8ZVEiXCdAhTvj0O9VDd+3NSVha2K9Op0VKnqCYl63Ru slJ+7KpVo+zSyogkpbuukeomasNKWY+W5seRh3M2P/Jjs+/t/ng9Xo/X4/F8 vF6PlwfrMH2vOYFAiDLpfy+zXuhCImgh8ZjktsaIwy+H6rIX2WhhCzmuw3EI B/Uc8NCu0kIFMWUzeo7DmpLmJy07tJDPjXjrX4aDIJDOFHO10K9p6EcFOGhf fTBkVmgh++LZUkU6DtQ9e6/GKLWgtqEG2LFwmHMhQ0X00AGJYsXzW4cDy9f8 eC9FB1mkqORCPxwaGvMc69k6aLgwGnZrCQ7pIyI6u1EHkTTe67xpI/RTZfJ3 8aOwMyaZU9BghNC+yOSaM6Mg76VbSGqMIPpJRTx3dxS8z0V1WouNEHN7aNN6 fBS+ZQYO8nON0GRl/1QsGoPd7YoXwTFGkDxj1rE/joNwLYvHnp6FhAjZeKX1 BOQ9lOLc4Vlw7iAHDnwzAXeaj6XVdc9C4d9TtbvOTQBn//e5mS9n4aj1xZot q78A6UxZcVLJLIRGvqj0PD8JhiTm/K7wWeh6H3BDFTYDZeRrkw9vG0DIuty9 kD0Dpb8fErNKDUAfMpCirs5AYlzPchehAWSGlt9kuhkw0qrL7vEMUOWeWFIr 0kPUp/nHD+42AGevUJg/ZYDB6ZOEEWcDOOgIfFSFQ1fzxnKNQA92HyszhB04 TA/WKCML9PBVSwxLa8CBYn9533OeHrKj3zm3exNQcD/x5JN0PZzw8f836zgB PXrW5ma2Qw/Jqk7BJyczRCcdrily0wN1TUCPKM4cNZGbqqrvzMC8qY+Zrt2W 6MtKB9uHqmnYKH6viIy1QUfqOoJkQVPw3VZ7i4m6+ah1wc6AJ0+/QNPdZCSM s0dhyiIaN2sCZJGuc6PtHVFeuBOjOHgchjwcf35dvBhVPf5xC3HhGKQdJe/m L3JGtQ2VhavMRuGt2o6+r3kpQrZJv6T0aoHJWTdgRXVHie4PyMS/RqD7kous 29wDeavEGFcyDN5E6eeblGXowfn6xwn1Q+AqTd44J/drtNQzpcB1cBAIM+YV R3o8kUNniNel6QGYpNUzZV7eKMH2YmV1UD98CIx38cpZjn6IJi7OjukDNsNu wTK1D3KwPOWmPtsDSwR9sZaufkgYarc9pE8D1XHXJWMZZHQttTwobVMXMNZn UZrr/dHR4sUNifM+wD3mwWUhhhVIDUWiJWOdMGWzweLR9gCkil7tmV7aARWf Xa/Oo2KItNn3Dl2ghJwSXkJXJIbCdmniXp1WQgJ92KuahqHy80VdYRwlOEml NVsZGPqsDY0PYSrhND+uKZ+FISHnZXiAjxISg4t0NhwMeUZLc5G0HUg5DhSr MgzFtq9qNba0gWFN5tzOcgwlLUrd53m3DVTDva/LKk37V+yKIwRtwGfc37Xp HoZQZ79SxGwDox89jSc15eDVnNixVlAr+SKLNxi6HuFJc3JthT9OT+5589aU T11PZZi3gmBtvK9YhSGKeP9y4YACIm6tfBDahSH2hj00t1oF/JmhaOEOYsiH wRWsD1fA5RVBfNo/GEqw1G0766+A1J5r2zxGMNQ4Uit5t0ABPtSUT43jpj7H ++bpajlYmnXc/HUSQ5oTgTbNT+WgqVt7IGHG9O9Y4Q0XiRykB8QB2KyJ17Ne sfPlcMXddgLHTbzvtpwXqXL4D7dbaGM= "]]}, Annotation[#, "Charting`Private`Tag$7424#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.22222227059712818`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-15, 17}, {0.22222227059712818`, 1.9997259775330685`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7815892208932858`*^9},ExpressionUUID->"12e8300a-8f5a-4b6f-87ee-\ 7cf8f242505a"] }, Open ]], Cell["2)", "Text", CellChangeTimes->{{3.781589281196122*^9, 3.781589284623886*^9}},ExpressionUUID->"cbc6c3ff-d484-4de0-a452-\ 94340d713b08"], Cell[BoxData[ RowBox[{ RowBox[{"P", "[", "t_", "]"}], ":=", RowBox[{"95", "+", RowBox[{"16", "*", RowBox[{"Sin", "[", RowBox[{ FractionBox["\[Pi]", "15"], "*", RowBox[{"(", RowBox[{"t", "-", RowBox[{"15", "/", "2"}]}], ")"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.781589286266108*^9, 3.781589292170225*^9}, { 3.7815902470752583`*^9, 3.781590286879703*^9}, {3.781590570474132*^9, 3.7815905727853823`*^9}},ExpressionUUID->"1b58336a-937c-475f-ae35-\ 5db96f9c38ea"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"P", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.7815902916799517`*^9, 3.781590294821134*^9}},ExpressionUUID->"2936cf37-0b97-4622-8cd3-\ 8b4f944c5544"], Cell[BoxData["79.`"], "Output", CellChangeTimes->{ 3.78159029528087*^9},ExpressionUUID->"f98ea80c-8937-4c50-b1f4-e288a17fb89e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"16", "/", "15"}], "*", "\[Pi]", "*", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", "/", "15"}], "*", "t"}], "]"}]}], "\[Equal]", " ", RowBox[{ RowBox[{"16", "/", "15"}], "*", "\[Pi]", "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", "/", "15"}], "*", RowBox[{"(", RowBox[{"t", "-", "7.5"}], ")"}]}], "]"}]}]}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.781590392013968*^9, 3.781590461555228*^9}},ExpressionUUID->"2b055375-a070-4943-a590-\ cc76b65084d3"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", "}"}], "}"}]], "Output", CellChangeTimes->{{3.781590418146912*^9, 3.781590462028041*^9}},ExpressionUUID->"9ec01a3e-f643-4b4c-b336-\ e9a6d87a5f4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", "[", "t", "]"}], "\[Equal]", RowBox[{"95", "+", "16"}]}], "&&", RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "60"}]}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.781590497804508*^9, 3.781590537414853*^9}},ExpressionUUID->"7ce29256-873d-46ed-9fda-\ a2a8751c6e9a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "45"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7815905197518167`*^9, 3.7815905768713493`*^9}},ExpressionUUID->"b1333048-5307-4bc6-bca2-\ af2121d24502"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Pn", "[", "t_", "]"}], ":=", RowBox[{"0.01", "*", RowBox[{"(", RowBox[{"t", "+", "85"}], ")"}], "*", RowBox[{"P", "[", "t", "]"}]}]}]], "Input", CellChangeTimes->{{3.78159062231489*^9, 3.7815906407661543`*^9}},ExpressionUUID->"67b65d08-f0c5-46fd-aa86-\ 5854fc377f00"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DetailPlot", "[", RowBox[{ RowBox[{"Pn", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "60"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781590645923843*^9, 3.781590678387782*^9}},ExpressionUUID->"8f743abb-00c3-444b-a91e-\ 38d4f13d186f"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8Vf8fB/DSIJVKKpkZqcyLIuO6L+Je6wpxjXuNe1MKIbuUL5EUFS2j QrJaVkVGEg0qpVCyihYKETJSv8/vHx7Px73O+Zz3PGR4fra7+ObMmXOR/Pj/ 74nuhkfy8XcMFprmX05tsEZLuugBw7YztGszs4HHn1kDq17xRNuyaCZ7ldMO PbdGiPX1d/PaSmhULqXNp9EaK4bWnJl6V0uLsBjYGPzaGh+qrPzG3r2hOR5X jV7fbo20VWs8Ahe00D7kVp8277CGne8Hx1GNVtq6XtlfAZ3WeCbtb/Tz5Dua 2L47Dxq7rVF6JGnVj22dtPNMl7Abn6xBlx/oGnnXSyvKFMjkH7JGtrWVY7Hv J1qN+WJd3rA15h4ueeO/4DNtT0yyas1Pa1S1Hnw6rPGF9uHwkw2xv6yhfmxx 8eDJb7TslrUuulPWkBhQjunf9oPWPC+ha9sCG0y90z7/890o7cTas2/bpW1w T0PAPW/TL9q2GImVT2VsEHKyTdE1/BdNZqiAWiZng1GjAzXPpcZo1UOe7Ksb bDBwq+J77q5xGlcp7NZ1NRt0RlONXH79pn3RtaMFwwY1atuGG4RmaUvupzwc 97BBxImVFZHus7QfFrevu3raQP/LpxjtklnaA41mn+d7bVCeFiOWY/+X9mSM GVbka4OSBU9MIi/9o+X/dU7MD7PBm33yVuKr5qLcT/nd9pM2qNuWl/06ax5u nFLfGVBuA8qpwv7f9fNQ0TOwVa7KBultZapSw/Nw7eRWxrtqG4Ttq7/npTcf l4wuCpg9soFqcv+LeS3ENgIztq9skDagNL5lwUKYXiwP/ffFBv5JRSZpngJo fzjbX7TKFhIfyr/ylJdiydTsNfEIW8z5tT+lwWYp+IWv+R2OssXnhYrmlNCl 2HX7dV9PjC1uqabdmn24FHkTHwZL4m1hEHEwKMVBCNrO6kuCU23hJqnH9/LI MoRLR7SH3rXFa5XuU5d+LIdXaprm3mFbiPi4XeffthJ8gXZ1h7124Iw6vdLK XhTtlLg2xSQ7vE+h1Iwsl8TyT01jmZX2iM/+7xXfWhnk1KbYRgs4YM25T8fP XpbDUjk+6wiGI47ZmRm8mVgP6poFVhnOThC781KMb64C7BWfYb6bEwpW2v1W X6yAVzSr1N07nfD2jWtRkrQCOlU+e8v5OEHeJkjWxlQBSpeWKR4+7IRaZsbC plQFPPly+NqtDCfM0sdfNupvQMPTN+jrcUJi7sEbs/QNGHGIjx39Qv5+4Zw4 FZsNsLr+oXyq3wmWjwUNT+7agO1N0h1/R5yQtm3dbctTGyAdvSzn01xnbIVF 8vMPG3Dv+JCZiIwzAnWuuDUc2YjchALZaY4zzDOFxiwSNkJzcOdrF3dnyPIf int5fiM0bOnB1Tud0dTCKm7O34hAQ48zIV7OUPVfMq/75UaUaPI6HoY6oy83 NHdUbBM69lQfqk1yBkfEalD89ibsiPytw65zhmZ4ZVR61SYsVZ946/jEGYK9 G1fLPNmEvy3mkjsanFFeOI+m8H4TBJQYl6mvnLHaojyR8m8TVg0Gqw60k/tH yW82sVDEzfcHHmSMOMN4ePqg7ydFRNkeO+8rwcYB03OKD38o4opdRcJPKTYK rqi0r5xQhODP5yv8ZNgQtXPXKRdQwpK6gWquAhs/7j3+PU9VCVEb9oRKUtg4 eyQxKDVMCeozIX9/GLHRu0rB99FSZSRtiprs2cXGGr8HkmvWKENObentUU82 LOsdG/euU8aU4vUX//ayUXowXnmZpjI+ikmILvNl48SHnwNOjsoIHHo4ODeE DY1rlZ7DWcpIbXQ9pX2UjSh9G67YVhUMpEYqd2SyYeqaPqptpILC10aOKVls CEV+j7a3VMHx0c1rbLLZuFR3NDfRXQW+xnHmd/PYuGde8X3hcRVwVcS9TQvY +OkoF/LrvQr6nMsfp1SwUXbQn3/FZxVceNpXIlTFRsSl+ymqQyp4ZbVgfeR9 NpZ8dKjcy6cKuddy5+1r2NjgmTDno6Iq5EM+JT17zIZr8PiJF+GqUFDzCO58 xcb6ZCOJgaOqSJpx3SX4+v/xO32LP1EVV+wXvdZ8w8bBP5uajLJVofT95doD LWycj3ZdVf5CFekfBnY3trHBybmR+/atKvruLVZ8954N2aeT2mMfVZGzY/3u znY2igTPOquNq8I7xdT0fScbL5KeZuRIqiFOMrng0keSn9si6nUb1PCr/4rm kR42nFu5tR/V1RBxUIuys5eNPtE/n8XparBamnd6zWc25mVSFM/4qmHKad9X s29sPHt4uLIwTA1FeXsVFvexkfjpmWXjETU4jDd0PSWW2rDLTyBZDaXXFtzW HGBDtyD1TsQDNcg53Zlu+cGG8buXs0P1apDse3PRc5ANqznzGW5v1ICz+y0m iHfa+r6nfVED7+Ovt/zDbPiGX5UtGlKDxJVtt08Qh2W3ea+bVENV5ff0RT/Z oIfL/Be5gIIFXNOcGeLny6qubhWkIMs7rsZ3hA3rbFb9TyEKdJq0f3QRsxvj V3BFKXBtUggpGmXjI1dBa60kBV3bV7Su/MXG7oka59cyFNBHakwCif2lJ64a KlHASfjpojDGxvjtxPopNQoaXuouPEh80FRpsHgzBUcfdT9sID66311L1oCC zzG/glzG2RBcOOPcbkTBtxnmvivEiWnn/zvDoOBZROvBHuK0umf1fDYUnFbw emc/wYa0467BCnsKHB0jN5wgzv7xb0WgMwUHCltPVRArRqVpKblR4Pbf5NJv xIWrtrA/7aSgeGF4zrLfbGy+/uq/i3sokPb7Zb+ZuMLAK3vHPgoUG2ek7Ylp zfMbFgdQ8FFaY34A8SPPjMG6EArSrbfOiyc2+6MjfCicgqcadyQziV8mtmht jqQgOnq7XTGx3Xo/9o8YEr/+srxq4vfliyKzj1OwdCxdtJ7Y1So7m3OKAgGJ irxG4s+9Bg0iZynQrK21f0W8N/T94ItkCo6phcj9//OhxUHCRy9RUHju/Iqn xIGZQtrUKxQkL/q67j7x5OZr7PEcCkROUmwLiSMatkXeuk6B53yj3MvE81y7 s3cVUtCq+10yjjhuNKxB8g4FGj1zKnyJhY6tHGq9R8HOk+xwG+Kz4gXCp+5T 0FP+jkchFi0y1abXUkB7bL9/MfFl40/sv08oSBspz+sl8ZV9fziy9DkF4h4/ FpYS5+8TzfFtomCX/PvTR4lV+G43KLRSMFfCf5sNcckF5lD3ewqaV+XIriXe qtQnnNxNQfB9P9Uukm8jO0kOfx8Fl+XvvXIiftpXFvngBwXhqVs9hYktD9vm hI5QELPeTu0pqSeH3GND36YpMAhNsF9P3KkruzLzHwXu3c/uviT1yXtVpe04 Xx2K6d/Mg4h9Jkci65eqQ791k+gdUt+6+3ev/iqsjkiXP2kmxAID7Tfmiapj X+uGgjekH3I66t4ayKpjtCwi/gPpnyC7rT6cDeooHC12dCM2arw596CyOjor mFXtpP+6q88r39VSx+f7AsxHQ2zc1BasfaOnDtYy58MaxAeLIhx+Qh0VomHm l0g/r87yPKJkoY42v3sPeaT/tx/Vabvipo4tq+t2VPaTefH31r4HHuT8Si9T FxL/CJGd17VXHZJnvU4wyTyJ27NYVTRIHZsWXg54+ZWNGouu6FNx6tA58evM pU9kHwhHqYUXq+P0ZM0jbzLv5sSPP0opVcfz5PqUgA5Sv/O8nEsr1ZH7rkkr mMxH73HboyOP1fFgLOD9PjJPs9vkOzzb1VFXLTChTObt6oz6WLt5GvCQ8j/6 +Rmp3zVUiQABDXQat82/1kDym1hcfHqpBvZfehawt548z5G0zmdrNDD3mrR8 N5n3cbt8NAyVNRA6xJFNJvtgSml5t4q9BuRaWp+b3WVj4rJYlKazBuQP33Fp vc3G2LL18jpuGliz46WSSwnph186XsZ7yecL1x/jFpL9WblzgkQWb0UCYqjX yPy1KBOKy9FAY97VSeNLZH54u9J6xzVwXCQ2O+c/NpK79vR+m9bATr9o6erD bJzbHnh08J8GLBXOajSHs3FKM+755CJNfJaJVPkVysaRmWKHZVKaWJxz5pWg P4lP/AJ/fbomjnWMp150Y0P/xs3MCxc00XBktNZZn42OdTcyTC5qQmnRjajN uiTfF66lj2Vooi1vOm/xVrIvo3Iv2V7ThJzERu0STZIfx8wUoSpN8LFbSz4q srFpwbnE2B5NBAdSHz4WJfF2C48MUd6Mo1/2tzwedcaIsLk7q3Yzhh6eGLXN dMbnBHdWAL8WXjhnh5i9c4LZcKjZFy1t2LQvN6IJOeHHToHAO/9txQd2hkeZ jiOG0o3vP4jZCpU258yLWo4Yfh/J//z4VhxNFDkYpemI0e1TF3vObsVs+X5x WxVH/NYbeCSUvxXdj5Zc4ZdxBJ/Ii9V7m7bix5GSJfUCjlj76HSFpIwOqg5W ldW8d4DYv+fzNynooD0xgdr71gESugLbNyvpwG+ycnZBiwOkiiI/mW/RgaO7 KexeOkD+0v4lYWY6oC8U2rGkzgGUoB2ub/brYAtevBq66UD+n1rDd6xWB3GF jYWXjzign8fI13uqg1NzPN30Ih2QcCXU6udzHayv+vdfx2EHNEu1pTm16kAk 6aas3AEHuK9N1VTu00FscZ9tk58DDgiJ73q9VBeq7OD/clwccHNSql7cSRfu DYUXdug5YLv2dt8mF12cLZsGXccBo8H/iRzl6SKE2vtcT9sBOr8+uA956yIg 5X2imqYDngxmTtVE6IK7XnyzrpIDPvTKKu3O1sWEyceqbnEHCDcqnCoa1oXV Ll/18H8s/B2m5Dwb0wU1wJx3c5aFAWG9qs9Tujj975xPzwwLtY7bB0Tn6yHM 47qEwyQLgZ9D6VGielij6263f4SFlpn6vzaGeuA7Hu3u8ZmFGqnmVT50Peza /+pbSy8LNw27lGMt9PBWNDjarIeFo8dGnCvs9dDRObKA1s2C1kqxMlkvPaxc UJbKbmMhWdHb79cZPbDvf591aWQhhhkcuzRFD4sYzXtXvGDB3/+/yxsu6+F9 9qV1Dc9YMC09+5ydp4fKc2/DTepZmDSs2vCoUg8mB38YBdSx8NnjiUF3jR70 XATcTWtZaDrWZD/5WA8r+E73yD5k4Vrj52jlJj0yB+lSX6pZcHZa+vHcZz1c jd3akl7BAv3Qmt8F/XqYbsj2SilnQSNDRqhhSA+9eHP4wj0WBL9s0Z+d1MN6 C5pCZikLlf6uKbuW6kPxzGhTfwkL+Wf3FP4nrA/WIfEMfuJzpQFPUtfo41q+ zFzFYhZ8/sSONcroo+31WPyhQhYk4gqttbT04WH/eZHTTRauF9yqm9LVh1Rc okr+DRa2tt7Quk/Txz9KAXfmOgt2svkSxmb6eGfWOq/gGgsJVZl9Nhx9CHqK eRvnsSD2KZ29iquPHI+7zDu55DyLLr9s26UPtu4Jm43Ej1ipd9z89BHFnH4k kcPCzM+kyH1H9BExv/aM9lUW4tYk/qIc08eXuFVl9VksrDY4tXssXh+V5j5L XIk14k9Yhp/Xx2BUpc35KyT/xXEPDNL0cbw+2ESb2KotVoMvQx/nB0r3d2Wy 4LU+WvR4vj70/eXDtYgnLaLiLW/pY6ZvhN2fwUJswH9/l5XoQ3Zn3KFMYpHU w/ubS/WxTLKgm02c9SD884VKfbzSWB8jTkz5esDBuUYffy/e8P2QzkL1krBn ko/1UbxpJiOP2FIzhNrToA+nmIa1QcTtTkFF2S/1UbWpvsuYeE9kgNyeZn30 emUPriWeyPW/oNRG4ufFb/HrMqm/Rt9Fw536uCV64XcTsfCYz6GSHn0EbxkZ KyHOFPMeDv6qD4b5XeNUYlXDvTyd78TXD/ZFE1d5erb+GdZHj19rTwCx+ald pjVj+ug6aK+xm7jtzs7K6ClyPd/YDhfi3R1cVcZffewuHO52Ih6b635FcB4V y3giBs7ERza6irzkp+LMnsBpV+Ll2znHkpZQMeN+bNUe4vRg52m7FVS4XX2S GEysfMlxn+hqKkRwdd8x4vJa1scOMSo+zJ64dZmY3m+3I0OaCnnHbzb3iFuW 7XjCk6dC+rAk5x0xT8tGR2ETFUqWpxqniX9ytt/sV6Hi744LebIkXhHRTOlb GlT0NZ38bkW85LrFGX9tKhRv1Kf9R7zxNyPsN8j1vIzIrGehVJL+vcKEihrv lTrKJH/GxsauEeZU0OZaZvkSuyfBeIEdud7mvmdzSH0MlRmU1TtSMW9pZYI1 8aFufcUEFyru9DfXZROnKOksX+lJRdXI0QvOpN7sLRoTq72peGmVZ1BBLOzN XeHlT8Wr4hWbpUi9xl8/LvzwABUV9X2Cv4hNn0me9YmgoqXPdWgnqff5A8Ur RaOpyPxMkXtPHLGpXcQvgYpQs5cxTdks6Jn5nhdLosLK7chtW9Ivk3v4Vj85 T8Vg3k7t98T78xXXSGZQ4TxuY/SL9JfHhvC1z4upqM8IPMwm/SnDWJYWUkpF rIqx7xzSv927r4rJVlLB+iRVeY3YIfe5+IFHVKSkCvssIv1vvl5CasM7KvzE +2mzBSzwmxSlv+kg+XwvqfCYzItHHsbSER+paN5E8U0qYsEg22ddaz8Va4eP KWiTeaMud182+g8VHEdbs7K7JJ5GNldV5xpA2uDD9iwyr67zvsi1LzAAM2bF /aQyFuSzlq5XX2aAc9SDjYfJvBOVcd3wQcYAzol/mk/cJ/tC6p+SHsMAgne+ vQ17QuadwdmbXy0MoCK/6/D1pyyEuW5QOWNtgOX5g4kfyTweubxdtd/JAAat 8nOcn5N5LJFJSfYxwHSa24IjTSw8EzPc8ivJABP7cl7mdpD5LFWoMD/ZAC+e WUbTulh4KyspuuqSAVZ4jvt1kX3Rozg1rZVrAKzWHtlI9sukbnHNwQoDHHic n/S3jwUFtowl3ycD1FA3bsz+Terf7TR1ZZ8Bdl/eYZU4RebVzllV+UED3DsT dS2K7Deq9/sV9N8G6LS1nw0k+9AuPOnd8cU0mJtnCCXzO+DIxbk7V2ymYcuQ Je+tqAPiMvzsZHVosDzrf3kV2aenrnaZaBrQ4HMye76zpANSb5RvtDelIa2Q Yjcq44Ciyv1DKRzy9xs1e9zJPu7u6Dmw7igNnBz1gc00B+hK1CaqvaVBZPSa XrGXA3rl5Lv722m4L02L5+1zwHGlWKXsDzTw+X/TF/V3QJuu+RPRfhqMJs48 TAx2QKjTm5m5f2jQm2aolJL3D2eL/ZoDy4HkeKrn62QHXIiLSq/SAsr9GAxa gwO8EjQer9UBFq7bpnjwhQMMEj99D9ED7JpmaeWvHPAl2URHHYDewaw/28j7 0ua8RS05ZoDOX8e4+E8OePM4adFpDvBdbsa0568DhOZlBXGPAJv2rzyZutUR C6ce7BiJAcTeXAjP03fE36EujahjwLj8uSUVIO937WtHMhOAK8d2CA6aOqKp JGnfxwuA6+rFsiecHHGGF7Xb7QagZGuwNj3cEatr3R1dWoDTw5+qVtc5QipK Wt9JwRDtvTsFYl2dUBAoINu10RAPsnosT+x0gsHuEX6ukiH8f7xXPrPHCS4W dc17KIZY4s8ovBnghEurPL3DdA1RYB/JXHLMCWuvF6QlWxli2jiPE1DkBJFm 6lRriCFik6d2VC1wxqL1nFLbp4ZQEQ1dub3cGarUtYWhLkZYe45pvlaGg4Bu 4TrzOdvQWfY143mFC4Z/JdibpWyD5KTQ0iBtNzDUnqSZqRgj9dANwyELdzgu NLVrUjPGN6W7655aucOrq2Gpg4YxIvd/P59u445T8Y2RHtrGsJa32Wrm4I63 31p2/2dojFvvQlee5LnDI/OTxl17YxzSyu94EeaOIyvmPl8XYQyfig1PxbLd Uf1Lb+b3S2NspE5I7R53x5UXZbwdr43hfFiYl/fbHTE5ms8Kmo1hpZHU+3XK HWYOSqm72owhW3vmnPtfd7RUiGk39xhjq5FgvAE/FwNRUwEFY8Y4v5Ohe1WU i9XLywY8xEzwYnh19TxdLqb6NGxrJExgd6PBYZE+F50PC8rFpU1wd/Xk5BID Lq4E5sa9kTPBgdORFkJGXCi/O68AFRMEPSlZMGXGhVF6EE8cJpi5Yhq2z4kL X2WN9te7TBDLW8lfH8JF8G+xabc95H60w7HFYVwcqp0nNuRlAssakYiUg1zE O7Y6CfqbIDBZ4JVrBBf5MWHvjQ6a4ISyccOLo1z0dla33T5lAm9F5xLlc1yw Tlq8O19mAsZsQ9xIARcujpt/y1WYoKp54E9sERcecpJrSqpMIP/i/L21JVwE lg+xXj40QaS8/lztu1wkfkl6u/CFCWj2O25bV3LxjNrWGvrRBIn7+aP+PeGC OuTR4rSIjnH9ZylGnSRelYysqsV0xK8QfbW3i4uhY4r+0kJ0aCk6x57q5iJd 5ufiL8J0fO4vDGr6yMVfu/Bt/hJ0BP7u1NP6wsWDyqSSWDU6HIe038YNcpES FxTZr06He17y42NDXPjbO1hZbqZjs0K3YswwF+uGJQZW6NARHnzbLniEi0jZ fJnLRnRQPERX6YxzYXi8OvG2PR2C2z40mvzhQox1xXW1Ix0PflLbxGe5GJWN UT7gTMfv5sntw8RZVWb1Bm50vMkpP3rqHxd8P1v+Neyhw7wn8O8tPh7aq8oa lb3psKst8PSbx0PJ8bSLp/fRMek2rqs6nweenLu2fQAdNX6qUtkLeKhjfff9 GE7H5cpLjf4CPFySe6m/LYKOsyz/w5KLeAj6WSSYG0lH38rsc0+J5U+E5Hof pSOVxT+5cjEPMffndk+couMdv1X8yaU8mMiLMpdm0fFv4VDRPGEe7gw+lvHI pqMj67ZqDLF8WeBERS45D9tDkW8lD/PNX2XsuUHHbebyixPEtX6xo3V36PjR /N714SoeNHQ2PxUro8NAWK1BZTUPV/h6L+4vp2PsTk1RMnHkeaqJdDUdwR1+ v3eu4cGgciz54FMS/0QPXrcoDwUxWT6vG+hY2D56V2stD5JW1oYbX9ARsfp6 bALxn483Blqb6HDoKsugiPHgc93pgXIzHTfLFPoiiDsC+c9Ft9LRKj986xlx xcKdVPV2Or5KtBU7i/Og2LRcOK6TjiR/+Z/pxKmp1V+7u0n++mRufiQOUxZL TPhEx60rWZc5Ejz0jT/1+PSFjlcKu5ovEDs8CNbR7aOD5eRw7CWxlu3r3m8/ 6HAT9/DSkuQhV/y/MoNhOk77vE7dTbzqi3LC+RE6IodWmp4jjilod//xiw72 WnbwA+Kx0Lgt2ybomGlpk+kj9jDUEkybpGMo7CFTSIqHZsHP3T+n6Qh6YTGl TlxymRaX/o/UT6Ny035iWc9BzvhcBlZoz86cJE6iXFS3nM+AbgMvP494zrTp wqsLGcgOy2ytJvavm2ifEmAg6tpMdDPxx4TsQuvFDOioVd3+QmzNso3JW8qA o6XyrnHiGuk5Tn+XMeBVkpLCJ82DWv8tFXthBnqjrK2WEqeXsPluijAwYZYT u4pY6NCid3xrGAgX+G4oThxhUnbDaS0DjzeFRUoRDwntiiwSZyAoLsdImti1 TdieX4oBh30v4ySJG6/UbHJdxwDltPWOtcT63r5/78gykCKckCVMfHOzRPPi 9QyUHv8UsohY4m9DHm8DA+vGKptmyXnjn4YeKt9Evl99qGiYeDpxvc1yZQbe 1p5e/YHYy7l5vacqAzsY3HkviNvloqbvUxjg++cWWkpsNqj6SkSTAZFFswHp xPdKO696b2Gg4ueNiWjijZEnwmq1GWi/2cvnSVyll7PAUpcB53v9r43/H7/f D8606jMQqChXKU38uaRd2o3GwBUttQe/SX7DfMdv9hkykLSnuPsF8RLF5boB xgzcuGotlkGc+UXx6QydgfOyZQG+xPUc9x4hSwaOHzt7aD4xRzTcN8WKAb8z vmrPSf39bD4/I2PDQM2mjrmniUUtnq/awmLAZ9BBQIh4j46WOdudgYBzssX9 pB/+jFm/+8xj4PKBu8GpxIlF3h6+uxh4rSbkTie+t+FKRJQXA1s1va4lk34T WL3kdl4QA4I54wqipD8vvVaAeigDF4br1YtJ/1JOGjZWHGDAX9FrL4PYcX7o t8YIBgpE3vO8Sb9fG+0RH4tjoK8/IDVJhPR7wZ/8w/EMNHXmrxchfrN3jRb/ KRK/rce+niXzZPqjpbXYWVIvB/YIxpP5Y/6qLAaXGRg6kDXpsJyH7hNvVjzL YICuMsB4tIyHAPpg+o4sBsbYR1tUiNPuy5bvzmNAQtvs+iSZbwM3Tg4mFJP6 PFWzZx+ZfxGe+QdX3yH1vZ5RVyfIg7BcHX9mKQM5fWkea4h10yZlblcycOTW 1chSMl9PxO1kvX/MgO+pGsMWMn8Vd+k8WN/OQONkjdBpMs9Py1pNR3cyIBvy 7079Xy7GPvC29HaT67X5C80hrnZOuJH+ieT3XNoHT7IvbK0/JK8ZZGDDAxsJ iSkuDugd9V80xxRz+akrREe56J5MveHJZwqe+ki4Ctk/RqUFXx/PN0VGTeYt /ORiiXob58giU0zTt3i7k/2VqaBkNiNsCvbFE0FHB7ioX/FaZnC9KZCxfHR3 Lxcqr75wLDaaImydsJ9TDxdnEqaTrymaokhNrsGM7EsOv7zQbjVTqJ1kiMmT fTr8J2S6e6spYqS7nR68J/u3T6K5ycIUJ8wuZSQ1cbGrek/Mnf2m0HubYlhU RfbxvoFQkyBTOJvegwnZ52GSPt5vQ0yxvNdy6l05FycO+dlOhpviodqljIlS Lop0Q9bpx5Lns+7+K1rMxZ/S6Kq6NFN0/nWZO5ZNzleYPvamzhT839v9VsaT /Z3Z4jGyygxvL7zRjrbh4qOljFuIqBmYGpUhWdu5mDO1z2lGzAyUO/+kapgk Xjb8VgvWmeGN6rbSCfJ+9GSurvZaRTNsHygytyHvTy94GYsMDcygL8TZW63B Rbu8V0HibjPkxRU2xQuT/OX/+61WZgbFyM+BZ1+6Y+f6G4vSmObo8lTUOMlw x4jiWa2Sn+aYCZ23KWy3G+5lz/SMx1mgxEW6aMLDFVrbgn6bx1vASF2vh8F1 xd2eH0syT1og0aw+5qKLK0qkurXNz1jg22INLXOWK26m1JxMv2gB+4UlTx4z XJGZcFSHUWCB7jutFTpKrjgetCwppdkCZ7KcXLaMuUBgZVzuYKsFNtKVvnT9 dEFs8ZwqozYL9H1aGHh80AUxQyNff3RaoFnzZkn/VxdE7GnRN/xqgau/n1Nf vXdBACe1r3/SAvfe7GFr1LjA2VgOelKWSBUZ/hhy2gWzLQJCdesscUIicb5Z ggsydw11mMtZQnxA1Un6uAu+xpaHOm+0xJ1jZtfbjpDrNWwvPKBhiWDzLYcj QlxwwuqQ1D06uV6mHveiqwtUPnB/0MwsoZov97eE7YImP0bFUwtL3FU5KfnK 0QWrk4RZ76wtAZerv0V2uCCrOf/khLMltu5emPWO4YIKx9Y/m/0s8eLWrABV wwUu/RXPqvZbwnWruUiGmgvmHMxMMQ6yhFtI59ACFRfQL3pvtjtgiauTO+R7 N7jgTddcn8BoS9i1zyxvlXTBAE+1ozjZEj87/D/lC7pAfN+xctUaSzDGWr8o 9HFw6t/uLfG1lmjpqlNnfuWA7wy9+NsjS8j6XFwf9pmDgdIF1zIbLHF7QceK zo8cVMyJSRFutsSrfF/7zvccOJ+LDJ34YondJd/w8AUHLxXcf9n2EXstjdZ8 zoFROc2vcMASrPLd6dcbOFDs/rt7z7AlpHft8cl7wsHUhsOs9kkSj9mzpR01 HKRUHthSvZiJWxsKwtVLOVhi5VQsJsSEyt1zuaN3OIj8uFUldDkTqvB4d+82 B3sWTMpTVjERfZZub1fMgfb2EJEsKSYuRz0WrL/JwfUe+8S/65j4llV7q/gG B1JBW5aw5ZjgN9H3zrzOwcLUsXkiG5mgfDhDO5nPwdvegF9H1ZkYvqt/Jjub A/NgW79eTSb4pAuZZVc5qObX+G6gxcQyj2mtV1kc5CqP9P7WZWJE2ueS0BUO QkL83uw1ZkIrtn30+WUSP4HtVk/oTIQftXMRIHa9qPpM1oyJkk1P+c0vcUCv GXzYwWTiP0XG+q40DlYJ+hQzHZjgzPpUG6VwkL3t8MGfTkzELZb/lpzMgcbh U9vOcpi4Nmew8NcFDqx+FrW2cZkQ7Pyk/OA8B52batPDPZhoPnL+qyqx185m TylPJnl/cLfIOcdB7NvxqZ0+TMwcHF2Xe5YDkeX8dQv9mNA0mr1AIc4yE024 tp+JC+LXah+e4YASvcneMoiJsg/RuU7ED6p0pYZDSH4cVppMJpH7T1h8SzrA hIdOa+Zl4k41l6LNh5iYlqNVmRF77fU98C6CCYlL1al/EjmYzPrP6GAUE5EC 5XqlxLGdiYslY5iwKYjPDiEWWZ3V8iCWiZu34t9SibO2377MO86E4d8FLYuJ Kccf7V6QwESTNy3j42mSj9pWtfxTTLw9E6RbRWz55+ukeRITil3v89KJ27dM Phw8y0R1xMX+Y8R7/RbFJ15gwjqga24Y8WS+mJ1mKhNbQipHfYlje5Uk315k Yt0is2ofYhEJ6tewdCaWeCbt3k+cZW9VKH6FiRWxyYOHiCmn3cKqrzKxcyXL /vT/z1Pvb8jNJfXq/yAj///n4TsiOP8aE8UF91/W//88emebc28wwTit8XmY eE9w9iWzAib2H/7dI0meb6Lg7q4fRUzMJnQ12BLH9D1RPX2bSd5Bbl0+RSws 2/ZbvZTkL3mD22viTHZ/Tcs9JvS+z1suTuKten76eGglExOLRou9iS0EJCXu 1zDxZ1nKKxmSv3ZD1S9udUz4yR21Oka8J5xWwPeEiSj7oUe/iGPIjjV9zkRL sVF6D6kH4Y2Bi743MrHyhPT8naR+Mrkxb042MSHTxvb8TlzVkuvR3EryK3hA aQWpR3OheyohbSS/TfynC4jbGA0Toh3k+40247akfscqvse5fmRi9MqqV0Wk vo+M/bGZ+4mJ16ZTxl6pHCxXFRLP/sKE8APvWkXSDypXKLf6B0g/Nwa01Vwk 92s3DEkYJPHsUg68QPrHXGQHTe0nE2/ya9YGkv7afSz4ddA46ed1vFOGGeR+ NbFpayaZ4BZau2pmkvtNJ++smCb5q2qnKpN+Xb75mrLLLBNfdDtUlEk/p++r GP/3jzzPUXk1TdLv/wMpnrY1 "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"0.01`", " ", RowBox[{"(", RowBox[{"85", "+", "t"}], ")"}], " ", RowBox[{"(", RowBox[{"95", "+", RowBox[{"16", " ", RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "15"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["15", "2"]}], "+", "t"}], ")"}]}], "]"}]}]}], ")"}]}], RowBox[{"0.01`", " ", RowBox[{"(", RowBox[{"85", "+", "t"}], ")"}], " ", RowBox[{"(", RowBox[{"95", "+", RowBox[{"16", " ", RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "15"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["15", "2"]}], "+", "t"}], ")"}]}], "]"}]}]}], ")"}]}]], Annotation[#, 0.01 (85 + $CellContext`t) (95 + 16 Sin[Rational[1, 15] Pi (Rational[-15, 2] + $CellContext`t)]), "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[ 0.01 (85 + $CellContext`t) (95 + 16 Sin[Rational[1, 15] Pi (Rational[-15, 2] + $CellContext`t)])]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$14568#1"]& ]}, {}, {}}, {{}, {}, {}}, {RGBColor[1, 0, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{0, 67.15}], RowBox[{"{", RowBox[{"0", ",", "67.15`"}], "}"}]], Annotation[#, {0, 67.15}, "Tooltip"]& ]}, {RGBColor[0, 0, 1], PointSize[0.015], TagBox[ TooltipBox[PointBox[{16.5733050786482, 111.87203025167021`}], RowBox[{"{", RowBox[{"16.5733050786482`", ",", "111.87203025167021`"}], "}"}]], Annotation[#, {16.5733050786482, 111.87203025167021`}, "Tooltip"]& ]}, {RGBColor[0, 0, 1], PointSize[0.015], TagBox[ TooltipBox[PointBox[{29.000992586338917`, 90.45858738393615}], RowBox[{"{", RowBox[{"29.000992586338917`", ",", "90.45858738393615`"}], "}"}]], Annotation[#, {29.000992586338917`, 90.45858738393615}, "Tooltip"]& ]}, {RGBColor[0, 0, 1], PointSize[0.015], TagBox[ TooltipBox[PointBox[{46.212764285345344`, 144.97257171286282`}], RowBox[{"{", RowBox[{"46.212764285345344`", ",", "144.97257171286282`"}], "}"}]], Annotation[#, {46.212764285345344`, 144.97257171286282`}, "Tooltip"]& ]}, {RGBColor[0, 0, 1], PointSize[0.015], TagBox[ TooltipBox[PointBox[{59.21379550512766, 114.24100549127644`}], RowBox[{"{", RowBox[{"59.21379550512766`", ",", "114.24100549127644`"}], "}"}]], Annotation[#, {59.21379550512766, 114.24100549127644`}, "Tooltip"]& ]}, {RGBColor[0, 1, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{7.988611028971496, 89.85907463166595}], RowBox[{"{", RowBox[{"7.988611028971496`", ",", "89.85907463166595`"}], "}"}]], Annotation[#, {7.988611028971496, 89.85907463166595}, "Tooltip"]& ]}, {RGBColor[0, 1, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{22.92138170748588, 101.00337148532763`}], RowBox[{"{", RowBox[{"22.92138170748588`", ",", "101.00337148532763`"}], "}"}]], Annotation[#, {22.92138170748588, 101.00337148532763`}, "Tooltip"]& ]}, {RGBColor[0, 1, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{37.870334017474946`, 118.25011122424065`}], RowBox[{"{", RowBox[{"37.870334017474946`", ",", "118.25011122424065`"}], "}"}]], Annotation[#, {37.870334017474946`, 118.25011122424065`}, "Tooltip"]& ]}, {RGBColor[0, 1, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{52.830274237417335`, 129.4145269563847}], RowBox[{"{", RowBox[{"52.830274237417335`", ",", "129.4145269563847`"}], "}"}]], Annotation[#, {52.830274237417335`, 129.4145269563847}, "Tooltip"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 67.15000096734738}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, 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, 60}, {67.15000096734738, 144.97256595926922`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.781590680471128*^9, {3.781664168277088*^9, 3.781664177862157*^9}},ExpressionUUID->"98c341f2-df2a-4cb3-ac01-\ 988135bb5240"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"Pn", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "40"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.78159069197042*^9, 3.781590718631483*^9}},ExpressionUUID->"dfb3856a-ca24-4331-a469-\ 57062cd67d1e"], Cell[BoxData[ RowBox[{"{", RowBox[{"144.97257171286282`", ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "46.212764288815016`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.781590703427269*^9, 3.781590719088375*^9}},ExpressionUUID->"926cf922-8640-47e3-858d-\ 77523ef95478"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{ RowBox[{"Pn", "'"}], "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "60"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781590750847344*^9, 3.7815907791409616`*^9}},ExpressionUUID->"210a599d-e2a6-46bc-ada2-\ e4b641e935b6"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.0661211315489325`", ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "7.988611024794219`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{ 3.7815907801703653`*^9},ExpressionUUID->"4a514d3d-1153-4472-9b73-\ 5cdba164a1b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", "[", "t", "]"}], "<", RowBox[{"Pn", "[", "t", "]"}]}], "&&", RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "60"}]}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.781590880617197*^9, 3.7815909107848873`*^9}},ExpressionUUID->"f26ec3ab-3a4e-4873-b81d-\ cfeb23f63d4f"], Cell[BoxData[ TemplateBox[{ "Reduce","ratnz", "\"Reduce was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"",2,132,2,33099071412331826356,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7815909115997334`*^9},ExpressionUUID->"ebd804b6-2587-478a-a271-\ 8c4f2b71217b"], Cell[BoxData[ RowBox[{"15.`", "<", "t", "\[LessEqual]", "60.`"}]], "Output", CellChangeTimes->{ 3.7815909116024513`*^9},ExpressionUUID->"711160ea-9c05-4e0b-a3d0-\ 1dfb96f8c4b8"] }, Open ]], Cell["3)", "Text", CellChangeTimes->{{3.78159097112455*^9, 3.7815909716035013`*^9}},ExpressionUUID->"3a23f523-6fa6-4404-8c08-\ d25df3f2d58e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Probability", "[", RowBox[{ RowBox[{"x", ">", "150"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"135", ",", "10"}], "]"}]}]}], "]"}], "*", "100"}], "//", "N"}]], "Input", CellChangeTimes->{{3.781590973693606*^9, 3.781591014831461*^9}},ExpressionUUID->"78e589bb-9edb-4014-95ec-\ 7ce1495d18bd"], Cell[BoxData["6.6807201268858085`"], "Output", CellChangeTimes->{{3.781590993179367*^9, 3.7815910155484743`*^9}},ExpressionUUID->"18554f8b-209f-4cc2-8772-\ 8e177ae364bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Probability", "[", RowBox[{ RowBox[{"x", ">", "m"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"135", ",", "10"}], "]"}]}]}], "]"}], "\[Equal]", "0.8"}], ",", "m"}], "]"}]], "Input", CellChangeTimes->{{3.7815910876862087`*^9, 3.781591127285399*^9}},ExpressionUUID->"96253383-71f1-40b4-9f6d-\ e5dfca9ceb2b"], Cell[BoxData[ TemplateBox[{ "Solve","ifun", "\"Inverse functions are being used by \ \\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \ Reduce for complete solution information.\"",2,137,3,33099071412331826356, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7815911286730003`*^9},ExpressionUUID->"080d9fc7-b5c6-484a-ae98-\ 0b16b17e1b24"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"m", "\[Rule]", "126.58378766427086`"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781591128679583*^9},ExpressionUUID->"b71c66a0-5782-4bf6-8394-\ bd49b251d5e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Probability", "[", RowBox[{ RowBox[{"x", ">", "360"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"BinomialDistribution", "[", RowBox[{"500", ",", "0.7"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7815912085845413`*^9, 3.781591232840094*^9}},ExpressionUUID->"98748438-cf60-47e8-a951-\ 6b4f07e3e67f"], Cell[BoxData["0.15265867054589832`"], "Output", CellChangeTimes->{ 3.7815912332974243`*^9},ExpressionUUID->"46eb0538-5f78-4234-9047-\ fc92f9f8625f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Probability", "[", RowBox[{ RowBox[{"x", ">", RowBox[{"360", "/", "500"}]}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"0.7", ",", SqrtBox[ FractionBox[ RowBox[{"0.7", "*", "0.3"}], "500"]]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.781591263259244*^9, 3.7815912799305277`*^9}, { 3.781591330106813*^9, 3.781591359725808*^9}, {3.7815914005291433`*^9, 3.7815914015874023`*^9}, {3.781591490681769*^9, 3.781591491309473*^9}},ExpressionUUID->"264a43d0-ce65-4164-88e2-\ dbf298d31a70"], Cell[BoxData["0.16455699298930387`"], "Output", CellChangeTimes->{3.78159136039297*^9, 3.7815914026693296`*^9, 3.781591492022085*^9},ExpressionUUID->"05c66686-c62a-4b3b-ab6f-\ 6a3f6c1c162a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Probability", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[LessEqual]", "x", "\[LessEqual]", "2"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", "]"}]}]}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.7815915953599033`*^9, 3.781591644879781*^9}},ExpressionUUID->"5472b95e-6702-4719-965b-\ 572c72de035e"], Cell[BoxData["0.9544997361036416`"], "Output", CellChangeTimes->{{3.781591642350628*^9, 3.78159164533456*^9}},ExpressionUUID->"6be814c2-edeb-47dc-8e4f-\ a929d2812f4b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Probability", "[", RowBox[{ RowBox[{"330", "\[LessEqual]", "x", "\[LessEqual]", "370"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"BinomialDistribution", "[", RowBox[{"500", ",", "0.7"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.781591661836193*^9, 3.781591663234849*^9}, { 3.781591693247415*^9, 3.781591764072888*^9}, {3.781591800295553*^9, 3.78159180538208*^9}, {3.781591928836569*^9, 3.781591963748167*^9}, { 3.781592026458261*^9, 3.7815920345316343`*^9}},ExpressionUUID->"f0da69d8-dbd2-435d-b3cc-\ 5406bcf84574"], Cell[BoxData["0.9547133734363891`"], "Output", CellChangeTimes->{{3.781591747827641*^9, 3.78159176539828*^9}, 3.7815918076791067`*^9, 3.7815919656125793`*^9, 3.781592036567274*^9},ExpressionUUID->"a30598b5-d35d-484f-b43b-\ 0a977e8a5762"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", RowBox[{"BinomialDistribution", "[", RowBox[{"500", ",", "0.7"}], "]"}], "]"}]], "Input",ExpressionUUID->\ "acf88748-a1c6-46a7-a4e5-7492dc44f91e"], Cell[BoxData["10.2469507659596`"], "Output", CellChangeTimes->{ 3.781591778941073*^9},ExpressionUUID->"74bd77ee-d307-40f0-aa38-\ a66520e33bad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"0.7", "-", RowBox[{"2", "*", SqrtBox[ FractionBox[ RowBox[{"0.7", "*", "0.3"}], "500"]]}]}]], "Input",ExpressionUUID->\ "3e351efb-c667-4a72-b487-b14e0a94098b"], Cell[BoxData["0.6590121969361615`"], "Output", CellChangeTimes->{ 3.78159199756609*^9},ExpressionUUID->"c9d5911f-0def-4d39-8358-d36e82774b31"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"0.7", "-", RowBox[{"2", "*", SqrtBox[ FractionBox[ RowBox[{"0.7", "*", "0.3"}], "500"]]}]}], ")"}], "*", "500"}]], "Input",\ ExpressionUUID->"89367d56-f056-4988-8ee8-8a5323485bba"], Cell[BoxData["329.5060984680808`"], "Output", CellChangeTimes->{ 3.7815920213328123`*^9},ExpressionUUID->"19fc1b5a-6950-4b58-a594-\ 81a7242698b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Confidence", "[", "0.95", "]"}]], "Input", CellChangeTimes->{{3.781592103156775*^9, 3.781592111652685*^9}},ExpressionUUID->"07c7af9c-01fd-4a60-9c7d-\ 28c4272341d7"], Cell[BoxData[ TemplateBox[{ "Solve","ratnz", "\"Solve was unable to solve the system with inexact coefficients. The \ answer was obtained by solving a corresponding exact system and numericizing \ the result.\"",2,152,4,33099071412331826356,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.781592112638886*^9},ExpressionUUID->"a90196a1-3d51-4640-a74d-\ 373c9d90c903"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"Global`Private`k", "\[Rule]", "1.9599639845400527`"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781592112645502*^9},ExpressionUUID->"72007175-62b0-4a3f-9d53-\ 6f89c142c7db"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"4", "/", "5"}], "-", RowBox[{"1.9599639845400527", "*", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"4", "/", "5"}], "*", RowBox[{"1", "/", "5"}]}], "500"]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"4", "/", "5"}], "+", RowBox[{"1.9599639845400527", "*", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"4", "/", "5"}], "*", RowBox[{"1", "/", "5"}]}], "500"]]}]}]}], "Input", CellChangeTimes->{{3.781592151818109*^9, 3.781592178708725*^9}},ExpressionUUID->"b5b617c1-6022-4f41-a2fd-\ d64cdaa0853c"], Cell[BoxData["0.7649390983769369`"], "Output", CellChangeTimes->{{3.781592172460647*^9, 3.781592179372357*^9}},ExpressionUUID->"198d6061-72f3-45ec-a5bf-\ cd82e20a32cc"], Cell[BoxData["0.8350609016230632`"], "Output", CellChangeTimes->{{3.781592172460647*^9, 3.781592179380808*^9}},ExpressionUUID->"1ada53d7-0ad4-4fd3-8232-\ 60140bbaa2ca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"6", "/", "11"}], "*", RowBox[{"5", "/", "10"}], "*", RowBox[{"4", "/", "9"}], "*", RowBox[{"3", "/", "8"}]}]], "Input", CellChangeTimes->{{3.7815924205950127`*^9, 3.781592430778928*^9}, { 3.781592488434499*^9, 3.781592488551572*^9}},ExpressionUUID->"9de337d3-ef1e-465a-ba39-\ 5f81c4925306"], Cell[BoxData[ FractionBox["1", "22"]], "Output", CellChangeTimes->{3.7815924317088346`*^9, 3.7815924889407063`*^9},ExpressionUUID->"a60995c0-7438-4406-977f-\ bf31e6f84fef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "-", RowBox[{"(", RowBox[{"%", "+", RowBox[{"5", "/", "11"}], "+", RowBox[{"2", "/", "11"}], "+", RowBox[{"1", "/", "66"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.781592438817809*^9, 3.781592454918778*^9}},ExpressionUUID->"c4969aa6-3b93-48da-a49c-\ 5cc0e1fc9a06"], Cell[BoxData[ FractionBox["10", "33"]], "Output", CellChangeTimes->{3.781592455900581*^9, 3.781592490889773*^9},ExpressionUUID->"56c74884-0e9f-4a41-ac50-\ b357bc41d956"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"1", "/", "66"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "/", "11"}], "+", RowBox[{"1", "/", "66"}]}], ")"}]}]], "Input", CellChangeTimes->{{3.781592562438324*^9, 3.781592573302228*^9}},ExpressionUUID->"27611356-49b0-429f-9783-\ b6c5dd832946"], Cell[BoxData[ FractionBox["1", "13"]], "Output", CellChangeTimes->{ 3.781592574289819*^9},ExpressionUUID->"c6714396-69d9-484a-8e6d-\ f1e60e8391b9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Probability", "[", RowBox[{ RowBox[{"x", ">", "200"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "s"}], "]"}]}]}], "]"}], "\[Equal]", "0.1"}], ",", RowBox[{ RowBox[{"Probability", "[", RowBox[{ RowBox[{"x", "<", "175"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "s"}], "]"}]}]}], "]"}], "\[Equal]", "0.05"}]}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "s"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781592595157291*^9, 3.7815926605956078`*^9}},ExpressionUUID->"1af638ca-646e-4f07-8c6f-\ 472616019f7c"], Cell[BoxData[ TemplateBox[{ "Solve","ifun", "\"Inverse functions are being used by \ \\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \ Reduce for complete solution information.\"",2,161,5,33099071412331826356, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.781592661270761*^9},ExpressionUUID->"830655d8-309e-423e-b48f-\ e1df5a954f31"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Rule]", "189.05182740217612`"}], ",", RowBox[{"s", "\[Rule]", "8.54290446999798`"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781592661277747*^9},ExpressionUUID->"2c3f2ce5-5f02-48d0-a223-\ 773d92a2d2ec"] }, Open ]], Cell["4)", "Text", CellChangeTimes->{{3.781661955808874*^9, 3.7816619562435102`*^9}},ExpressionUUID->"b9625982-8c1d-4420-8025-\ 2c8c77cd606a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DetailPlot", "[", RowBox[{ FractionBox[ RowBox[{"x", "-", "4"}], RowBox[{"x", "-", "1"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781661959206402*^9, 3.781661976767726*^9}},ExpressionUUID->"0727fa84-cc93-43f2-a8cd-\ 640428941e34"], Cell[BoxData[ GraphicsBox[{{{{{}, {}, TagBox[ TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVjHk81OkDx+cwfMc4BuVqszTpl6t1q6TnSRspSYhtrVgiLUWObHJsJUfb z66zKFuUu9Kxjqw8z65jHJXVyh3CjjM5ZoaZMTO/fn98Xu/X+4/3R88/zC2Q QiKR0j/v/4yfOrIslbLw1FjqQQ0fLuBcUucNrbOwTpV3X81nd2GOrtYKWHgw pz3L8yQX6O4KF4etsHCmoDkn15cL/rqeSYxxWPhCqR/W9OcCYkefDn7NwiLL a3/qn+aC7Ci/wz/dZmEr5iNSwHkuqCRHPiDZsPCQN58SlswFtEBHcy2fLfgO s1o0WMMFav0toUUZelg6Hc0YneICt6b8AIMOXdy1tytmZRMPXPpkF/rrxJe4 7e8U3V9O8EBdTP4PVUd1cHbr9N7UWzzgknlcV5L3BX68x66hbIIHHAteuhyc 18Zxd5kBiVZ8UMK+2BvprYVb4P0HB67zwcmk7I1dZRrYt9TOl7HEBwl+1McM NXWsvLhwWMVnFZBMvkT7r23Axw/1Xr7WswoGf85LqXynioN+O/osKXgNfCEf XM61V8E8U604tpwAhFgZ0oa+UMbXEG35RLcARNBelF5QVsYAUctrewQg9p3j IVWKMi5IqKrS6BeA69GBvzhNKWGe753qkREBqKi+p1X3VAnvenZiKnVeAGas NHbkOCjhe1pTdFdCCE5by3gdDVfE+7NOwT/2CUGAzUhZUxMDs5JsawsbhCCo zMbToZaBD1t4T/hjIfhBK4PaXsHAv5++92RbsxCEi/affJPBwJfqqnbVdApB HCpXG/Bl4OKIwx68QSHIdoxOWBDJY7tD40Z8gRC0eil4aFnKY803evs1douA 4Y+7peceEDih91vpjSYRwO9dDCdyCdxRMNAe3iYCnvsDjnulEbjOuarkm9ci cEXpRiU4R2BCyK607BOBgQfvvZg7CaxtHxKlMycCqd0/PXnaKYdDKhyKXqqt A44h+3vusiyuDKo9eyx4HRS+d2++uI+GNYzcUrfrioH5pLmwx5KGd51WNenT F4PmWRVT0+00LD9wBl03EgPOatdtjhINlxfltZJsxMBQ1TnSfVgGs1czNxq4 iMEzh6+3mMTI4FhG0a/h8Z/7Ksufxh5S8ceUZjeFMTE4XqNWY3uPip/cj6AE cT7/NSzP5WZRcSVjJKllXgyIjideR2KpeNViw5ZcgRgcmTT+qt6RioduexQl qElAr6b+SNY4BXeWmClHHZSAqcsb9zhqUnDRI9+bO2olQD6+6lOWPAV3BO64 Ot8oATt+dLo/tk7G6rMVt561SsCFc/HysR/I2Lg9JcqrVwJkvf/tf1hBxmWi Pj8aXwK2WlZHq9qRsXPW0pLYWgr8OR5V778nYbfO0hA2koLkDwv+hh4kLNt6 ZKi4TQoqhlPVYxxIOJldcyS9WwqW3zbEM41IeFp9LiF+QgooiU63kqelKPEA PW6OSoLAbKb7mKIUpVU2CuwNSLA+Z/uBaU8xuhEhb2byIwkS3lMB5D1iVBho WmodT4KeuiVXtPXESHy6RMfhCgkuV7Cw89w6KvtQsSfmBgkaYB3bp4nrKObp ZDCrkARvzW4wiy0Toc7QuIuPOkkwGpA3KwgFSDvYxGJEnwz/ksG2+qMCZMZR /LvRiAyZHQnf7m0WIOVuY2mJGRk+9Fi/GZ4uQBVsvku6HRlOnllVfbdFgGJM hr6pP06Gbtkfid8OryHXYN/6nBQyNJ0Z4H5VwEec5zv/7Foiw6hFEwONJD56 1Rl669AaGdatXvaR/MBHvI4FzmsJGe6TNWx9tZOPdP0yjBcYFOjGir15poeH 2pyWrG9uo8BoH+3d9xk8VNkQ25zvQ4H13d8mqseuIOLQu9mPbylQ0v/4udhv BX0VIvvz7UEKtB+jTE86rqC3jU81PMYpsHOhwvX5xhWUnmzrwVmiwGGGSM/1 6TKSWzwmyFChQumB281p00vIo2pT7yZ3Kvy6fogu9lxEB40aB+tGqfBxRfEu tu0iGr4i975xhgo1b4edydBdRJ/cJwberVBh76ps5uGeT6iyijhvQ8hA/Uue zALhApp1Hea9NpOBf13mKUDHj0gvST34fKoMzPVPC+1hfkR+W+ae3cmSgWf2 b34VPDiPtsX+szr0mwxk0g78nHF2Hg3oNTnerJaBvqnZ9ImsOcQ1jlOVm5SB 6+kWssljMyhm63dZkq9p8O8wdqB2xQxqEfVdSDpGg/ddvVseR84gyG1T23KS Bg+pXk3qk51BxQN1acUxNJiX85ZiYDKNoukGiu8qadD6znlp50UO8rXKtNfQ koXh5VVrKmoT6I9jimVhdDloqnTuqv3YOKqVnNON0pSDSxHGSpGPxtFz15nq 3P/IwYg95awex3Fk88a92MZBDkZ3Fbnkxn1AZOudk8tJcnBl1sjJ6tUoon/q iSwhCBj1e9nJ3KBRdG+ova5ei4D8eP2oVdIo2s72TFkxJOAa88u7L6xGUKi5 QX7PEQKuW6vy7O4Oozm7Vv73OQSUvbp2zyFiAN0lmA83GdNhinN0TanCAEos 6Qj4HdAhob7cSZT2I7XESiLWnQ7ly+f4HUN9aMIiPC39Eh0qd404Hz3Qi5xq H2xYeE2Hmpta1rw0/0G2ivQPOnHy0DOIVfg2rh2J96YuIaoCvH4+MjWzug3Z I5997zcrwJdxTWFuC2y0PruNCXYqwK1ZAXvf+raiG+ZPQnrOKsBldH+o274J 7bFs2Bo4rAB1LA4aF6nUo48xE/FGbYrwmtO0UO9qHVJOu6C1eUoRzvumthdy a9CznI7Np2WVYP2NtqDCvufI6Y6vj7yDEnz0KsN+n20lqk85++uLdiW4eCvv 1FJeBFJ+k++3a1IZxlGyWxx2ngB3eERIgwwT7sgPYG+wTgT/Oihm5WowobtF f0PyvmxAvfRdksSOCc8Hhcw0Z5cA85qHsw3/ZUISqVoa0FgLTPMdLyjuVoF5 MxvMJp1fgIL+Qn+Oqwo0/yfK/9RQPVArLmhVClaBp0osW06tvQRBq/XJHjdV YD8RurR24k+gPeOYtndcBf4P3Hlriw== "]], LineBox[CompressedData[" 1:eJwVjWk4lG8fhsfM2MY6trKFeSSUFqmQun8qW3iVUqRSEypJJS0OW4skZamp yd6uokWLLXJPqiEy2UZpMoRHtmQnkX/vh+s4P5zncVwG7EPuflQKhXLx3/5P mrfMKrJ8GsnGLww62UzjWXN43EjhNCpaPbJv+g2NN2CX3R0n/Re5ldMrx3fS eDtzIhLvHPiLrApjEydvUnnWxw1FDUtnkHZq/eONayR4XLcUushlBu2tDeVL aErwBo0VF373m0GvYlWMLAcovAei8VM/r88gsYHTTbObFJ6GbZWR1NQMch/k 2E5IUni/Ja2KtNkUQOJ3nDWCaZwVPFydGUSBAoOZqPVx03hzy+M2gzAKbOpm /NZymMa5hSx546sU2FzAEUm/ncL+B+R9LPgUOLzQ+mne2z+4oaaF7moqASF9 1+6Vkr9xblrMhsghCXBKp2yJSx3DVaoxP5QoVNgm1N9s4j+GOy+ei7ylQAX2 Lt18D/MxrBMe/eidMRUao65WuX4cxbHbz8jI+VBhYytbECU1infpRvKuV1Hh gM1FvvmVYRx2LWKrSRMVeh4G0fP8hjFXIaL/VScVThkX0bKshvHH6TAdsQQN xgbmt1a3DWFLcehJQ0sanDh5dVTWeggr3zi2+NldGjC4n+yHJgfw/FnHytc8 p8HhtMmypw0D2D4xZGcDpoHqipiM908GcHjU0UvjX2lwdzEzd3TPAO7yOdK1 ikmHguCQiwl3f2Ge/sGblRF0qNPMenIq7Cc+dNtXuWOLJKyOOSFuudKNE0JT 0hP2SEJRvlnCvu3d+MkGgbHVYUlYpmfUs9WoG/f/XWGbcEESLIxUjfyLu3Cg t1ywZYkk6L5oVWb1/MABas/rLxlIwVoJo/uLvDqxf8wMd1mfFPB+pbG0TrTj mB0WROvEP9/UY5nk3I6zLPY/jZOUhoTxjGI3/XZMttWVt8yRBkaTvuGDyjbs i7ImLmyUBomEB1+yWW2YPeGyTZwvDeE0wejulla8MyBV9/xpGSg2K5m+r9iM /zTJCgbjZWBHys0XoopvONkpNHJ7qgwc3pX86cTZb7jW2LNlyQsZmKpx4pK/ RXjdD/Vb3zpkIH2xWXhk71ds4nvZ0NxRFiyH0Hhn6xc8siN2frMiA3qFJdTZ SkKcVD0uctBmgMSi6pi3DQ3YbNXeS8/nMcA72LOhNLUB++vY/zwPDLCRiYXb 8xpw01faU/NgBgweFfxk2NXj0q1R5rFCBjgfOHi2Ob4WX9h43GppuhzMPRze 6nL/I77y0TTw0UM5iD1zVXN05Uec7tCSObdADuxwpezi2iqcu8qRPrtODnh3 Kthe05X4i4nWpylpeah4dOun1/YP2Jha6ss/Kg9dnnoUHQs+5j+XTPJyVgDy U4fc2bU8XGP2qqzOUwEM+YxDPTUYf30QNOrsrwDeKUKNl9oY92d+3rb6tAJU vhxLG3jxGmtcfDiXKPjXB/batva/wn57XIv7WIoQbWXltSw+D9PVrnVGTSqC Xsx+55yyLKzSH6moIq0EhzZZh7zOvIcNKvYtv6uqBGKnsmyF8Lt4dbhNTMUC JVjOe2K6y/o2Du1on8v0UYIbMnPT5l9Mw/0vzf1uv1WCEe2D9za4R+M+064j bHtlWCdWfZb5i4tGZjWfy3FRhnxFl9vmv5LRH3pdyoi7MiwSavBK+lIRo6X4 TYyPMihY+fbj75loHieRmXNSGb73qDf1et1B7D/Lnw1nK0O8A/4RPJ2NPled G4hWYoK4xFJWqvIluro6w85Dgwk6j9R1wtflIfdnL1Pn6jKBMC3sCy7NQwJu +zq+KROeXEtsJnPzEX+3bYq0PRMU9a7DWGIhyh+fso0LZ8K6v4e0/VeUIC4R wknsZkLL9OeARclvkEcYe3nqWxUIOv93//OxcsTNUJMa/6ACxCzb3BCiAjVi vnBTjQqojtecVd5QgbbQ5x9TaFaBglDPZOGDCuQZP/zi1JgKVHkZVaV6fkDb bkQv2WuiCo/W+PdZP6tEu95mLbBIVAXahd+1io7VKFCulyXYpgZBsfEdpxm1 qDf0FV1utxr8DWDO99WpRQFdFzod9qpBsjbns+XCWrT3vXH2m6NqEL4++GbR xlrEjvJfkndJDVzZ+RlaybXIa/g7Si9Vg7J0x+17WXXIXvRlewBLHbisJoMk s3qkl8PnSvWoQ52BCWtGX4g23ygsqhxQh6hPr+1MlwhRHCf7W8K4Opx2q1/p ZCtEI2EJrFmSGuDH8Wlk7xaiSpctT+bpa4Dt6xSQuiVEx/vJ945bNKD0VE20 5pxGVL1EcjSuTAPidSOLKpU+o7DCtZuU0mbBLbPY52T9F3Q4KzB/+SJNGPS+ w7HEIiRPXcFeSGpBhd0jv/wQMbI7uPmaKUcH1Ivcv9b4tKLZRbqH7AzngGlj Wc5lt+/oSnDs5cWf9WDNU28TxrI25B7jZpaRrw8MQU2Q93AbMvWO9rgbYQA7 5Veeoae1o8ZO2dscDxZYJXJOiFd3IAGbtFXRI6AxUlS89EMH+k6/P3GNRcAe O9n4U1UdaCRr31NNIwKmDooDP1Z3IM3eXh0DMwJWRnzatruuA/keHRpftJKA L+s7Z6JEHWjy7Mxj160EiMoX9Cf97EBG9zS1LiQSsMTs4CpJJomsHEQ18hwC HF+Kf1uoksilO/18EpeA6zqZjXvUSXTETH/0egYBl/XmDJdqkqgkz6gmK4eA rthcfgCLRO78pTHvygkIOW/unLKURH77Rm0cqwjQ8Q9YX7yMRCcZBcNVAgJs 6+YEf1tBooz/We+uFxJAH5i00bEhUVcj2LS1E6Cf5SW4vI5Ekyepw34/CEBa 7nqP7UmkoP3uYXcPAYHLC9PLHUlk7uMwa3CQgO5bpXMmXUhkJyErCBn995+2 xVDFjUSedyqjJyYIsLni7GmykUQBdpdWhk8R8H7/7GK0iUQRP1yHZmYISLm3 wtXDg0T/AeH2KMg= "]]}, TagBox[ TagBox[ TooltipBox[ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "+", "x"}], RowBox[{ RowBox[{"-", "1"}], "+", "x"}]], FractionBox[ RowBox[{ RowBox[{"-", "4"}], "+", "x"}], RowBox[{ RowBox[{"-", "1"}], "+", "x"}]]], Annotation[#, (-4 + $CellContext`x)/(-1 + $CellContext`x), "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[(-4 + $CellContext`x)/(-1 + $CellContext`x)]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$4922#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, {{{}, \ {}, TagBox[ TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXfvc99P//8oHGMDgg/2UkgTvhtkI/mrG4iUM5gg+ a6q7kWSsEpwvfONozqKJinB+0OFZyZqnFOD86ve2ORMey8P5O8pnZa33l4Pz /SaFKvybKQPnu8/d6+fxRgrOX3a88lpxtCScH9cyRfT8CnE4vy6BeR23sBic z6Arv9+5VQTOv9U9s331VSE4X4YrY+UXJ0E4P9tUi/W2DD+cn2x+b8Xhw9xw vlaF1f+8JRxw/sK7wUcqHVnh/OeNojbuEkxw/q6pGq4vwv7uh/ENXt78oj/3 G5zvsus259+wD3B+wcr1PwSFH8P5YWnKCy/VnITzj5+52WUcfMIexrfSPbgp YPpjOJ+pTPROiuQHOJ+dJ6Ax6d03OL/5wTXnosV/4fwNs9sC6j4xOsD4+YtS BJ6EscL5cVmzZNsbOeD8zsAyS+M53HA+i8jUZ/W/+OD866dbP7TwC8L5odVJ ZrMOC8H5Odyvlc5FicD58quPTWN7JQrnV+9wDuafLQ7nFyzL2WamLwnn8zCZ J+k9lYLzXXNDpmpNloHzJXbK5ruqyMH5k4o6Jhpcl4fzg9r8deduU4DztaJb QpfUKsL5155xLpocqgTnn0t66igkrwznqy2VlOrsR/Ch+QXOBwAXN/oI "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]], Annotation[#, {1, 1, 1}, "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[{1, 1, 1}]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$4878#1"]& ], TagBox[ TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXfvc99P//8oHGMDgg/2UkgTvhtkI/mrG4iUM5gg+ a6q7kWSsEpwvfONozqKJinB+0OFZyZqnFOD86ve2ORMey8P5O8pnZa33l4Pz /SaFKvybKQPnu8/d6+fxRgrOX3a88lpxtCScH9cyRfT8CnE4vy6BeR23sBic z6Arv9+5VQTOv9U9s331VSE4X4YrY+UXJ0E4P9tUi/W2DD+cn2x+b8Xhw9xw vlaF1f+8JRxw/sK7wUcqHVnh/OeNojbuEkxw/q6pGq4vwv7uh/ENXt78oj/3 G5zvsus259+wD3B+wcr1PwSFH8P5YWnKCy/VnITzj5+52WUcfMIexrfSPbgp YPpjOJ+pTPROiuQHOJ+dJ6Ax6d03OL/5wTXnosV/4fwNs9sC6j4xOsD4+YtS BJ6EscL5cVmzZNsbOeD8zsAyS+M53HA+i8jUZ/W/+OD866dbP7TwC8L5odVJ ZrMOC8H5Odyvlc5FicD58quPTWN7JQrnV+9wDuafLQ7nFyzL2WamLwnn8zCZ J+k9lYLzXXNDpmpNloHzJXbK5ruqyMH5k4o6Jhpcl4fzg9r8deduU4DztaJb QpfUKsL5155xLpocqgTnn0t66igkrwznqy2VlOrsR/Ch+QXOBwAXN/oI "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"{", RowBox[{"Global`Private`obliq$4734", ",", "Global`Private`vaP$4734", ",", "Global`Private`vaN$4734"}], "}"}], RowBox[{"{", RowBox[{ "Global`Private`obliq$4734", ",", "Global`Private`vaP$4734", ",", "Global`Private`vaN$4734"}], "}"}]], Annotation[#, {$CellContext`Private`obliq$4734, \ $CellContext`Private`vaP$4734, $CellContext`Private`vaN$4734}, "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[{$CellContext`Private`obliq$4734, \ $CellContext`Private`vaP$4734, $CellContext`Private`vaN$4734}]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$4878#2"]& ], TagBox[ TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXfvc99P//8oHGMDgg/2UkgTvhtkI/mrG4iUM5gg+ a6q7kWSsEpwvfONozqKJinB+0OFZyZqnFOD86ve2ORMey8P5O8pnZa33l4Pz /SaFKvybKQPnu8/d6+fxRgrOX3a88lpxtCScH9cyRfT8CnE4vy6BeR23sBic z6Arv9+5VQTOv9U9s331VSE4X4YrY+UXJ0E4P9tUi/W2DD+cn2x+b8Xhw9xw vlaF1f+8JRxw/sK7wUcqHVnh/OeNojbuEkxw/q6pGq4vwv7uh/ENXt78oj/3 G5zvsus259+wD3B+wcr1PwSFH8P5YWnKCy/VnITzj5+52WUcfMIexrfSPbgp YPpjOJ+pTPROiuQHOJ+dJ6Ax6d03OL/5wTXnosV/4fwNs9sC6j4xOsD4+YtS BJ6EscL5cVmzZNsbOeD8zsAyS+M53HA+i8jUZ/W/+OD866dbP7TwC8L5odVJ ZrMOC8H5Odyvlc5FicD58quPTWN7JQrnV+9wDuafLQ7nFyzL2WamLwnn8zCZ J+k9lYLzXXNDpmpNloHzJXbK5ruqyMH5k4o6Jhpcl4fzg9r8deduU4DztaJb QpfUKsL5155xLpocqgTnn0t66igkrwznqy2VlOrsR/Ch+QXOBwAXN/oI "]]}, TagBox[ TagBox[ TooltipBox[ RowBox[{"{", RowBox[{"Global`Private`obliq$4734", ",", "Global`Private`vaP$4734", ",", "Global`Private`vaN$4734"}], "}"}], RowBox[{"{", RowBox[{"Global`Private`obliq$4734", ",", "Global`Private`vaP$4734", ",", "Global`Private`vaN$4734"}], "}"}]], Annotation[#, {$CellContext`Private`obliq$4734, \ $CellContext`Private`vaP$4734, $CellContext`Private`vaN$4734}, "Tooltip"]& ], HoldForm]], Annotation[#, HoldForm[ Tooltip[{$CellContext`Private`obliq$4734, \ $CellContext`Private`vaP$4734, $CellContext`Private`vaN$4734}]], "Tooltip"]& ], Annotation[#, "Charting`Private`Tag$4878#3"]& ]}, {}, {}}, {RGBColor[1, 0, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{4, 0}], RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}]], Annotation[#, {4, 0}, "Tooltip"]& ]}, {RGBColor[1, 0, 0], PointSize[0.015], TagBox[ TooltipBox[PointBox[{0, 4}], RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]], Annotation[#, {0, 4}, "Tooltip"]& ]}, GraphicsComplexBox[CompressedData[" 1:eJxd1L1OAkEQB/DD11AKBDQWtnRGOj1MCBxIIY0xsRPwEazgWjGhtqKxAUwu MXxG3kLQWAja6Rvozc05c/+9hGx+3O3O7OxH4qLhXG5YlnXq/6jl5+cwaNz5 LOqblrq+8GrV5DN4sY2uRkyvM5MZ2BujMxHfpux2ajARt8l99R25p67RAJ9D 9NrwSn1EA8afxMfkLbVN3lQn6Y+SJ6bwtqNOk4vqX3rcR6ifFXGMmpY6qMek Z9RHvSSP1Ff0wdeDMV91sB4f6iD/ctfIXx3kX1C/ULzpvZGPOshnqE5Q/0oH 4zkdHD+vjpPPmtjfaeL3OXXsnQr6PYV6WucHaG33uX/233s8vjjN8fF9viPe 5fzx+4r6jecvfuX6iJdcPxyv0BXvcP1x/LL6mtdP3OD1Fdd5/TH+qIfxx+pw f4nD/ScOGlcd7l/Mr+ihHcMl9QmfH3GOz5fY5vOH81sNcX5rdXi+xeH5R/cN D9RLvl+M+qD9+wni+/cX5mPYv/+gfv79aNRznv0DERm0eA== "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}, RowBox[{"{", RowBox[{"Labeled", "[", RowBox[{ TagBox["x", HoldForm], "\[Equal]", "1"}], "]"}], "}"}]], Annotation[#, { Labeled[HoldForm[$CellContext`x] == 1]}, "Tooltip"]& ]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-10, 10}, {-2.483139859004613, 4.470941681875297}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.78166197900953*^9, 3.7816640296497717`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnXmUVsWVwB9LowKCIigaHTXGLYnicSYxTibLeBKNcUxMYlwRBZcBI4KA CrIroKyyCCKgiOxr0zTN3mzd7EvLvjTNvjR7Nw0NzXbn/qrqvX7f9z4+OmbO nPkj75ym7Vvv3aq6e91bVT5Zv0XD1xvXb9Ho1fq3PdasftOGjV5tftujTZop qEI5zyvX0PO8Hbd5/Lfof7p/zNOIfzwv3fyqIMePH5dz586Zv6o5mOzfLzJu nMiuXd6w2Nfnzp0rJ06ciH19yhReEfnmm9jXK0pmZqYsWrRI1qxZI4cOHbra /2LqVPvFyJHxX9DB4sWLZd26dXL48OHLflFB5s+fHx1S8tePHTtWthlc4vUj R0QHKpKfn+j1oqIi89eUKC2ysrIkJycnhhb79omMGiWyc2ciWixdulTWr1+v XR4JvkhLSzbaZLSo6mD5R0/Kt1sPytlzF7y+ZZhwAhSjZm6UF9uny/4jJ78r iswVO6Vuh6myLu9wIhQ+HSNcGj48QLFxxxF5oV26zFu1OxaFpffChQtl9erV cvDgwYB6R4+KwkVhAZajhaelXscMGTN7UzwWeLBs2TLZuHEjPLjZfXG65Ly8 03uu9Bq9ItHQIzzYs0dkmDJr+3bXaUW5eFGk6zdLpVmfuXLu/IU+ZaBhiPH+ dL7OWCevfDRNDhcUewlQRGgYYoOPYtayHYYNSstYFJaGCxYskFWrVqmw5yfS Rh+2YbvlxHzlRBwWaLh8+XLZtGmTUv9oMizHlBMvKydUuhJNJ0LX9PRAJK52 vZWcPS/v9psnnyhtlcS9y0BX/labowYngH06ZqX8rftsZfQ5z6EYZ35dIWfO nJFPP/1UOnfuLJ06dZIOHTrIwIEDMaNe+QTd3Opg4zI3m7ntPngiHuVFFYbh w4dL8+bNja3ctm2bGt9dwGNQRti5e7fIl1+K5OUFsGXr9xtGLNuw3+9mhPlV xXQzc+ZMGTx4sHz11Vf65ZcqlcPMSJnVF198IT169JDCwkIlJN+kGBGga9Ro xYoViEGgN4FADhsWdL//SJHUbT9VJs7b4nc/0nW/du1amTdvnpEoUGINT548 SavxQV9//bUhpsoIyE33yM7KlStl69atsnnzZoZa2n1IgPzulV9Go7qNWOZ3 PzFQuIuGT8xa/ztM12Q2s7qD9R69Ut50EvFpLPsuXLigJnyUGSgPv5nIpSQi WTdKN3lJpWTH/gK/m/HmVyW1f1OkZcuWkpqaKu3atZPRo0fHTyTSg68gI0YE PeRsyZfn26ZL1rd7YntIMVxAU8eOHSvZ2dlSUlLiOHEJ+dPoQT/AIwboMab1 1SJ9M229jz5sThAAujhw4MCtDqzWT9oNypLWAxcqKS/2iv0ICcD+IAE6vcB6 qHqowIrk5nrXONjQ9LXa9XQ5fLzYi8FiR69iHTv6kPj6KJQoRntWbDyQCEUy DvooDh47ZbzJ6FmbvhsKSxGo0VapcuHixZ5RLMkM+7U+OaZa36De3otBYTnh uzblREDUkLj4WJQS8pwTlzgsYMAuYK40kAywFBSIwrGrAZaCojPyepcZMnDS t16C6fis+X5IV7uPWCZv9ZgjxWfO9SgDGXfuFOnfX1ROvBoONjU7T2OUqbJJ PVsCFM72JJQHH8XOA4XyospD6vytMSjKQ0JtJz7bT7ysLYnsUg03obPnzkvL /guMnJ+/cLF7lJDEhXl5eUq8gkQe8joHGzFjg7yk3np3/gmve3ROERlPgELJ oQZgimQsykuEIpmAXucGbJ3sfH863cqAhYGpa1NB8Wo62KhZG42v2K62LgEK nz93Oti2vceNbuJaYl638jxnzhxZsmQJ7AgIuGOHSB8NJDZvdp361iZbWvSd J2dKzneNcgIPvH379hhOhESjloNNW5wnz7WZIjlbD3pdo6NPxgkfxZGCYnlN taLvuFU+iomuae/evUYc3Mdl4s71DqZKZhRffbH3SSzayZMnG/f/XdBuNHKT LhPmbvHRWtdeSePbPSa8w0Xze8uWLUQUvmtKV7sydOjQSK8RDaTXcuVCvVaU 88qvD79cpKZgtpw4VfKx7XiE+wJDMWnSJOnevbu62l69eulg+vbty9pR/Mf1 Ho5oZs+ebVSXxem+fftKVRezumEDJsy7wcEWrd0nz7ROI072Pg5Pu4KO7byc PXvWOXr+TTEj8p+MjAx6DoIppIsoiNhupxosAq273DzPnLUWArlUk9fF9jTe te5QSWaeI0aMIGSrmEzQkJqeamQ3bfJqO9jclbvMHOas2OnFYSb2QSIaNGgA 9jDmSy5AVAtqu88JuFoOWGBWQyeLSzrHihuBBMMuE+OduN3oYNlr9spfP0hD z7w4tNCYgLUUrTUBs2bN8lmayIbe6F4tUWPc9oss+ZuK1PETZzpZ5GETQPoB JilxEiG6ycFWbc6XZ9UEjJix0YvBcgnOqDhIhQqs9x0K6+l662LjpQ4Zkrf3 +EdRLBEuQDvVLx2c9z2HZe+hE/Jq5+ny0VeLmd2Hl8Zyn4NNXbRNnm41WX/n eQlejzBIXbx07YpyeDeHyNhp6GIT7amf7BhLRvjBYoMoX41ZIkt6i3t15/5C adBpmnQYsgh56hDlxwbVSWzMJfjxLw7GUvavrdJM7NkhOqkCApNLSN2/hPjx +cQceVa1Zf7q3e3LwI8QllsdlqJTJdJGJeyVD6fhbtuVAQuyUVG1b/Ro7zaH Zd+hInmz22xprFHQvsNFbS2WK90XKADRV3FxcbDKIIhA37799lvvjw4LXiRN qY5/VPo9lYzLp05ZThcVebe7z9duO2SmgW1Sf+VLHAZ2+vTpOvmpsPdPBnyl sW4HDx4U/8HK0Tlhv64mKoancJVB0rZtW0JQ8zYm+YMPPpAJEyZI69atzTSe NO9WMm6lSZMmZp08YMAA6datG1P3Z4m4zZgxwxe3Bx148dq9JsQgkj524vSN Dhma2aZNG+MqWLnRqQ71KTeLLl26GDvCQ3THWMaMGSMff/wxY3OzUDwYT8IF 7AU/TF97L+/md+TIEfnoo49YNBtcjJkB8sAOXWx7j5l3qxqBiEcFJVn74MF4 EE7opWz25412kJwiXtBFQaAdubkindVsrl/v3eFenb96l4mf2g/OJtFS29GC CUJUHBkPzkAn+5Sbg3pWwxcexsESmmf37t2GhKWrdQiCn1IvrEFXH/PTUx2R ztQSpHJAECaG82SVzOqBh1l07NiRcTzqaELmk4REGBtLFkT/KIk8fUADTVas WPHHZLoesjs/8Gm30hKEpZYukm5wBAHjoUOHAhmGIOoZExGELAoawIMsMH4N HQOCmN8mP6A/qqX8e3VMiMA4fYowrfbt2/txn4miwHj69GnvUTcPvo3FZ9NH aP4777xjkgL9+vUz3+mIvDBNklmuOx1NFubsMavXdz7NlG17jl/vaMKn77// vgwaNMgIS4sWLRjeH0xzlWBGMMunDYIybdo0898sVx2vfdpc4T4dP368eY1U GkRgchAB+edB/iEQU/0v802KkTJUlowIoRwTfaqME/XjrdVb8uWNj2eaVeny DftrOdRKazOUkSNHmvBNvY6jYRWTEmGomAfEkAdiQHMeRBJRJKKMmWVlkxJ6 7733jAXzZWvcuHHy2WefGQUkoThx4sQn3YBPqSHG6Cxfvly5bKnmyjTmDf+9 y8VSd7tZaWQhzfvMM9I+af5Wk/iv6dqwgRhcpA6JU155Pl/xucj7yy+/HGS3 MFLMEgOAae+qYQGhr5uxb9v5lFmh8r4IoEkQD7XRYbtuUgyxQYP4YNsZQtiw 42jI5SvOwMAhWZUqGX95j0PDcqrHyOUa16SZ3wePnXIr1hRDKcw3JoRudLaB bsDz/v37I3LOk1Y0MyPDyxTUMziTf5X7AluJoPKX73vhmc+fPzgsvAPf3M9T Dow3xJ/BeaVDMKfiYrtkVdLc68bNcnXivK0mQ0+8umTdPpdUsEuNEHaTLjZd lMeG+fG2OslgrG4aiYKi/3B8w9831zXIs62nyAANhA4eddPiPbyKGqPGUTQR ldu6VdQIifoy78cOdeHJMyYp9YI65Ia95srm3l+K3K0KWb26yEMPkTTy3opF jcpdUsBHjPDud7DNe09I355pUlDuCt6wpvdf/xXba95406J1Bpk5qzwpCRV/ ef6zetL/uob/0m+RQfw3f1X7P4SRsiaWDsOyVU8W3HuvZPXs6VV3MDLr8d+G YcaEKSOWLlkkCwd+Idl3/sDiuOceyeanTh1ZpIK/dMli9+7lcSaCXW48cPVS MMPzcpChHHwqF8M4DSEJFpVx1CGs5EEw/qrmYEREIAvD/NxQGAZBseL8Vd3B MDR+lcN/D4tPnB2G4Rmwg2EYwRFOKwzDQbF2CcNIwaD88d+S4A7D8tUojv7Z zyTXVAcsjFiVeCn8HjDSVbYyw79V5KBGA/m1a8tI1aqdNWtKfpUqsuTmu+WD npMlc8kGE3AfPXIYh6sG2+LBCLPmDeMGhiGPhxFthukGTL1ezHukKjBw8TD6 djPMzy/Hn+Xga7mw+6hgQmAiwrDiE+NAuTDMLw2EYdQX/NyZX5YgKiFsCL8H jJmEYS59EANDhF0IH8AQWZdkCmCYdReWxrwXiUVVAjLuu08KJ08OxkcUGZ/U B+a8iitvVhbp3VvSVSpOs1a87VZZ1HWIvNZ9rrzYPkM++WaZrNyUr979ok9G hBelCaNFKOP3fAAj7g2TDJgL7IL3cIvuiRmmD6sUy0VdwBlOhl93shMDQ8Zc WBTAkEUXPARDYjkZT2F0nXfDMJe+jYEhEfEZGWDxVM9VJxfvci4VVG78/vel eNKkYHzoup+YqhaCxbKgimxQyTur0iIuFGRDxuhZm3S1P8sklMitT83eJgeO nHQktewgUgnjZoHksy0RrHoI5scA/nvwJZ69lBZ9WBwrUQq3Tvf+4mAolE+W PycjFcOmQHPqlPeQgV1pKkIzlmyXDz5faNLo9TtNkz5jV6kAHyD/6UcvUM+t TINumU3cKBPlrn5v/r2KYFfW5B4yafHXNeKntya9MmXkjA1m20LJ2fPey2E0 FY2/QHVAFw46Sbtp6Ku2P4iXqHeSdyITxsKJELuZhtoUathjc+r0Wa9uLHbs hLP26Hei1NgvnaBcuHDRJPfSFubKh1/aHp7XHtibwHyy1uyRPfmFhInec1FS JMt4/aeBVaV+g5zJzKXbTc2NBdFzbadIvQ4ZZiPFmNmbjFU5duI0w3k62kuy 5dZvXS+we+n6/SakJMXtk4qsJen9sXM2s2XBjEQn89Tf0YuGgb9zLWSj0aX5 q3bLoMlrTGba7+nlDzO057lKthyd6w5Zt+2wWTFob09cWoiC3jQykMpqf8eO dcvQa0wVjPB48dp9ht1dvl4iDT+ZaXoj6URiFAoOmJBjtJl0MfM7U3Ie+f1t VOaIK5AOXVsFUoHuUGEsLnZr3BpG+E8Wn5XcPcdkzvKdJqjuPHSJNFLzQbWS oidbTZCSzjqoYdPWGxnNUXncf7jIkElZ+auoWGL8MMQqlq8bcE0K0Aix7DpQ aLID7Pxiewy0bdBpejBb6Ey2kizuF6k5krpgq3l/w/bDhifsmVJZ+1kZpHTz ZtH1vaj78F40sBtMsrnwZIlO+bgsUKxIZV81F20HZUujrrPMCJg2tVGmDiko 8/Ubt0ot60bDceRr6+5jcuh4sSEBayu1Il6dMghbSDfrG9hN5nMIw+TWqn2Z rZyAOH21S4jwdq85KnTTDEfqmqFlmL//W0WEbGr3EcvlyylrzYI8c+UuY/m2 7DpmttCQQEa8lGB3lUE4QwrX0MBuNWrNJI8XnZa8fcfJcZiSJYLaf8JqIxe4 GXIgLC4hHr8ZJayEtW+rlSRb+OnoFUbGJulCFDlC4LGopBXyVQGKiu1oDUF1 EXpT2SQ7NOqmBnanETYwnVS6Hjp2SulxlCWv8RRjleWD09ZIr1ErpMPgRWaf D9VTRmxG79jP9hlEANNC1bCVCmqXr5fKZ+NXm/1ybLFBHBBOdjdsyDss2/cV GD6yREU98RlQkNlUjaoJMTjRn66tE+2d+MCpDhio66Grh1XooBc6SM8YBARz iM6IAhD8wBc2Ual5tfMMMwt/Vo4v5WGMxoD1lTUNu86U5koAZLyrxn39dHJf pa81RJq8IJf9Q1dEBYftvjGCM2OGyNVXG6tma2y1DAuYPsJjBq42csf+Qlmv ZGJzGVnT9KxtMkbjlaFT1xphwm9gxRFrXCtChb0liaAGykswlIiGETYRFp4+ 7fUzsCsM/fyhoGk4kX1qv3RYyVBOiTZFNIZlxHvvia4p4rfdIq2EtKwjw9Ia sgBxXyARRJJEqxqhlXHTcoQX0df9euc2Re7yoV5QRtWFxbF4w0kRycmgQ+GH b6ZqSI/Hj3sV/H9tlGjyTSnxsKKifwhW0cAq2rRRKbwsYBunklD/fwr20/eX ABcWfkcwi5MkYH5KwamjR/s7OQCXdzyYr3HKMULtwkIyk2q+3N4bx/vyibFa kUjBEIiUL2/3/9NUUODFDITHwv93wXYHpiX5/2swQuuD3YYRCy5Vg/8LmNs3 K2YtJTGa/l8an151FT/8Zf911Qp5/HFQWJjL58tjj5XCVq2ysN/+ljkrrKKN enUdb55HHokBuxqN/PrXAbhKFbuDhucXvwjAVatam8vz858HYHwPiyqehx8O wNWq2Vwzz0MPBWDyxK42Jj/5SQC+5hqbNud58MEAXKOG3SDN88ADAfi660Rs 0kfk/vsDcM2aNsxGLu+7LwDXqmW9EtLwox8F4Ouvt2t30ij33huAa9e2p0NY sN59dwC+8UZ77gAXd+edAfimm+zecyL8O+4IwDffbC0EmZ/bb/fB6ffdJ0Mn TLBv33ZbeQOuJPPr1JGT114LiPSo/eqWWwJkt99uQajdzTdbeVBup6RY+tAP luF73yvl9w9+YEfKiG+8MQDfdZftgPnVrh2A77nHUgFq3HBDAP7hD62qQLta tQLwj39sKQyla9YMwPffb/kBX667LgA/8IAFw8UaNQLwgw9aMGbu2msD8L/9 mwVv346kBOCf/tSCKTNXqxaAH37YgskdXn11AP75zy0YWa1aNQD/4hcWjGSH wL/6lQWT4qpSJQA/8ogFozWVK1f0les3v7Hg1atLFe6xxyxs5cpS2OOPW9jy 5aWwJ564pL5TZQH1o49i3fXfFPu6r0Dt29Pu2iqh27bd1yQSGr/5TaQZMvK0 bh1pxsJAfB7WaXHNTz5ZqngtWyZs5kAMDyFYXPMf/mAPRfG0aBFp/uMfrfTw NGsWaX7qKStzPO+8E2n+0584+WObmzaNNP/5z5wCsc1vvx1p/stfrPjzvPVW pPnpp63S8Lz5ZqT5r3+1usbTqFGk+ZlnSgODhg0jzc8+a30QhuiNN4DFND/3 nPUTNL/+eqT5+eety0BTX3010vzCC9ZK0NygQaT5xRdtbRL1r1+/tLmakd90 5djQMWPs16+8Yj9R+Bwl1/hf/1pmqDxPTU2VPNL5tj0GOyAw0wM9hZp/9ztL aGjC+OKa+ZrZ0DGzY5ZxzdACOwRtoFFcM5SEZFA2QTN8sIGK5U+oGY1r1Mhy E67C3bjmN9+0zcgEshHX/NZbthmJQrLimhs3ts3II3IZ19ykiW3G7iLVcc3I Pg+6gE7ENTdvbpvRJDQqrhm940EPEzSjtTxoMeoa14zO82ADUPa45latbDM5 eyxJXHObNrYZj44dimtu29Y2Y73CzSm2GWPHg7V/4gnMo7Y529vRblG0RXz3 K8WKBzLAD/9tY+Z/tv2zLUFbpaDtAkGe/p6m6/ahQ4f6e/78ZpICO1Q5j+lr JCZO27KQieLL84aPKvxga86fD5pzcqyF4ohVgubLfP3P5n82+80Vws2+BfSP AORpqDd4yBAZNHhwzOGCBQuiSSr/EHZpFszHQm2SvcccJBg+fHiA5TIForhU F9v53K7B0lRX2VD4xwwu+GkbkZjjl5EcYChjG5Mtq2qqNJQGSZzvOXjCpKJJ DZOWLj5zzqWIbcL7wsWLQx0JSB2yn5H0YV5eXpAInDmThYpoW2xHt8qI6RtM krRukL+2NQJy1xSDm36aKe9/Nt8cV6DCSKKVKilFrKHp60wNc8LcLeaoG5Ug Dk2Q016Xd5jtm7L3UJGpUBYVhwductvuPJtNX1JYh9dnzpwJRo19g+olJbGj rmPy2KSBqQVkLMozFQwKMsMy1puyGxWQbjpSjiOwuZaCH5l4SovUFUgNU2Mg x82MydqT4/aLOH45iQIahZx3emeaLD4p5m7Dlxn8g7Wf4Uq98ZmbzRjmrdpt 0tOU9fL2FhgWwjLyxmdCtYk2IYnwpdsljO1hxQeN4lB45ROIxeenlXjUn0jj Q1QkY9POo6bES10pK2ePzF6+w5yrgCEMDVLArE+GLQ2OnHGEGOaypb6UBHHT p4alJKJQ1Kz3XGkzMMvUFikTgJMSTqqSnILTkvX7TGaeg4pHC4qNhMJkHXvT ZOrDUTxC56VLfebaHcD3muKin3g/40oxRwuLTeIdxtMbIsZRWQSA0nS4kIGY UhuE4a91nm7EuV6CWTJzyjeIOOLdVRlLpZRiJQI1Z8VO04+p2Kn+UYs4Y2uI 3uvJ1DqaqP+J+fV9U9qAqX6FidIGZU1ORFJ9oy5DpQkGUu/qM3alkWEYBzM4 VBdMxUwj3UwJuaYa1XHIIq6EkCFT1hocVPVythw0zKF2gQZq/3UvYy6ips3k E7xbjFSagogiQq135xeaY3lIIPSCbgycgh0S93bPOUbhYgc91UhfY23jHXiG 4lLTodQGvcFNH9qf93ScmaBaGzYT0dHa3ck3GimC1OgNVnT99sPmQMZ0JTFn PynIUShFUiAtpsCMsF26GTEFVMjPeRzUfMHq3UbnjhTa+i3qHN4JHXFWUQP/ jPlVyxAS4WaiCDXcR53GztlkrAuVOLjKMEx11A0JYeVmCUptVFO/3XrICKdy 1m1CuIS+zZplU4wTJvhDqWd+XReUkdnmQVEVw8owuHCAjbhU+15yQ+A3VKHi h4WZrxTZsb/AfA+vHkk2BFbJLGTPnvWHYNXoGiNSbO+g2opaT1TZRfY51Ich gimU+Sm0d1KGMHu8DVVT7fqXoV7jbr/5m/lV3fSQr3RCG6aptcZ/vf/ZAnNc 38fObgX8G5rDLmSst2qs93BIXdgzz2bJsLqQZSOHsGSJPy9r+a42pIXDYMNH wFlq2pCRk6yvdZmu5mqJKZpC+qJTJd5PQ+LOtjK2jJWUlCQpA77rggaME8zA E1GnZsM9Ik1PDZVyKOWMpdsNo5UeDyaT3KhSmUWzV8VQEpuFmPQbv8r4R7MF Q+eEo8APs4uAXU11kolDtAt7wKyysbSQjBtLWg1YaMj1gk6CQAT0+D4l7Y+T YY+qnj2Qd5U50IvgYG+w+y86Q8oRrSlZuWwo8H6YQKIC1Bohyg03iEyc6KP+ yEetWk3UgwSx8YZ7C1AfNopw3oNjD3dfRprQEno8d87Hbg/MXmlMGWQZmJpj XDj7yLATOMGi4hL/BI3b5WDOA6ngpFkk9nj3FcZYZGiMgEt5RgM/LDTbKlT9 gmOleGCs7HFTr+PKE3tiLXxuyEmNv8HPLBXr1uUeG3/Y3V2P2HE2bOCcCDUJ K9kCUXDyjDvFa++04UwHx1P4zVEfDlxd9gaTqDb0dCjPn79oaI4B5+gxVzlM V4upWuKOVqcYUr377rtmMxw7Us+qaQoH/cluuXDd2StGKhnWr9i430jUMx+k mXBx1eZ8/xA3G7s5f7Nhw4bgNLYvASw3nBQkvMPB9dTH9YQYZK7cqf5zttkn hxfLP3rSPyXPdnTu8cnNzQ3SCcyTLa7Mhx/mGfQU1ZR+ridMF575xXZTjQFh V5tKQA3XTODjNnqaTeUcVdG1T5hfEbuiUzZlp0mT/M76uzGyTQtphnhMSTt3 95HYC244qUSgcsHlNj788MPLiwejs3llv7sBrju2DOHBMI7EuLract2lmB34 XHTDhFq1agXqhGtB52MGOsUjWHyz+yyppx5LddK/j4Vdluwc37t3rxdelEaE iytLyCBnZ/uD/cINiLUEaw9o842Gp9iRWiE7wjF3tudu27YtyS1tgxw2zCv+ j2NKeFmNRIPbKaAsG6ThrUpJkiBrsMOG4BMcoWMf60KjUH3YdaFplsG1fOk6 xy5h1IjgNVytEcJSBvv+lcPCPlKuF8Gx6rLz2mRYEMdbbhFJTfWxDHVYCMPZ Cd1j5AoCtWtCWCKMY71PVfT8eR/L1w5L6vwt5g4Bttmp9ayemGdpsR+xSiDC gT9pC7f6H8EaNkGzIz/MGkrmJP+zsvzeh7kvCAhYBuOel288kHQzeVRcvnFY sAKEEjj6A4eDw2Jl9OnDHRbiZgJYxFhDtqp/H5YRrilVPdWf3k81B+zDKCIs CV3MFoOiolkDcW0My8LcPcerXEaNMjNtaXvyZB/RSPcFKwp/93DJuQuVQ2zi 2AnH3tQ+BYgQEqpMFy74iEa5JuJ4hEQF16ucgC5Twq9zUYedAPw4UlB8VYIv AjKwxYLizMKFfqejXROBBLqmq10vjCJyFVlUMEa7gRANsHhj6bQ7/8SVcZTk qEaYklGujnFNOzQaI8b7bMJqz8fCWNjuT1YvTMYolrGuCZUhlFemus15lzEd pbJhUVxhUgyvaLzW45ssGT9urAlB8NCcFU2aDOQ2zjvuIDvpo/TvZvsqfZ08 90Yb6dmzh/ECnHblnrv4q/UiKKEusaC+F4dy5/7j8vK7/eWrSYuBmCNJuCkN omJQ+qycEvs5MVyfcTm6vJwmq3LWGsfq7qRzn9vQhAsHcLiOj6UBg3pHU3Vb sCA2BZsiG3cWSL12E6Vhk1bStGkTzmcEMYjPUEI9fjRyiF7kVypkPspVq3Pk b50nSKuBi6X/54M46/z35mV9VHC03hvNpEGrwdLi/Q+UaZnfFRU2mJDntSbt pEPPYaHzx5e54bVU5vyE88BUToWgyqdjUEQUkeM6d9+N+MajYEsvuqw+y6Go GHAwXgttbjEsVv79hBhG1vZs5L/gX+tnFZEQhiNEyjPnq/xcN6lA9jqr5iQX Z0pIv/89s4hPl5MqJgrjnp0yxfqlQjLJifQpHfpbupAhheevUdwFOMERpATc TDW/rjTeGUuOp+O5FO0ujWHFhv0m5iAf4nfOZQKOaAGGqBhYDJXsBXUfm6u4 DAbO7SkFgtErQvnRjxhD/JfMlwUm/uCsLnoWLjRf2q2+3mQnsVx2SxyweXeB LMrOMqu6uFdI5mFAUxfkyZJFWbHUYwPfo49i6fz+JzvikxBgsdttxEqZpWvj EOW8yMRLeZfmhs+liY26Z8rkqTPlyJHD/tH2JERPc5KZ9e1etdazpMfnY6To RGESRvtfcPakQZdZ0rj9ICk+eaJ6/OhK2eJ/weRafp4tDVsPlNOhL7jBl01j GRn+F1Nc05Ap6+W1VgPkZNEJn8BTfB6s2iv1mveRYcNHGusBhdJiX8ndd0Je UtuesXSLcEKS/FNACi62YGtXZmZspxXl1NmL8n6zbpL5bmfyURGzU0p232aw nufkbukSKsVcVZd5/wNSUNHto+zf30vCh3FOPVkDki5AYbmAjbs5sBhGEdnB Ub2aLLjrTjkGSlCw8W/fviRLXR8zaQzu2eDeGi7FaNSokXz++edyFiVn76d+ Nv+ee6SAvaCg4HKrdeuqxk+/lK8+Zgw41zGwLuewJv4T72TGTEK/Th2Zox59 3M8ekun33yeTH39ctoUwc4kO2wCnT493DZxJ5L4QDg5yj0ipV65kUoXz6taV zdffInt/+ks5t249PVpN8iY4ZmJ+uF+V2200ivQt+rwFC6V1x9HmXicVjbTY j2ACnrxx48bETP5HqHp3jWYadJ4hBSdKk+ZcN8zmwdmz4wWDQwQTJ04M3b1a UZYszpZR01bLSx2nkdtLotWll2ZlSu/+Q6ReUxXK7NVluHk9S83Wlrw98oqu nsfO3nTZL1KMicw/eNicduw5agWW30vC+vBniCrHn1j5k6gMPsvOths2Z8xI 9NnJokJdemwwOemjhcXOBAavYPVPnyzSxf8uY0g37zrqxThe+7iFXvCZyQNp wDzk69HyUsthkr02dCEgt0CxJ3TWrPgBmZNrx4+Z5MDz6v11ER6dfjxnUoI1 uS5ZTDJ1zbZDybJOZT1n+Y9fcx9JFDD1f/93qteJjshw6Q1GNDc3Ny2KjEPa BLQx4XRs3JN0qMgBN4LE913m8O470S0yszIc5eGYUPyR9CSvJ/wfLkRf98r9 Dz4k9JU=\ \>"],ExpressionUUID->"60b6c5c1-33b7-4388-b994-5cfa01b94d2a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{"x", "-", "4"}], RowBox[{"x", "-", "1"}]]}]], "Input", CellChangeTimes->{{3.7816620446409483`*^9, 3.781662057855253*^9}},ExpressionUUID->"6edaf76f-1d0a-4e8f-b809-\ c9cef2cfb94b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "y", "]"}], "\[Equal]", "x"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.781664286656618*^9, 3.781664294240942*^9}},ExpressionUUID->"76f9e9f6-835f-4c8b-884f-\ 154faac6c24e"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "4"}], "+", "x"}], RowBox[{ RowBox[{"-", "1"}], "+", "x"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.781664294794201*^9, 3.781664304190854*^9}},ExpressionUUID->"9ddf05d2-2f1c-418d-992d-\ 6073c364aee3"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"As", " ", "shown", " ", "above", " ", RowBox[{"f", "[", "x", "]"}], " ", "and", " ", RowBox[{"it", "'"}], "s", " ", "inverse", " ", "is", " ", "the", " ", "same"}], "*)"}]], "Input", CellChangeTimes->{{3.781664309703504*^9, 3.781664333281375*^9}},ExpressionUUID->"93e280d6-1b99-4330-ae03-\ 03d4fe63bb30"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{"x", "+", "m"}], RowBox[{"x", "-", "1"}]]}]], "Input", CellChangeTimes->{{3.781662162403397*^9, 3.781662173522006*^9}, { 3.7816635680214376`*^9, 3.781663569613737*^9}},ExpressionUUID->"756c6d08-42c3-46d4-9b07-\ bdd43de61efa"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"g", "[", "y", "]"}], "\[Equal]", "x"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.781662175133054*^9, 3.781662196379327*^9}},ExpressionUUID->"5cc3c041-f19a-4d29-aff2-\ c873bf424d4f"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{"m", "-", RowBox[{"n", " ", "x"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "x"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781662201541089*^9},ExpressionUUID->"49a4d1c5-128e-4b8c-8839-\ 1979449f4688"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"g", "[", "x", "]"}], "\[Equal]", FractionBox[ RowBox[{"m", "-", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "*", " ", "x"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "x"}]]}], ",", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.781662601376136*^9, 3.781662623307426*^9}, { 3.7816627858903923`*^9, 3.781662786782406*^9}, {3.781662841161751*^9, 3.781662858933963*^9}, {3.781663557989682*^9, 3.7816635634944277`*^9}},ExpressionUUID->"c55af176-eda2-47d5-985a-\ dd01def1e8e6"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7816626116913023`*^9, 3.78166262444932*^9}, 3.781662787887424*^9, {3.781662847629047*^9, 3.7816628596815233`*^9}, 3.781663574102191*^9},ExpressionUUID->"ac094fae-2e32-4c6a-b4d6-\ 5bd4ee9ab37c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"h", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"a", "*", "x"}], "+", "m"}], RowBox[{ RowBox[{"b", "*", "x"}], "+", "n"}]]}]], "Input", CellChangeTimes->{{3.7816643544852867`*^9, 3.7816643688660088`*^9}},ExpressionUUID->"a8098665-0cd6-454a-a171-\ e38004957a96"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "y", "]"}], "\[Equal]", "x"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.7816643714423532`*^9, 3.7816643794811707`*^9}},ExpressionUUID->"6c89bcad-28fb-4a83-a227-\ 741655acdc23"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "m"}], "+", RowBox[{"n", " ", "x"}]}], RowBox[{"a", "-", RowBox[{"b", " ", "x"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.78166438027483*^9, {3.781664479342766*^9, 3.781664494335265*^9}},ExpressionUUID->"ce928554-a805-41d1-b4aa-\ 65b89f45b6aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "x", "]"}], "\[Equal]", " ", FractionBox[ RowBox[{ RowBox[{"-", "m"}], "+", RowBox[{"n", " ", "x"}]}], RowBox[{"a", "-", RowBox[{"b", " ", "x"}]}]]}], ",", "a"}], "]"}]], "Input", CellChangeTimes->{{3.781664387536705*^9, 3.781664410529572*^9}, { 3.781664460499934*^9, 3.7816644987597637`*^9}},ExpressionUUID->"b9898440-e9bf-4bb3-a1fc-\ 64c370c129a0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "\[Rule]", RowBox[{"-", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "m"}], "+", RowBox[{"n", " ", "x"}], "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}]}], "x"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7816644049353*^9, 3.781664411326559*^9}, { 3.781664461853655*^9, 3.781664475255497*^9}, {3.781664509116247*^9, 3.781664520693314*^9}},ExpressionUUID->"5bd0de5e-3a9f-48a2-9a83-\ 13c380f7309c"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"therefore", " ", "a"}], " ", "=", " ", RowBox[{ RowBox[{"-", "n"}], " ", "when", " ", RowBox[{"h", "[", "x", "]"}], " ", "is", " ", "equated", " ", "to", " ", RowBox[{"it", "'"}], "s", " ", "inverse"}]}], "*)"}]], "Input", CellChangeTimes->{{3.7816644145607986`*^9, 3.781664439054647*^9}},ExpressionUUID->"ca03ed9a-06f4-48f6-8259-\ 991f83d52d66"], Cell[BoxData[ RowBox[{ RowBox[{"h", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"3", "*", "x"}], "+", "2"}], RowBox[{ RowBox[{"4", "*", "x"}], "+", "n"}]]}]], "Input", CellChangeTimes->{{3.781664538334581*^9, 3.7816645546524277`*^9}},ExpressionUUID->"9d3d894b-c92f-40e5-b051-\ f77b838f3877"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "y", "]"}], "\[Equal]", "x"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.781664561821458*^9, 3.781664570514645*^9}},ExpressionUUID->"19898852-31f4-44ca-ba12-\ bdc8a56d881e"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{"2", "-", RowBox[{"n", " ", "x"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.781664571188154*^9},ExpressionUUID->"0886cbb9-7c26-483b-9ed4-\ 373f3b5e75e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "x", "]"}], "\[Equal]", " ", FractionBox[ RowBox[{"2", "-", RowBox[{"n", " ", "x"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}]}]]}], ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.781664571963643*^9, 3.781664595506651*^9}},ExpressionUUID->"a1485865-4bea-4f07-b34d-\ 3d099b5aecaf"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", "\[Rule]", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", "\[Rule]", FractionBox[ RowBox[{"2", "+", RowBox[{"3", " ", "x"}], "-", RowBox[{"4", " ", SuperscriptBox["x", "2"]}]}], "x"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.781664596096044*^9},ExpressionUUID->"f5ce859d-b563-4e53-9a88-\ 0c55f9aebda4"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Therefore", " ", "n"}], " ", "=", " ", RowBox[{"-", "3"}]}], "*)"}]], "Input", CellChangeTimes->{{3.781664603400496*^9, 3.7816646135103893`*^9}},ExpressionUUID->"8e8576ad-51c5-4183-952e-\ 690ef0e24fbe"], Cell[BoxData[ RowBox[{ RowBox[{"w", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "x"}], "-", "1"}], ")"}], "3"]}], "+", RowBox[{"1", "/", "2"}]}]}]], "Input", CellChangeTimes->{{3.7816646234224787`*^9, 3.781664640321246*^9}},ExpressionUUID->"8108317e-efad-403f-a190-\ b70ab7d3dfd3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", "y", "]"}], "\[Equal]", "x"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.781664641654117*^9, 3.781664668262764*^9}, 3.781665039591299*^9, {3.78166507174965*^9, 3.781665076801887*^9}},ExpressionUUID->"9f1405ff-b693-43eb-b78d-\ 25f1e44c86f6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}], ")"}], RowBox[{"1", "/", "3"}]], SuperscriptBox["2", RowBox[{"1", "/", "3"}]]]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"4", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"4", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]]}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.781664648809259*^9, 3.781664664668182*^9}, { 3.7816650354136868`*^9, 3.781665040101244*^9}, {3.781665072676949*^9, 3.781665077579772*^9}},ExpressionUUID->"72d1a40f-5ee7-4488-b7ff-\ b17ca7aa5606"] }, Open ]], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", "x", "]"}], "\[Equal]", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"12", " ", "#1"}], "-", RowBox[{"24", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}]}], ",", "x", ",", "Reals"}], "]"}]], "Input", CellChangeTimes->{{3.781664670624041*^9, 3.7816647153484383`*^9}},ExpressionUUID->"817ec0df-cc5d-47fb-afdb-\ f94518266d10"], Cell[BoxData[ RowBox[{"s", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "-", SqrtBox["2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.781664739083549*^9, 3.781664739827433*^9}},ExpressionUUID->"bb33b2d6-2dad-40c8-a2cd-\ a736bf4675fe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "-", SqrtBox["2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}], "}"}]}], "}"}], "//", "ExpandAll"}]], \ "Input", CellChangeTimes->{{3.781664858350559*^9, 3.781664863749357*^9}},ExpressionUUID->"d29a5257-dc7f-4c30-94e6-\ f01eda05f951"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], "-", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], "+", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7816648642023983`*^9},ExpressionUUID->"c986422b-9b3e-4566-b68c-\ 8558fa4a9264"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"w", "[", "x", "]"}], "/.", RowBox[{"s", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "x", "]"}], "/.", RowBox[{"s", "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "x", "]"}], "/.", RowBox[{"s", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.781664730469035*^9, 3.781664760303911*^9}},ExpressionUUID->"14f3179c-bec3-4de9-8c3e-\ c1d18b943390"], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{ 3.7816647609986877`*^9},ExpressionUUID->"d5186aaf-c2cf-4f86-941b-\ 2e2ef504fbb2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "-", SqrtBox["2"]}], ")"}]}]}], ")"}], "3"]}], "//", "ExpandAll"}]], \ "Input", CellChangeTimes->{{3.781664796315887*^9, 3.781664807347458*^9}},ExpressionUUID->"d2470dc8-0de4-4d2c-af3b-\ ddd3739a609f"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], "+", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]], "Output", CellChangeTimes->{ 3.781664820142996*^9},ExpressionUUID->"bc30e693-2204-44da-9c97-\ 31aa35f00b73"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "+", SqrtBox["2"]}], ")"}]}]}], ")"}], "3"]}], "//", "ExpandAll"}]], \ "Input", CellChangeTimes->{{3.781664810754345*^9, 3.781664815532832*^9}},ExpressionUUID->"5e647aed-e200-4a8a-8eeb-\ d2defae3605a"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], "-", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]], "Output", CellChangeTimes->{ 3.7816648168849173`*^9},ExpressionUUID->"b9218dd7-b9c2-4e84-a9d4-\ 10abb2d4450a"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Therefore", " ", "the", " ", "points", " ", "of", " ", "intersection", " ", RowBox[{"are", ":", " ", RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], ",", " ", RowBox[{"1", "/", "2"}]}], ")"}]}]}], ",", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}], ",", " ", RowBox[{ FractionBox["1", "2"], "+", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]}], ")"}], ",", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}], ",", " ", RowBox[{ FractionBox["1", "2"], "-", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]}], ")"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.781664825899027*^9, 3.7816649141400023`*^9}},ExpressionUUID->"4144cdf5-2043-408d-a7c3-\ 6689d13eaa73"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", "x", "]"}], ",", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"12", " ", "#1"}], "-", RowBox[{"24", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.781664949210217*^9, 3.781665017641773*^9}, { 3.781665114219439*^9, 3.781665140711607*^9}, {3.781665228615912*^9, 3.7816652577353783`*^9}, {3.781665517591474*^9, 3.781665532765504*^9}},ExpressionUUID->"44a18e0d-5691-47b2-b9cc-\ ecb532798076"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Xk4VO/7B3BL+6IslbRIIpVKKLR4yy7ZKkqkPrQnFVKKFBIlKhEpRUoi IRRJZEn2dWwzc84sBmUpFSH1e+Z7/fzjel0zc84z9znnvt/PNQrOp3YcEhMR EbknKiIi/H+Fey7L5WQeRP739w3zsiTZoqIf8Pma7reM3j7kcA2qajd/hObU 6y/YmV/x8fjDBfa9JZDNuPSot6gHv5S3zHp58hPCecm5w8rdEBtJmb1AqQI7 yysHNR4JsOHfgZydaVWQ+LbiYP2BTlQFataUraxFI/91u8QOPuRvfR1J7q8D 5/PTtI27eSj4zy8580cdPOvWPOHu5MFJQ9r+3e86tB/Kagy15uEBY+PbKrF6 9LPedHaZ8SC76LrXwNx6ZBzNfPt2Mw9SL1R+aKIe12WmepQs5WFiyaHeD+H1 kFBijF/6xsXXYYrdrNaAdUp5t+zucJFzJPzjtg0NoGIkHM3Dubjcovvsw6YG VHasDtcP5WLum4cnk40bcG5kXEU7iAt9L4c/Po4N6BndPFvvAhf3fzLmLwtu wPEZIy1FzlyYfq/e5U414N6CKwlB67lI/PKuQiKsETLnw5ooDgdu96wUj0c0 IvfN5cfuFAdahryLpdGNWFenEzCZxUHFw2mrfZ404pnu4RCtVg6+W9uH97xt xI+hU37pNRzovhnaWcJrROm/q6YT8zloC1jH8tZpwp5P2SKa0RxILEoa4POb ML2lP9rDjgM9uwAWr6cJduplhs92ceAevr+S29+EGynPw9t3cMAQlU2ifzdh bVvCPxMrDuIEwU7MGc34YD6sscGUgzXpx6sbNZshwfHetn8jBxYGa1I+Bjaj 92C6JCXPwSWfaTFFIc34LztU03AxB+nZgqDCsGbErZWmXizkQEblkXNBdDO+ +KuX+8zngDljtlxeajPUao0Y6tIcuDK+B2c0NeOijaxu1yQOQo9lH368jIGI SC151wEaX/ReBk9fycC+htIl3D4aJrJPX3itZeBy9aVG+14aYp/u9m/fSOyd Y2rZQ8N7mafXiBUDm8QV95jzaBym1IN2XGRALUtxY2QLja226U8nNDBwR29v 4H9FNOJUn3861cIAI7uLOb2Qxh/xxz3tTAZ+FVSWvymg8TYzfHVGFwOek1l2 Mvk01sw+lb1vnAHzqmnqdA6NhZWrS3NUWtA5Vir9MZXGkF4K/6hfC3Yn2fxN iqGRn/g19lxgC5xk609GRdPwn6K6MyikBT/XlSwNukdDoi616ElECww1x+2P RdJQ3p8Wx05qwQPzK926t2nY+Wbs2VXXgkivKUylEBrZuW+qoNAKyrS8huVN 48Ki3wGWyq2QVSv3/HGeht4V7U37VrXC/8SoyTTiKtPc5AvrW+GQ1ee+yYsG vyUvKNusFTYHGaUp7jRkht7rrXJvRU6/ILv4BA1P9ZKsucWtiNXOO13pROqn ueTx7fJWnJSrKfq5j8aeDT43ZtS0Qs5iZLc88aaNms5iba3wXpFndd6BXA/9 xFn9/a0w2tdpo7OHRrhN4PFSuTYYJLPLh2xovDhtuMTTvQ0z7xoW7TGm8cD9 8fSBc21g5gwynhvRuOn5Z+iYbxvGLJhSo4Y0Tp/Pqt4f3IaofUEjjwxoaF1e dtE8rg368euPjOjRKAmfwFha0Ya4zPGvnE00qLSSG/UK7XhUsKDDX51GXd+E XvXl7XBpLT/6ex2NQlWj7XdV23Fzgv1PN+LHL0pn7NZqR72Ej+h+NRrOz8pu Mre3Q9sY7dvW0BA8LA/vOteOc/Mtcq1X0mAwp3wz9W3H/XdJb5pX0Pi0wMz6 hX87JB3MnzoQP4/5PPvkzXbkzPi07bgKjeORFbcHE9oxFin29I4yjb7Qqojx 6nYcmb+oQkKRBrtyxk+nxnbkDQZYJSylUTPNYldhazsss2KyNxCnBVfLBPDa 8ev4qiXOCqQegTWRU0baYS+617ZYnsbPi3X3pJd1wD3FyyNtIY2x402xKy50 IDbfcIHCPBq7Nuy7vcavA9IvxU41zaWRKioI0gjsQMXXftdgYqfo4TNbwjqQ E+FwcHAOjaJSOVObhA5kmpep1sjQuLbkv5/nKzrwxKLLN1GKBv21p8e3tgPb 7z9a4Eys/cad8m/qwErNlN1LiL9YBFaEsjtgEF6aFCdJw+Ji0uPHgx2QjTeJ SJhNQ5rRt71cjoncZde+l0nQcI330q+WZ6I7P2RBGHGJ6z+thmVMbI2f0GpL 7CUuqchcw4RamOvErpk02tQ0Rwb0mVB/Y7RoNvGjGxeezjvBxCotxVif6TR+ 24nHLjzNhOa0wojtxNZLQ28pnGVin8qo1CJisdyHF1f5MVF11SrhwzQahwSF NohgwjLgw8A04lVbJ/89/I4Jowt5j3Kn0Eh/kbK8tZCJz57ONmHEmjLWNmZl TKieM4pwId7cFZ24qp6JpJu/imcRW95caf5NwIRMa2iB22Qa7m0W0d5SLEyI ljAynkT6g/5g0Zd5LOjtlwlRJL6YGvXVYREL7+bqWIoSB/pRuroqLARYy+4p mEgjSulMp5guC+Jl+Va6xLln7qqHHmNh/KTM2K4JNHQ7tB3H3VjovpZD6RB/ NGRddfNk4cwFhw3yxBXzlNus/Vjw4AnWfxWnwXz/xm9OJAuc2DsuwcQHljsm B91n4YBN+/vTxJ23RBqHH7GQ2hjlb0/c72Km3P6ChRLtJBNVYpFpHVVxhSzE OmQ9ZYiR9Xr4Dc0qY0HVcp3OR+KpLMUlVypZyBWNXJtGLJXu6uHCYIH31Gzr NeJldn/nq/SyIJc7xNpCbJKgcCRjHhtmhQyVfFFS32gJ5bKFbJy/qXk6jXhJ 2Bi/XYGNPT4pIvHEo97NzhNU2XB/VT8SRPzSJsRptx4bnD/eWnbE9028Frka sXH22ILMbcRBW1yYl7exod/66hSID6zYsvfFLjbKU+PSVxBLi363HT/KhmOx hKYoscgwS0bKjY3rjR/Th0Vo9PZWNCp7sHGuzOB4P3FZa6KNtS8b9YYxt5jE 3ul7LJ7cZmPv+pmR74gPPzOa8TaKDbu+BO5r4h0P1CurYtm4d5Q6nEqsGjzD bOgpG6tjdGbHEVP7Cw3N8tjw8eyrCyCusn0p7vSBDe9WjQJf4rfm9z+6l7Bh QI92nCO+o+Wp96CGvL9y+Kkrsd/q//6lN7IhsTzR+gixq6JlQWkrG2lzC1Sc iY1mqWwe4LLxX8Jypz3E6hPnjIl3s3E3py93J/HiMdE82T425ltJ6FkR/xZ0 aOkPs+E0bl5uTJxSEK4ROZ3Cc1rjtRZxdJbPYPJsCkbJpts1iQNfHMsomEMh j3F76jpipyiDtd3yFDys0/pWEpuHqvX/WUahVea3lAqxtv+il5IrKdivcbFX IpZ0G165SZPCoPV14yXEf134PVY6FFQb8r8uIv5iX//8oC6FsujxtAXEJUYp ymGmFPYKokLnEWdsiu5MsKDg1Xno6RziuHVXE9/soLBeTq1Nmvjcov1LOY4U 2DJPwmYTO1ur2TH/I5+PmT13FrFlgOj1lsMUdH5fzJpJvDGn4X3DCQrqlauO zSBW7nnyvfo0hZGUwxrTiaUWnlX6fJYi89pDahrxuKWxfckFCp/H702cStyU 1V2YF0hh5ztDpcnEhV25P7NDKJRw7a0nCespd0MlI4yCQWZ86ETiKAtHx9QI CkHFzm0TiP0vr76VFE1eT+etF9rt9d/ihIcU1kidiBcnthfUDj9MoDDujwVC G86PXxWTROHwg6QEMWK17e7776ZSWPS7Z4PQC/0MIsIzSP3XWrSIEk/OlPl0 PYeCBWtegNCD/M7Rq+8oqN2/pSM0e96bNVcKKWiJ/B0RIa7YFuzsU0pBNvlZ sdDZvvZR5yooXFtTHyn04/SVFe61FDauLDkldChvbPxkE4Wu9WXWQp+fW73u WBsF/a+LtIV2MYs7dJBNQZQvqSS0pc+pmP08Cu253XOF3vhKr3pvN4Urk3pm CK3MlRS166OQ6mI/SWjJOTxNm0EKkicuiwn9xyTr6PZhCgdzEkWE7r5w9YHJ HwqO1Iz/+cA3aTF50rdknYP+/ftHwVyxc70c6dPRDunDQhfmV9feI31/rf3J PqE32OUcm0PmSpixKEvo1IE48YhZpA/tHikRemnItYezyZyzKuA+ETp66Wmt MDIng15tOy+0RP6e+ulk7qo5FegJHWi79UTIfBpvxivG/hKP9K+YOJnM6WtF 40lCuwVLPQpcLOybPAOh+Qpj2mJkzj8PmFYzTrz3Ha/Bj+SEuu6/hkLX7apy HVcizwUsk/4QG/dnTbpIcoZz/tUfY8T51x4+/k1ySsJtdRWh1RWCNnqtJjnv B8dglDgpz63px1rSh2UUjEaIF+7a7XaG5KTNKr4rfxPf6cOUAU2Sa5wDBoeI p1xTSXDVIvUZLoz9RXxpieTmLzokB8gWL/tJ/DN3pPnIZhoGY3NDB4mP7+Se 6tSlUVxvVveNmO6tmOqylfS12u6BfmLboNdPaJLjPqlc6eklrpB/sMWJ5MAl sx+/+0KslxvY0mFKcnpuw8FuYtVe2+ktFqS+i59v4BG/3bX9w3VrGhPXWSyk iQ3e63vo7qSxX76hgklco6SzfNCWxhTffXptwvqFre14SnLoWdaci83EgiGl cHuSU2WbFLzrid33LzSYKcy5P5O0q4lD1KameLrQqP+X/7OYWCbmn5PKYRot kjF9BcSPRYekmEdJLo8NeZwrXE8D94KBG43bzvqr04gNN7WtGT5NY/2n3eLP iWuf1HJfeNBY+n1BaLzw/J7526RIbk/ibkuLEJ6flfm39CKN5fVihqHE40bJ md6XaHxoEL8aKDz/vCg5TgC5P/ZdFPUUnt8vtOZuELm+M6BzQlifbn9/U7Iv WLpIIOMsrEfuqS+vwkjOTjufbimsh8LhOBeyj4ixy3A1FNbjuuOOeXdJbnh5 pFRHeH4Hs7xLZJ/il9VlqCg8/vjS6xaJNHzMT5p+/0uOf3i+rmgSyaUhlVk8 4jc1swazkkk9pZhpzcQ1j/7YL3xFI9I6zfAt8fhWxoqvuWT9j62KzxEHv6hi xZF907Ed548dJpaRLr694wONSV+uhe0SHp//aiS3hOQM2SGLtcR7g0I+B9fS mBtl7MYeJ/Xq9/Pd3EBjejS7pZz4zG6vdd+aaNxdcCcjkzhYxSVmdzuZq786 XwYS51RsPqbcSUNR2jtKgVhfQ2NRexfpm/pKFpOJq2NX1N/8QvpymMKhXtIn +K5zdX6Rfeb3qsSMLGLpWd+mlIzSCPk3M2QLccP769fMxoW559n6JcR3XJUm 1f4jzz/DyFyMWKpir3j7BA4U3seklIwRXy0dH5Ag+3qRS3P1iRs0DvicleRg jh048sR3uKOjo2TfK+8nNnV8lPQxPbXfE8m++MDOG8eyiWeP3R9coMjBuq13 DBcT1yWvPxOvRPb1Jy2qh0Yo3NpTN6CswsFR3wlJNcSzcib2rVvNwdZdLiY+ xBJnTneZaHGgNK9WsvY3hRldRkwPcw7eM9762JA+WRVJ7x2x4MDWsu3AYuJQ w4ttl6w5kKzu8f0yRGF6QjojxJaDB90tjpeJp+1bUP9oPwdPmxoDEn6RftD4 rbTSg4PrhxKVPvygUH7lhqGNFweaO135l4iD1ZSLGec5SDouW7KFeHKYQyHH l4Pb8nL0W9K3J5mV5Q1f40CWnXYg8TuFCR9iXyk+4GD0zjkNqwEyBzYbmlJx HGw3GHoy0k/hVV4vfT+eAzrvz/cE4r05W6SkkjhQfjeyeJDMhYyXlKdIJgfh 8grX/HspOD1Q3Mj6xMF0jzDesR4KmnJVDdEVHJTdGDAWJZ4a7XliVzUHS+03 HbtH5kxWROmDygZyfaq/cj90ke9/48i/XBYHFjqLzooKyPPtnVIS9YMD7cWr jhpxKYQN79y3Y4is7+zDpk8cCi5n//yaOcLBf277OKYcYf0tll/9ywFPVL7J mKZw6OhAiMdULlKq5/SsI3NPareGlbU8FyE/Ni4rJnPxhOa7tqnmXEzakXKh hMzRwrrm1LcWXCQmLT8mRzzn5De/I9ZcrPRM/+xWQ+HDUyXlUlsuUoOT26Sq yf0675b75QNc1OgGi5mSufxu5OD04bNcvG5z5R4sIfdTlB/76XkuHExPycYX k/Wo38/YdZGL3uCgJx0fyf1zonZ35mUuwqKyM8yLyPdh6iSevMGFdMDBi/MK SD0+SGzhP+ZiW+yFNY5vKBxwWDE74gkXKxqDmT4kR2QPG/C2PuPip1bWx9hs CvvVvEMepZDPP1qm1vSawut4XvPeHC6y/PMc16ZTcAh861ZfycWrmLVHbj6n kGLm/LhgiIvSFsHdjnvkeqkq6GKErO9lT29DFIUCCbrjwxgX3t4Tg8ojyfPQ uG9ekQgPd+4nnU0juennPvuw4mk8aCZ7KBwKp6Drbu1TvpiHqQtlnX2CyPvv 6+5pMOYh1WtM19SD5E7f8V87zHgo3ODBmeBOgbs/P6LRnAffjaJRH0jO+7ls Y22TNXk9x2/tWjcK81+tN27Zy0OLMn906CgF52JVTaYbDypTtV8sd6Lw66vc bEEUD39+ei4VN6Fw92HXpwcxPFxvZuxwMqKgYZXlt/MBD9OYfZPeGJD+lWkx UBjPQ9Hn/MEDehT6zl+uiU3lwUrtaGIUyb2dEwWhNh95+H7CqOraKgrN8hlT 3/fxcP9l7GzPmRQ8632LPL7xICW+a64PyeXSAdu8V/7gIf5XlcuVqRRsBLzu e7956F7iXxMwkfS71Lnl7uJ8OEYHpB0ZZ6NUxydIZT4fgu0av5J72cjeaSJ+ 15CPUuYnv+mf2Qg2f3t1oQkfDY9HL9NlZF9ksGLKUzM+HI7ZDmSSfYiYxvSZ OZZ8rD18fKZ1IRuWUrVzW/fw8S7h0LITb9jorrNbufAkH2llW44qkn2OnOVh m8RIPnSy7B/cvsRGn1FLo2o0H3UZcZaSPmwUbjG1y77Px5xnxlvCvNk4vHql Q9kjPjnOs89+nmy8ntF/sDuZj8TiMY+tx9nYXnn2vGoBHzn5d3O32LLhZ3r1 UZaAjwvDR/bNWsFGg9NRR7UePqzcXGX1ldlYdtZ8fupXPoq+RP45o8hGRbxk xJNvpB65MRs/L2JDZuxh0J1RPtpnrTtkK8XG85c5J09LdIKRJarBG2WhTqp7 k+qGTmh5GSRWfGZBgbWt9cnVTrBuz/Q678TC9Y+bXtkGd8LkWULYg70sDCap Bk2+0Yleoxm8fDsWPrpLaJ641QnRt5O0By1ZODilIVw9thOm+zftXwsWnmvY mxSld6LK+93kwcUsrLl+JIfd0Qmv9qaeGx1MbNQKvDtfXYC7Ko7aKaZMMJzn b3ioKUBdsSMUDZnwCEtrWaIlAB3xPfoemEjtbJVT2SyAvhJ3y9kNTCy+uzp+ g7EAItbLlSYsY0LsO+Plzr0C3GMFLDj1twOVL1Z8uukvwO37UTqn0jvguLh2 RLRRgOxnzytLpnRAYr579rtmAX4F1RrXinWgSHrOmbOtAnytP/6v6U87lKc6 dHezBPAROaLQ8K0dAz8EjNpuAbxXWf+409oO/89/Xz/8K4CjdK7S6qR2PPdc 46azsgtDf/0u5ui141fFTe7pK12oFbx9lHmwDczpzUf/BHQBt1/Sw/va8HH7 woFrQV2QX257W3t3G27VvBiLu9EFzciwTalmbVjZ8EmmOrILVmMHgx3XtMGp TdRkxYsubPzhkUwNtaKs62wKp6ELapl5WocCWxE9wclzx7Ju8Nx6R+beboE0 OztBrKQbNdK8b3zvZkz0vbJL50wPqtrmnI5vbYBIstMrrtQXaH+0rK+fVAf3 +69uSn38Auuc0OTl8z7j/argKZJuX5EQblf+17YIktvcVf0leuGarvHjuFcm ZN1Mwi9n9v7/7ysiIv8H7T0Yhw== "]]}, Annotation[#, "Charting`Private`Tag$13369#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk01I33x62l9CUkKdmKUkqPPCqVd4UHoShLekqylEpEWmjxKCprm5Ao S1KpLE3FDDWEIksxwsyY+cxqMBoqJiE/vz/uued97j/ve877vs418AvdFSgn IyPzebr+v28PFH2h9nlYu+WX75wqE0PBZuEJtrYFtLuUdDym9doHGVkvtW0R L7389WmpGE7NnWXZ2u64tU2k6VkihleAtOqWdgBOlwiqip6L0WN21SZZOwK6 j2692P1YjBzNnVcStGNhF7B1+E62GDFKL5fFa6eiyyOlj3tVjD3eucVDww/h 392q0ewlhvJUzD573WJI0/2eJpiIYeT2TfQ+kYTbLWapn38P4EzLBmT8rMAf pdXHT9cPQIukxpKVfYf6qvy9otsDeM21aWrdVIOgl4Wrtf8dQM3R7EXe4lpI hz0kGgYDGDHerPr8+Af0jUhSq0T9kBsrmrvIqBH71iv/Gn3cD8sp39e7XzTh /WYdm6yj/WiKtWipX9EKOb/slMsr+qF3Y2DsybfP2DFCMzTn9GFAymZ1rGmD ovan5IqMPjzspzSqpLTjsL/jEjm7PqgsLpTw+TS0xO4szBeLkHTk1aGcpV+x zKWEcvO2CKNbivhB0Z0IHjVQmzIRIcK8ljT/fRemWtqGGip7wX5Rm/jFgA7H xSruY5a9+DyoIDZfRkdjpqNRrUUvqKZ2zqmmdCTk+N5LNu9FztO6OV7r6FBd Sz2us7oXfo/qk5nOdPw6ezbUxKgXwuyP13vP0PFMK2z0j3ovBpOabk8201G5 Pcbz6qAQ40dp90yiGLgwTvkTmi2Eu+X+m6ujGSiwVM6byBTimazwytpYBkqk F8KvZgjhkyEN25zCQJiPYXL6bSGq6xY6uOUx0H83xD43Xoir+gd/nm1kQMd6 X5bXKSE0vg46f1zIRNA1x6drnYQIzj29rVmPieQzOHPRQYja4Kl1bUuZ0NEn ievthDgtr7aEuZqJrCfPKl23CNG9xmJMso0Jyahov/3fQjxIjCrQOsYEvaCu haIrxMqtM/8cojBh63vDKk0iQMnTomVdVCbi8qK4DmIBLOa5ujnWM7HqXUmn VCTApt6Mhyu/MKE8pv/fdq4AO5JXOA0Jmei18L5bTRMgvNslI1K9B8oPFN+L ywWoCEs1TzrSg5jN9yRdFwSwZqzfNxnSgw8/rV5NRApQY9sTFxLRg4mCX7KL TgvQqGXc7RrdgxrLpdx/QgRgVr2J1rzTA/+xJRe8fQSQmc1ouk/tgeb9X6c8 Nwtgn2dwuFSLBT1lv4jhET4sMlSM63VYCDhSK4wb5kM/ZZxPN2DhlP0+f/VB Pn5HdvgpmLLgO4o+dT4fz93ifby2sKB45dng8y98aMgOe0wGsXDR9NwvoyI+ ZKQ989RDWNCn+p5e9ogPsbix3fgkC+X7DQ11c/mo73ro5nqBBS3HEo3+ND4i S/a45N9k4dHd73tGYvhgH6DaOpJZSDqmx83w4KPJ47m8zzsW0p3/VWvayUe5 U2ZNeC0L2e89zkkc+bi1LmJLVgsL5j/G/1G05sNOdfkmCZeF+I+hqQeM+DBX 1ByXF7EQRypKnqnHh+64LHnBIAvuKuo19xbw8UvIWLdNysJhVp/vFWU+it5e X3tHmY0yxbwNbkM8ZJDOf38yl42d6/Um7ft4iH16pPStJhuyy501jLg8+KTZ mIn02DDN4xxLaedBLUS6YqMFG/fd2jqmSDycWXzAkLOPjSmFFpJJGA9+rms8 mQfZSHAOoGoH8bDjsmxC5yE2klYmJnf58GDclz/cfIKNOU2PD75x4oFGElHJ sWxEp2TKZBvyQO2t+Pkqno2+Y1e2FGrxULQwcXlpChv3Aul3Ds7h4dJ/q24U ZrDhPej9u/knF2ucww+kPmOjxdVyzmMqFzrRNrevl7Lxa9/hRK8yLmaWzfuQ 8JqN5W5bg4PyuWBpvVkdQ2UjJNh67cHLXDRuv+Z3vo6NlxM+OxaEc/Hqgnfa mUY2OqUbM5oOcJHEG588TmPDvzmrMWodF2fnN/91pJuNi79PzRjT58Lf8X5g AIuNT+WJYaFKXOw4H3r3AI+NE4Jvmp6DHFgVb2neK2LjyICqNaeFA2Oumqzn IBsN7tqzPxZxoKbJs3D7zkbT4PCLihgOJuxJQc5SNqLcekJJThyIouKy7CfY sBG2bOCNEej3XBmUK0NAK+6EQkL+dG6HNOT05An4X7Z30XvRg6/xE/eyFAkE Fkwspq/qgdMSwd8LlQiYPdm6q6mVCWplc2v6bALZ5+YGx15mwtLz9RHN/xFY kD6SHzLNhWeS+/K3VQnoeGWNmsxiwjD+avZcdQK0dcY/33QwkGF4Yl3KPAJ/ jP8yb33EgErlni/KWgQapfW2yecYGPtmojhTh8DHu8zKzFUMhFxTfxCrS2Cs pyJVfTYDfIPx9XIGBKqNS5uCRXR8dm8KnjQiEG+7Qk/4hI5/vpFmnFs+7c/D vfRZ0jRXr2bn/FpB4Mfup6Y5J+goJIfQfpgRKLwe3/BgIx0X9dU29W8g8Jyh sOwtoxs/K8Y6Dm8iULfg09K4um4c3c0NFVgTaAiWDRMWd8Pjyst8woaA3IWa Ktcr3TAVeyh3uhBQ7MjcxFvfjXJ353cJrgS0v95XmW3UDZuqbSetdxOwbHvk kKvWjb0pZoyCPQQ65sb6zRJ3IX7NrKIIfwIDbVZbLQq6IIyo3K4eSUDovbgh 36gL4T1lf+rOEagl0Q59mt+FSbsnZZEXCcRa7/tmotSFeVppCzmXCZz6S1c9 dqATNhWh/cUpBEY3RxeeJ3UiZ9IwweUhgQi/Y/Vbd3TC9JC2tWwhgdJGX0+9 bZ1406L6nfSEwPHxbVa6lp1oeTDhrVNMALMdLp3X7cTk1q8mAxUE0lem5j0c +oq9V+IbrrUSmEHUqihlfoWG6pBS7W8CdPUXSf6THWirSrjqOEngoY9Ug/az A7eCjWa0ThHoc7JbuFvcAfXGvfJ0BQ5M94SVnWNM67i6SYkKB7vdOz+dIHdg 7njm90VLOGB7xHyvjOrAnF475snpHFNasOKpfAea7hB7x1w4kLuboJ88QUOS 7bnui64cCBmBGyNHaFDOK/ka7zF9N/PfHQ3upWH2/kVfHhzgoNpeKZ/yiQal 9qG6Tyc5EPDevxfeoUHh3b3iJVkc7GN/3PbFjAb6JlsH9n0OTCx+s4xMaCgm i4nMXA6ohcdGYwxp2Pt6s7p6IQfftijbumrSUPqcHSFTxsFxEnO5zXg7fLKW WPV84CDNKDQn7GM7yiOLatN+cOD4PTvq/OF2HLOgdM9y4iLgeoP5/ldtoH7u eFbuwoXzm18Wa0raoHl8KPqwKxcjFF+rmUVteFdgZFznwYV+yLhZdU4bNLRu hP/ny4XHk70//JPaQBkLUJae4kLhTX6iT0AblN+pbObncPFsuK1obH4bihz9 ct6OcrFW55tcUtwXjAwsnCtM44F1y27xhpuf8Wq3vXyqLR+ZcTqdqi6tiHaI e0AS8jG11TbkR3UzDHq2d+XHCbBK1n9DiE8TrNbFpmqbC0ELveOaNzb9t+m2 jsm2CyHn01Xu+74BI43J3BMxvdNcHwtlXf2IDAWfiF1LRQhUMFdXC/8ADdar PLlaEXKr1aaOh9ZD8UKM+4awPnxoiVoXFFAHmSc+xVz1fswuXkQ/e7oW4ZnF yeo1/bBjld3OjH6PqpXXlNRCBrBYbdXz9ek1UNsebnpJRQzVrTqecfXVYK76 3B5ZKUZS4EC1tZiKkvtYyvcZxAHrwNf7l1Gxv9hSbfGfQbgxClg5XW/xX1xu DPPpN1hsykiZt7MKz0WL76k4SzBzQc28jH4KrmXH+bJ2SEDKm1F+mk9BwK5B oxduEuBF0CJPFgU6lZUlLl4SUA9mGmi1UZBw/d/6JD8JLq3dYZRXQUGQ5d3h 2ZESfIhb2sm4RoFh7DyHmY8kiO4o3s1cRsGf9ef/1/lYgl7b4YQ2Awq6B3lt j4okKPBefa5hEQU3vF7u/6d02o/X27gKVQqmVuw6GVc5Pc8125wnJYP55fp9 +XYJZjlcUEz7QEb5Fal/e4cE6+Xry9KryUjdeMAkv0uC4I+5mpkUMpwKVpO2 sSS407pxPKeYDPLZ5oaYPgn0hvW3vEknI23V39fdxBKYHV2e+vYmGWHcLHcD iQQdVguy6hPJWO4czKb+lEAQ2FPfFU2Ggizt4Q2pBENw7ONGkkG82njU97cE JSca3w6eJKPyaL7Zmsnp/U+Z2o8dJyNdT3lkakqCKIHVJcUgMv4PwfG6mw== "]]}, Annotation[#, "Charting`Private`Tag$13369#2"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, 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., 0.9999999795918367}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.781664980517737*^9, 3.781665018768952*^9, {3.7816651153439827`*^9, 3.781665141352284*^9}, {3.7816652333505573`*^9, 3.781665264598628*^9}, { 3.781665519493919*^9, 3.781665533802216*^9}},ExpressionUUID->"40235e86-ddf5-4f17-8b16-\ b8aad6e895af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ FractionBox["1", "2"], "-", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}], RowBox[{"1", "/", "2"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"12", " ", "#1"}], "-", RowBox[{"24", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}], "-", RowBox[{"w", "[", "x", "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "+", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"1", "/", "2"}], RowBox[{ FractionBox["1", "2"], "+", FractionBox["1", RowBox[{"2", " ", SqrtBox["2"]}]]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"w", "[", "x", "]"}], "-", RowBox[{"(", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"12", " ", "#1"}], "-", RowBox[{"24", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1"}], "]"}], ")"}]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.781665283549602*^9, 3.781665374732085*^9}},ExpressionUUID->"a593f273-c071-4ca2-b69e-\ 03f1a9baa35c"], Cell[BoxData["0.12500000000000047`"], "Output", CellChangeTimes->{{3.781665371546152*^9, 3.781665375405779*^9}},ExpressionUUID->"b3a61fd4-102e-425a-a916-\ 128c918181d6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.781590994980435*^9, 3.7815909973700247`*^9}},ExpressionUUID->"f1eeb7f0-ea40-4be0-90b8-\ c7e39b194ff1"] }, WindowSize->{Full, Full}, WindowMargins->{{12, Automatic}, {Automatic, 24}}, 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, 146, 3, 35, "Text",ExpressionUUID->"d490ffe7-c309-4a99-ac14-78ff2c208645"], Cell[707, 25, 485, 12, 33, "Input",ExpressionUUID->"c44510d9-6733-4609-ba71-c675317f21ba"], Cell[1195, 39, 218, 6, 30, "Input",ExpressionUUID->"cb619b96-c161-4802-bed4-a2b007164205"], Cell[CellGroupData[{ Cell[1438, 49, 380, 10, 30, "Input",ExpressionUUID->"2ccfdfbc-8f72-46fd-96a0-098709697da5"], Cell[1821, 61, 837, 16, 41, "Message",ExpressionUUID->"0404c00c-212f-408d-be6b-7debdac68efd"], Cell[2661, 79, 489, 15, 51, "Output",ExpressionUUID->"9f0b3d2a-70b4-485e-9025-7623a02302d1"] }, Open ]], Cell[CellGroupData[{ Cell[3187, 99, 317, 9, 30, "Input",ExpressionUUID->"e28ff768-face-4a21-b280-8bd17f831081"], Cell[3507, 110, 4808, 98, 245, "Output",ExpressionUUID->"814f0d18-82a5-4ba9-94dd-a77d5e4fc867"] }, Open ]], Cell[CellGroupData[{ Cell[8352, 213, 321, 9, 30, "Input",ExpressionUUID->"a2f0e048-6690-4af1-b1dc-0eedcefc9d2a"], Cell[8676, 224, 5990, 132, 245, "Output",ExpressionUUID->"249628ad-1ee3-4640-a3c8-412243beb2b6"] }, Open ]], Cell[CellGroupData[{ Cell[14703, 361, 525, 17, 33, "Input",ExpressionUUID->"c4b0f5ed-73f6-4068-8156-26758866c2c5"], Cell[15231, 380, 456, 15, 51, "Output",ExpressionUUID->"4edd53b0-1dce-44fa-b2c4-fae5156d4190"] }, Open ]], Cell[CellGroupData[{ Cell[15724, 400, 523, 16, 48, "Input",ExpressionUUID->"8ddab775-bf0d-4989-abca-2860b2fd39ae"], Cell[16250, 418, 457, 15, 51, "Output",ExpressionUUID->"7d589054-86e9-412a-b306-f994a8ccb36c"] }, Open ]], Cell[CellGroupData[{ Cell[16744, 438, 574, 19, 47, "Input",ExpressionUUID->"90279234-e8cb-432f-aa46-70d795a96148"], Cell[17321, 459, 509, 16, 51, "Output",ExpressionUUID->"02e911c3-0c8d-4e6a-b509-396ba16e14d8"] }, Open ]], Cell[CellGroupData[{ Cell[17867, 480, 371, 12, 42, "Input",ExpressionUUID->"0264f42c-d18a-4b91-aeb7-2b635ca44976"], Cell[18241, 494, 188, 6, 34, "Output",ExpressionUUID->"89289f19-b895-41b0-85b3-fad452f0473e"] }, Open ]], Cell[CellGroupData[{ Cell[18466, 505, 467, 15, 48, "Input",ExpressionUUID->"ecf2a1d7-b54f-40a1-928f-a673c8f1927d"], Cell[18936, 522, 331, 10, 51, "Output",ExpressionUUID->"2c4d327c-ad9c-4579-8e5d-9b08f7fb631c"] }, Open ]], Cell[CellGroupData[{ Cell[19304, 537, 418, 11, 30, "Input",ExpressionUUID->"3da9734f-9b94-4753-b3cc-13be498649c5"], Cell[19725, 550, 15825, 323, 240, "Output",ExpressionUUID->"145f23f2-4814-4477-84f7-d58f43649f48"] }, Open ]], Cell[CellGroupData[{ Cell[35587, 878, 560, 18, 48, "Input",ExpressionUUID->"1d99e774-b514-4608-a985-82622d034cc3"], Cell[36150, 898, 3274, 72, 244, "Output",ExpressionUUID->"12e8300a-8f5a-4b6f-87ee-7cf8f242505a"] }, Open ]], Cell[39439, 973, 144, 3, 35, "Text",ExpressionUUID->"cbc6c3ff-d484-4de0-a452-94340d713b08"], Cell[39586, 978, 526, 14, 45, "Input",ExpressionUUID->"1b58336a-937c-475f-ae35-5db96f9c38ea"], Cell[CellGroupData[{ Cell[40137, 996, 182, 4, 30, "Input",ExpressionUUID->"2936cf37-0b97-4622-8cd3-8b4f944c5544"], Cell[40322, 1002, 130, 2, 34, "Output",ExpressionUUID->"f98ea80c-8937-4c50-b1f4-e288a17fb89e"] }, Open ]], Cell[CellGroupData[{ Cell[40489, 1009, 625, 19, 30, "Input",ExpressionUUID->"2b055375-a070-4943-a590-cc76b65084d3"], Cell[41117, 1030, 194, 5, 34, "Output",ExpressionUUID->"9ec01a3e-f643-4b4c-b336-e9a6d87a5f4a"] }, Open ]], Cell[CellGroupData[{ Cell[41348, 1040, 384, 11, 30, "Input",ExpressionUUID->"7ce29256-873d-46ed-9fda-a2a8751c6e9a"], Cell[41735, 1053, 447, 13, 34, "Output",ExpressionUUID->"b1333048-5307-4bc6-bca2-af2121d24502"] }, Open ]], Cell[42197, 1069, 322, 9, 30, "Input",ExpressionUUID->"67b65d08-f0c5-46fd-aa86-5854fc377f00"], Cell[CellGroupData[{ Cell[42544, 1082, 302, 8, 30, "Input",ExpressionUUID->"8f743abb-00c3-444b-a91e-38d4f13d186f"], Cell[42849, 1092, 19154, 363, 237, "Output",ExpressionUUID->"98c341f2-df2a-4cb3-ac01-988135bb5240"] }, Open ]], Cell[CellGroupData[{ Cell[62040, 1460, 292, 8, 30, "Input",ExpressionUUID->"dfb3856a-ca24-4331-a469-57062cd67d1e"], Cell[62335, 1470, 292, 8, 34, "Output",ExpressionUUID->"926cf922-8640-47e3-858d-77523ef95478"] }, Open ]], Cell[CellGroupData[{ Cell[62664, 1483, 325, 9, 30, "Input",ExpressionUUID->"210a599d-e2a6-46bc-ada2-e4b641e935b6"], Cell[62992, 1494, 269, 8, 34, "Output",ExpressionUUID->"4a514d3d-1153-4472-9b73-5cdba164a1b4"] }, Open ]], Cell[CellGroupData[{ Cell[63298, 1507, 384, 11, 30, "Input",ExpressionUUID->"f26ec3ab-3a4e-4873-b81d-cfeb23f63d4f"], Cell[63685, 1520, 403, 9, 24, "Message",ExpressionUUID->"ebd804b6-2587-478a-a271-8c4f2b71217b"], Cell[64091, 1531, 181, 4, 34, "Output",ExpressionUUID->"711160ea-9c05-4e0b-a3d0-1dfb96f8c4b8"] }, Open ]], Cell[64287, 1538, 145, 3, 35, "Text",ExpressionUUID->"3a23f523-6fa6-4404-8c08-d25df3f2d58e"], Cell[CellGroupData[{ Cell[64457, 1545, 415, 12, 30, "Input",ExpressionUUID->"78e589bb-9edb-4014-95ec-7ce1495d18bd"], Cell[64875, 1559, 174, 3, 34, "Output",ExpressionUUID->"18554f8b-209f-4cc2-8772-8e177ae364bb"] }, Open ]], Cell[CellGroupData[{ Cell[65086, 1567, 461, 13, 30, "Input",ExpressionUUID->"96253383-71f1-40b4-9f6d-e5dfca9ceb2b"], Cell[65550, 1582, 402, 10, 24, "Message",ExpressionUUID->"080d9fc7-b5c6-484a-ae98-0b16b17e1b24"], Cell[65955, 1594, 223, 6, 34, "Output",ExpressionUUID->"b71c66a0-5782-4bf6-8394-bd49b251d5e1"] }, Open ]], Cell[CellGroupData[{ Cell[66215, 1605, 357, 9, 30, "Input",ExpressionUUID->"98748438-cf60-47e8-a951-6b4f07e3e67f"], Cell[66575, 1616, 151, 3, 34, "Output",ExpressionUUID->"46eb0538-5f78-4234-9047-fc92f9f8625f"] }, Open ]], Cell[CellGroupData[{ Cell[66763, 1624, 605, 15, 68, "Input",ExpressionUUID->"264a43d0-ce65-4164-88e2-dbf298d31a70"], Cell[67371, 1641, 194, 3, 34, "Output",ExpressionUUID->"05c66686-c62a-4b3b-ab6f-6a3f6c1c162a"] }, Open ]], Cell[CellGroupData[{ Cell[67602, 1649, 402, 11, 30, "Input",ExpressionUUID->"5472b95e-6702-4719-965b-572c72de035e"], Cell[68007, 1662, 171, 3, 34, "Output",ExpressionUUID->"6be814c2-edeb-47dc-8e4f-a929d2812f4b"] }, Open ]], Cell[CellGroupData[{ Cell[68215, 1670, 583, 12, 30, "Input",ExpressionUUID->"f0da69d8-dbd2-435d-b3cc-5406bcf84574"], Cell[68801, 1684, 246, 4, 34, "Output",ExpressionUUID->"a30598b5-d35d-484f-b43b-0a977e8a5762"] }, Open ]], Cell[CellGroupData[{ Cell[69084, 1693, 202, 4, 30, "Input",ExpressionUUID->"acf88748-a1c6-46a7-a4e5-7492dc44f91e"], Cell[69289, 1699, 146, 3, 34, "Output",ExpressionUUID->"74bd77ee-d307-40f0-aa38-a66520e33bad"] }, Open ]], Cell[CellGroupData[{ Cell[69472, 1707, 199, 6, 68, "Input",ExpressionUUID->"3e351efb-c667-4a72-b487-b14e0a94098b"], Cell[69674, 1715, 145, 2, 34, "Output",ExpressionUUID->"c9d5911f-0def-4d39-8358-d36e82774b31"] }, Open ]], Cell[CellGroupData[{ Cell[69856, 1722, 256, 8, 72, "Input",ExpressionUUID->"89367d56-f056-4988-8ee8-8a5323485bba"], Cell[70115, 1732, 149, 3, 34, "Output",ExpressionUUID->"19fc1b5a-6950-4b58-a594-81a7242698b6"] }, Open ]], Cell[CellGroupData[{ Cell[70301, 1740, 192, 4, 30, "Input",ExpressionUUID->"07c7af9c-01fd-4a60-9c7d-28c4272341d7"], Cell[70496, 1746, 399, 9, 24, "Message",ExpressionUUID->"a90196a1-3d51-4640-a74d-373c9d90c903"], Cell[70898, 1757, 241, 7, 34, "Output",ExpressionUUID->"72007175-62b0-4a3f-9d53-6f89c142c7db"] }, Open ]], Cell[CellGroupData[{ Cell[71176, 1769, 589, 19, 133, "Input",ExpressionUUID->"b5b617c1-6022-4f41-a2fd-d64cdaa0853c"], Cell[71768, 1790, 172, 3, 34, "Output",ExpressionUUID->"198d6061-72f3-45ec-a5bf-cd82e20a32cc"], Cell[71943, 1795, 172, 3, 34, "Output",ExpressionUUID->"1ada53d7-0ad4-4fd3-8232-60140bbaa2ca"] }, Open ]], Cell[CellGroupData[{ Cell[72152, 1803, 340, 9, 30, "Input",ExpressionUUID->"9de337d3-ef1e-465a-ba39-5f81c4925306"], Cell[72495, 1814, 177, 4, 50, "Output",ExpressionUUID->"a60995c0-7438-4406-977f-bf31e6f84fef"] }, Open ]], Cell[CellGroupData[{ Cell[72709, 1823, 320, 9, 30, "Input",ExpressionUUID->"c4969aa6-3b93-48da-a49c-5cc0e1fc9a06"], Cell[73032, 1834, 174, 4, 51, "Output",ExpressionUUID->"56c74884-0e9f-4a41-ac50-b357bc41d956"] }, Open ]], Cell[CellGroupData[{ Cell[73243, 1843, 298, 9, 30, "Input",ExpressionUUID->"27611356-49b0-429f-9783-b6c5dd832946"], Cell[73544, 1854, 151, 4, 51, "Output",ExpressionUUID->"c6714396-69d9-484a-8e6d-f1e60e8391b9"] }, Open ]], Cell[CellGroupData[{ Cell[73732, 1863, 835, 24, 30, "Input",ExpressionUUID->"1af638ca-646e-4f07-8c6f-472616019f7c"], Cell[74570, 1889, 400, 10, 24, "Message",ExpressionUUID->"830655d8-309e-423e-b48f-e1df5a954f31"], Cell[74973, 1901, 295, 8, 34, "Output",ExpressionUUID->"2c3f2ce5-5f02-48d0-a223-773d92a2d2ec"] }, Open ]], Cell[75283, 1912, 146, 3, 35, "Text",ExpressionUUID->"b9625982-8c1d-4420-8025-2c8c77cd606a"], Cell[CellGroupData[{ Cell[75454, 1919, 366, 11, 47, "Input",ExpressionUUID->"0727fa84-cc93-43f2-a8cd-640428941e34"], Cell[75823, 1932, 27236, 512, 240, 14604, 304, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"60b6c5c1-33b7-4388-b994-5cfa01b94d2a"] }, Open ]], Cell[103074, 2447, 276, 8, 47, "Input",ExpressionUUID->"6edaf76f-1d0a-4e8f-b809-c9cef2cfb94b"], Cell[CellGroupData[{ Cell[103375, 2459, 271, 8, 30, "Input",ExpressionUUID->"76f9e9f6-835f-4c8b-884f-154faac6c24e"], Cell[103649, 2469, 348, 11, 50, "Output",ExpressionUUID->"9ddf05d2-2f1c-418d-992d-6073c364aee3"] }, Open ]], Cell[104012, 2483, 361, 8, 30, "Input",ExpressionUUID->"93e280d6-1b99-4330-ae03-03d4fe63bb30"], Cell[104376, 2493, 325, 9, 45, "Input",ExpressionUUID->"756c6d08-42c3-46d4-9b07-bdd43de61efa"], Cell[CellGroupData[{ Cell[104726, 2506, 271, 8, 30, "Input",ExpressionUUID->"5cc3c041-f19a-4d29-aff2-c873bf424d4f"], Cell[105000, 2516, 329, 11, 48, "Output",ExpressionUUID->"49a4d1c5-128e-4b8c-8839-1979449f4688"] }, Open ]], Cell[CellGroupData[{ Cell[105366, 2532, 647, 18, 47, "Input",ExpressionUUID->"c55af176-eda2-47d5-985a-dd01def1e8e6"], Cell[106016, 2552, 255, 4, 34, "Output",ExpressionUUID->"ac094fae-2e32-4c6a-b4d6-5bd4ee9ab37c"] }, Open ]], Cell[106286, 2559, 328, 10, 46, "Input",ExpressionUUID->"a8098665-0cd6-454a-a171-e38004957a96"], Cell[CellGroupData[{ Cell[106639, 2573, 275, 8, 30, "Input",ExpressionUUID->"6c89bcad-28fb-4a83-a227-741655acdc23"], Cell[106917, 2583, 405, 13, 49, "Output",ExpressionUUID->"ce928554-a805-41d1-b4aa-65b89f45b6aa"] }, Open ]], Cell[CellGroupData[{ Cell[107359, 2601, 475, 14, 46, "Input",ExpressionUUID->"b9898440-e9bf-4bb3-a1fc-64c370c129a0"], Cell[107837, 2617, 593, 17, 53, "Output",ExpressionUUID->"5bd0de5e-3a9f-48a2-9a83-13c380f7309c"] }, Open ]], Cell[108445, 2637, 421, 10, 30, "Input",ExpressionUUID->"ca03ed9a-06f4-48f6-8259-991f83d52d66"], Cell[108869, 2649, 326, 10, 47, "Input",ExpressionUUID->"9d3d894b-c92f-40e5-b051-f77b838f3877"], Cell[CellGroupData[{ Cell[109220, 2663, 271, 8, 30, "Input",ExpressionUUID->"19898852-31f4-44ca-ba12-bdc8a56d881e"], Cell[109494, 2673, 356, 12, 51, "Output",ExpressionUUID->"0886cbb9-7c26-483b-9ed4-373f3b5e75e5"] }, Open ]], Cell[CellGroupData[{ Cell[109887, 2690, 424, 13, 48, "Input",ExpressionUUID->"a1485865-4bea-4f07-b34d-3d099b5aecaf"], Cell[110314, 2705, 453, 15, 53, "Output",ExpressionUUID->"f5ce859d-b563-4e53-9a88-0c55f9aebda4"] }, Open ]], Cell[110782, 2723, 263, 7, 30, "Input",ExpressionUUID->"8e8576ad-51c5-4183-952e-690ef0e24fbe"], Cell[111048, 2732, 380, 12, 30, "Input",ExpressionUUID->"8108317e-efad-403f-a190-b70ab7d3dfd3"], Cell[CellGroupData[{ Cell[111453, 2748, 343, 9, 30, "Input",ExpressionUUID->"9f1405ff-b693-43eb-b78d-25f1e44c86f6"], Cell[111799, 2759, 1842, 59, 60, "Output",ExpressionUUID->"72d1a40f-5ee7-4488-b7ff-b17ca7aa5606"] }, Open ]], Cell[113656, 2821, 640, 19, 33, "Input",ExpressionUUID->"817ec0df-cc5d-47fb-afdb-f94518266d10"], Cell[114299, 2842, 686, 23, 47, InheritFromParent,ExpressionUUID->"bb33b2d6-2dad-40c8-a2cd-a736bf4675fe"], Cell[CellGroupData[{ Cell[115010, 2869, 697, 24, 47, InheritFromParent,ExpressionUUID->"d29a5257-dc7f-4c30-94e6-f01eda05f951"], Cell[115710, 2895, 620, 22, 54, "Output",ExpressionUUID->"c986422b-9b3e-4566-b68c-8558fa4a9264"] }, Open ]], Cell[CellGroupData[{ Cell[116367, 2922, 520, 15, 73, "Input",ExpressionUUID->"14f3179c-bec3-4de9-8c3e-c1d18b943390"], Cell[116890, 2939, 152, 4, 50, "Output",ExpressionUUID->"d5186aaf-c2cf-4f86-941b-2e2ef504fbb2"] }, Open ]], Cell[CellGroupData[{ Cell[117079, 2948, 458, 16, 47, InheritFromParent,ExpressionUUID->"d2470dc8-0de4-4d2c-af3b-ddd3739a609f"], Cell[117540, 2966, 232, 8, 54, "Output",ExpressionUUID->"bc30e693-2204-44da-9c97-31aa35f00b73"] }, Open ]], Cell[CellGroupData[{ Cell[117809, 2979, 458, 16, 47, InheritFromParent,ExpressionUUID->"5e647aed-e200-4a8a-8eeb-d2defae3605a"], Cell[118270, 2997, 234, 8, 54, "Output",ExpressionUUID->"b9218dd7-b9c2-4e84-a9d4-10abb2d4450a"] }, Open ]], Cell[118519, 3008, 1074, 37, 40, "Input",ExpressionUUID->"4144cdf5-2043-408d-a7c3-6689d13eaa73"], Cell[CellGroupData[{ Cell[119618, 3049, 952, 27, 33, "Input",ExpressionUUID->"44a18e0d-5691-47b2-b9cc-ecb532798076"], Cell[120573, 3078, 14183, 253, 256, "Output",ExpressionUUID->"40235e86-ddf5-4f17-8b16-b8aad6e895af"] }, Open ]], Cell[CellGroupData[{ Cell[134793, 3336, 1711, 55, 62, "Input",ExpressionUUID->"a593f273-c071-4ca2-b69e-03f1a9baa35c"], Cell[136507, 3393, 173, 3, 34, "Output",ExpressionUUID->"b3a61fd4-102e-425a-a916-128c918181d6"] }, Open ]], Cell[136695, 3399, 154, 3, 30, "Input",ExpressionUUID->"f1eeb7f0-ea40-4be0-90b8-c7e39b194ff1"] } ] *)