(* 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[ 35208, 859] NotebookOptionsPosition[ 31374, 785] NotebookOutlinePosition[ 31736, 801] CellTagsIndexPosition[ 31693, 798] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"4", "*", SuperscriptBox["2", "2"]}], "-", SuperscriptBox["x", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["3"]}], "*", "b"}], ",", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7793219270763493`*^9, 3.7793219611154013`*^9}, { 3.779321994112361*^9, 3.779322019503324*^9}, {3.7793244162924013`*^9, 3.779324460776144*^9}},ExpressionUUID->"95990a1f-7a9b-49a3-87bf-\ 96363a625b03"], Cell[BoxData[ TemplateBox[{ "General","prng", "\"Value of option PlotRange -> \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{RowBox[{RowBox[{\\\"-\\\", SqrtBox[\\\"3\\\"]}], \\\" \\\", \ \\\"b\\\"}], \\\",\\\", \\\"0\\\"}], \\\"}\\\"}]\\) is not All, Full, \ Automatic, a positive machine number, or an appropriate list of range \ specifications.\"",2,133,14,33084156952323503271,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.779324442797554*^9, 3.779324461614851*^9}},ExpressionUUID->"cf5b47f1-f78d-470a-a74c-\ 2e0403141b87"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlWk41fkbxs85lnM4yxcZCUnSohAzEjLz+6mQwhDZ28TUZJ8jTQiRJJmx VIxSjBCyTIvQ8n1SU0IiS4zskjUc51jOsfz9XzzXfd3X57rf3C+ee72H/0Ev GoVCSV25/+t4Xq6G2RICM9cPURLMxzjbuGPwXyGCQavfpCIsq7Dugxm5lkcI iC6q0QerXvxMU44Y8EPgFilnZbzwFVtmaXtPb0GQ5P/D4Qb1cdyqaJlK6+fA txcBs7ynk/hEoucr2QwOnDQSBP76Nw9P0iMn1Jw4oOx2hjvkxMdhETeVdWU5 IKPZ0jj0VYClZsssiFo25D2evMZzmcU3/D5ybWLYIPjrHm/fwzmsPjh+5zDB hutLvfn/zs5jkxaNudCHLIhaHddhbL2A31mRGvG+LJjYm6R4wGMRO752s03f zIK/8zQnlk4v4YCHyffKbzLhRfz6cxQdCmQnUVwE0dLQd+2Ip+oIFSKr2p+f IKRBd7hlimpDgyPTD9Q/CqXg4ds0RnMxDZQOeY0VB0rBeYmrcsKTYpCoWBNx 6igDxOi6Fm7PxMHPMnugVYkByU5DJcNMCbAKCbM0a6XDLN0oiusiAfTPOqvU remgVjofUP9NAsLvpOR2GEtCzdw1pzvidHBv8GHun5EAsWy3R/LmdDCmmgeU /yMB/erGiqxLdBB4zBld3yIBStVxJ0qpDPDZdPi9jYI4jKyiyvCHGLDfyeD7 541ioJGCHtxdJwVbLqPUbQliQCu+UrrxkBT0D788xhAXA3lu7PayZ1LgWrSJ /3KKCuKczRdrwqXBsGvZWbeICk+mZv0r70uDAmp/fvsUFa46+hTdb5eGxoD4 2NBuCqxGhfmFukxIPNWz43T6Mk5Wk7FPbGKCVU3ysrnsMjY8d/cnWSET6Fpm 7zZcXsKHjh6yLFvHgvCJfPfOM4v45MUE25BTLPAO5kbb2omw7tGLXNNJFmxq 22itXS3E63Diy10ybOgzalOQJoRYgvF0InA7G5wXTQpeac1jlqgv46Y3G8wv SjYaMGaxXVNgs3oHG2iD5emrImYwRZ8btEvAhucW3p6TAgH2NkqjZnE4oM9s mM3v5+OuNZv6XQgOqCf/pboW8/CaPf/xS9I4oBXs8LPrVh7me/xYplDCAQNX FJl6fQp3jqa5VbzmgKV6TK+szyQOtej4p3ycAzmsSI3bxRM4ycLSU5GKoLxZ EKMY8w039vGWKlYh6Pbs3cf+fgxHugt1qw0Q8LScCmIZo5hvmmq60wKBpKCO Sesextn0Tu1xRwRaMeX1M/FfcYW7XZ9eEALSWkc30GMQt74JLai6gMD+u7tJ o4ZfsGbIks3tPxCE5Pzp0POlD7d4LqQY5SJI8JUoc33Wi1VVyt8ISxFk7ghd 3ZLcg238PgmlniI4Keqduv2xC8cUBLaffI3gj/j3j1IiPuO5L4bL8u8RPFau OHtZ6z+8tKd4QbYFwefCu8bn2z9hmSY7x6OfEdBMEhcDL7Vgc436i4t9CDTr QuGXH5rwcbxOMDaEwNb9ZLRbTwNuTSpn6HxDMNaWczVT6T1e4t757iUPgfF8 mNyVoGoc9jn+l9wZBLFrHNK49a9wZeuicdc8gntcR5NK2xc4w+bg21MLCPY8 Et+XIP4YR0OTvvnKn3o67JUHAXlY3fVtVvAyAiiUEqUfj8ZfrwevF674ss1V 9oMRNwk55x3PGla8veXuuE1apQQ12dNfuJIvZ1w7b/97BZHjG6h9dhEBGuAZ kh4viXhKY6e5CEHVK+WHjow3hFH0nPuvcwiCsvdq+xbXELr0g2FdfASbo33z oh0+EMrZ2rTcSQS+erUy1ouNhIl0ST4eRWCe1W3tbNtMGFx4or5tEIGaLP/K iexWom5dnexQN4L5SEa130wbIWk1h2baEHycVJEIsewguM73CxwaEdw/prc7 5lYnIdqWdkLsHYKYBrOIxIluIrz1QikVEKg4Pwlr2t9H1BbhzJFCBIxEU2WX oH4ix/kIrykTgeBtbUVXxgCxZ6+qvvR1BPU7e2aGJwcJq4MRTq6hK/35n77u rzREPBkPivjNd6XvPP4Pgj3DxPSt9A3NRxBcWC0VSEkdJZ4InJr8CQR+P6eg SzBGYH7WwzwdBK6xa4uZI+PE7tbH5RprEaSL0s7Eq04SkqPf6Q7PcoDrXfTg RiCPUI/7bf2Zuxy4fetHps8Cj6DJ2nB2/cmB6vfvT5jGThNDqzjyDuc4oKr7 TX7sFp9ox5lR5w6scL7OWdPqGYK1O5Hn+ZUN0xvxBwX7WaJyLSGfWscGVaef t4x1zhLrcwyfcv5hA7fCv/3G9BxxdYffsTdnV3h46a4xVRFxYJgerrjAAssS 8trLfBExXTr3zrCDBUE9DWM39BcI74r88vgKFrzbPZVhun+ROCxSZLzgrnD6 95TUM8vE6UdrZxY6mWCrclzLgEIhf1fYkuVWxoQv+vltmWYU8sRglt/HBCbI /GKkF9xAIUfmjLfNGTHBq9qlT22QSvqKm8nmXZIGYU/WH/HbaORxvcJP+52k IXF+2HgmgEZyTEW3ejZJQ+XWkJRaEY30udlnVFMlBTIJ6XuDZcVJh0Px2R1j DMjJ6ZvscRQnN2g8kXd6xADjF1szDtwSJ7cPhRvEhzDAa6JSoLZZggz3zvh1 jsaASruO3FoTSVLT7u+tQKOD7ekN9gZRkmRC1ubmzheS8CXKeznzrSQpVHJc 7XxOEmQeiZyCD9LJ5u28wg3DEuCloCK1/hSDPDsjU6vwQByEOp6P44sYpF0/ 1KkeFYdEi/vHZ3gMck2w3GSXlDhU/m5SWXteivRzYepxnMVApsPdOzhFmrwd 77JToYkK4Q/UBkq7pMkpA+Ub3ceoMBY34D6qySSF2vWvnUYo8M7Qx+YYMMmj lknBdzpXdkNG9206k0VedmWXvGlcwrlfp4kWRxYp58b1iKtYxFE3QvX2j7PI j3usd3YdFuFJX6LgoiGb1M2S/ClOQYiPmIltwNFsMpIflv6scg7Xqby9OV/P Jq0PN6n0m8/iXfwr8vpKHLIqYiRNs0yAC2ptEvy8OGRRbOzWGiofK2bLSeaX ckhbemxJ+ToevhTSGt4v4pDNd7pTHy9PYL5d+uxaC0Tmqt2vcpMexR6aRwKc kxHZ20ZknO8ewA0U9eHkTkReZb/Z1xv4Cbs+XWXku4xIJf/wjf8Z38P/A+Nw tno= "]]}, Annotation[#, "Charting`Private`Tag$67686#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->{{-3.9991553176268924`, 3.9997200450083428`}, {-3.9999888052286567`, 0.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.779321961632372*^9, {3.7793219984829617`*^9, 3.779322019975161*^9}, { 3.779324442805361*^9, 3.779324461650537*^9}},ExpressionUUID->"b14569c4-eb63-4d70-92cc-\ 72ba10d330f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"4", "*", SuperscriptBox["b", "2"]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["3"]}], "*", "b"}], ")"}], "2"]}]]}]], "Input", CellChangeTimes->{{3.779322036748988*^9, 3.779322082090242*^9}},ExpressionUUID->"daaae490-ee80-43ab-9bb8-\ 902f81d3abfc"], Cell[BoxData[ RowBox[{"-", SqrtBox[ SuperscriptBox["b", "2"]]}]], "Output", CellChangeTimes->{ 3.779322085399646*^9},ExpressionUUID->"35106257-832c-40e3-bd4a-\ 844c36606288"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["x", "4"]}], "+", RowBox[{"2", "*", SuperscriptBox["x", "3"]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.779322176383019*^9, 3.7793222353387957`*^9}},ExpressionUUID->"0ffd4770-7765-479f-beca-\ 2a8edcccf114"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtmnc41+/3x+2drSSyRURWlHG/skllhRCyk5A9i0+ykx1FWUmylazcd0aU LTN7z2R7e1tfv+v6/XPf1+N6nnNe53XOfZ379ceL28pFz5aIgIDgxcnyf3vg /M2N42Mm1PLGvfrYKArN+Z/eHj5gQo+/0LvSa0ShW/Tju1/3mFDGTwYmQdko xHXV9dBlkwkluaiedWKNQvWR8RQTc0yoOPzjqtpQJKIQHTiP2plQKgM1gZpZ JEr0sLwR9IYJDbCaTpraR6BPhO45BDJMqO5jb5FPXBgitVWXOHuPET1jPHBb +fsMMQ02OWXFMaAx9eAI2r9BSK/htbXQL3rUM3u5ZCcnAPn/U3CKnaZDPXLn qoTLvFGl92vH4tu06M+HsiWiInd0K/4O11EqDaLfWPnYPeiC1NO/3dJYoUIT hUM1p2MfoNxm3353U0rE99XqG0miDUqV8FL+aECJzJVnT/ME2aDodLeSsZuU iEH9VPlNJxvk5v4wUhOjRLJH9imdKjZIgfOeIic/JYp3MjIN3LFGvV5Y7q9V CkRA/2Xez8waEQmQe3H/R4Emg/6mdEpYIfOQRJbOPHKkfpXb2ZXcEnWAHXKf LHIkOuqhRrZmgcC+EZ4rjRzhF76WX++2QFxu58bdXpIjQXZJZ3yCBZqyyMo7 7UWOikiGlNzYLJCdXImcuTI5Kkh9+thN2Bw5b7Te/ztKhqIjLJIe3TNDTyyJ i6iZyFDaUpMK+7ExKulUj+mlIUPxyUVtm7PGaEox2jmdjAw9CT1gGmszRmoc LGJieFK03C5Yu/TaGNH+ESjRmyRFHB8m3aZljNFbfa2y1GJS9I1jJ1jL0whB tbiKC9qkqOON35/iwzuI4BInVH5OgggdS8CMkj4KOH3d/PkTEuTMfV3YSkQf 7R5bHf7wJkFL86qRmyz6aLUnV07LkQRp9ZR46SzqoWEf0Uqd2yQogOVP33qs HqpoVCi9d5YEJSz94fg5rYsemZllexcSo29mH3YCX+mgP1GpYZ/6iFCrenSq 0QNt9LuJq8CykwgZm0Rn/FLXRm3HH7pYfhKhpU9G8yYC2qjOveJsUC0R6u9q XO+ZvoGyTH9/MsgmQpe/CgtxWt5AjsKnug5diZBGSU/+WXMttP8riFWHhggR nh8R43PRQFskFAqkZEQorSH5BqeuBlpVfHm/+pgQRV4IeSMtqYEmytLz+TYJ kUDv11flu+qo8XW1/N4QIXqS2oJtBqujaMcty6wPhOhhQZe5+xs1xE7l8HFL iRDx52WRUkypIPO6tmgeeUIkdT9E7VSTCsp0E3fVkSZEo6/JhC/nqSCBYfyV gguEyG+UIrbDWQWJFbxotKYhRDl9l7IfHiojpVvl4z19BOh6MkMbC5cyehB/ xFLqQIBwy7O2WX7XUYGa9d7YfQJ0s/mO2ZX719EqvnmExpQAsS+aR82qX0du 1nHZDjcJUNW/EPUklusoQIpPnEuCAPkV+F2QLcPQ+cKElPO7x3Cm0FJ4ZwKg h9IXSYfZj6HzauTSHIECciOt+uBFdwyNpf68tu6TR3596lqMRMdQs/T9Dfp8 eRTpaftSc/4IisXa8+/py6P8LxlnK0uPYK+qwD5JvhxalD4jmqR2BIu0S63m za8h+yskRrddD+HUc0/+5SUZ5EyWsLdkdQgnzM+oCDTJIK9+7rTQO4fwZY2p 2It3MijUC0x+u3YILxLYLYwayKDcCr+HIqSHEGeqdTvs+xU0e2X9KeXrA7gv qPZoNEsaWcuM5TU07MP72ozyX0IkkV2ejKHa132o5tGhbmoniRzPxhH/zN+H RIPLq7waksh1X9m8I24fJkV4f2SnkUQB8CPTkMU+5GIhovyYJIES1T2frO7j Yd5UmvGZYnH0w4jG4KwUHvKVkIVd2RZDP1tsCdMu4GG+pgpvCxJDbVdh0flz eJhaRV+TEi2Ges65UfIR4eHpL6lsO3xiaHx8oE60aw/GaAhrpRmLIpx9tpCK 0x6c9kfCTq0i6KLPtWPnHBxMS9vIbh0VQmj01sXpZBzMbbYyYSkUQobK1neM InDws1wdT1aAEPqPNvoTcMbBkDSRg2fsQmgoZ9SIXhYH53KJzawsBFF4d1BJ aesu5LF2fGy4LoDmLjbf39rYgTWjpvShKnwoIHY42mF2B4ZY0JN+P8eHGHf+ fR0Z2IHJWpY9Mpu8SPE7K21T7Q60ROynB7N4UZKRY3VS6A5U2/fkGSXhRSoh p5hk2Hbg2QiS7Jbf3ChzVL/R9/o2lJAxW9KU4UQSMxL4XqltKDg35WyCO48a lxguXxbchmwmSXeaq86jud3ON3O023DuNPnaZ4Xz6CKjtrv+yBZMxdH/69Pk QGVqKjyXvLeg1rVL2IzbOdRYLBU0UbAJRwysxKZJWdGdCqYKuYxNqHEgaj/c fQbN1W4sJydswgnTrgD+t2cQxa8So5t+m5A6pQdfKHMG3ZwREatW34Sb3zpM wpxPo35W/rGEqQ040Kz5l3mZGc0Hs8irs27A7e8d5x9xMCKqwOJ/CVQb0Nzq 9KvAfwxI1Ecze+JgHa7ulwVOfWdAXs6BVH6T69DgDi9tnj0DIjOdHSzIX4ep ep9jz3ylR3xSXzwZFdah9jPWIbtftEhD7LaQhdg65PvD/6rahxY5XVwc+cS9 Dhcu2fB8ukCLPnNxqKiSrUM/obJ8i7BTSPnUc0afzjUYLTgyQXiLBlnNGRSP 3l+D8c/MBMN2KVHo5KrVRYM12PzNt/52MSXKHwk/7a22BrvSQ4M/2lOijZ7a QHrhNaiS6B9/6g8FInqqmRK68A/esa9lDGkiR0B8sVv31D/IFZXiFV1BiqqT BFUXDP/C+tlUNbEDQkRhOm9NKP8XEprm/K5vIkSGXLn/sXH/hXv3JA/bXhKi jXxepL28ApUWdjOV+AmREDovV/p0BX590/Ap8w4BSlliFvfLW4ZGaSWx6q8O 4Vzx79sJL5ahWqbyWIHsIZTyjHcucFuGa/Sxact/DmDnMV3BmPwy1PD2S1jj PoBkLNQXlLuXIKvzy8KdKjz0BIQcNPhF+Eh+nnOBHgfrSZAc//gijFIIrzaA u5D+1xMTxcZF6Hbt/rcw511YYHDwyjVmEbYe/daX79yBMw92Gft4FmF7mYUh TN2Geol/Kd7eWIAhKSG1wnqb8PLi0JZY+hx0+bzq5B+3Cj3WLgmdCZmDA6tc 5x14V2HlbvC9I8c5WDEbuOZS8RdeJ7v4o012DipyO5P8Gl+Berx+rx70zsI3 66V+3mAZet5ju5ZNPQtlaYPmZMQXYLWNs3PkxgxcqVWypuidh0cP67MeD81A 98rS8kHveRjq50iNfZiBRzmrvG71czDlVfXIiNIMdJJa6rxrPQuru02envab hg5ST59G90zBo8Gi8kPLaSikzOOeGDIFlSaIFmbUp2Ew5TO6/2SmYOtqvk45 yzQMq/cfJ8+YhCPU+9w6pVPQMaTVLs5/Ah6rvmmMWJiErsFlmE/FCFS5+Q/n 2jkJq/4zqKuXHoHhBsqXjCsmoVPg54DcimFIb72cJBAyCe2NNkIvffsDeYLk 7Bs4J6GYkeX4zMggVKkepjw0nIBFJp/+M7bpg0X57682y01AgbBJT/rNXsj6 xuVBHNcEDKINJ3n8rBf275LF3+gdh+rpL7k4Pv6G/P6G9On4MfiPnelaNXnP yZxfchFvHIMu3veHbmd3wzb5J51NL8agg2RwnSvWDT2O3sesco1BOtejJdWn XbA+eJsGUx+F/PYyM2UcHTDZKsKpl34UirwwevvTqR0+UOZoc/gzAlPU7v36 VtcG6UlVo+IejcARlkdWPA9boUV4IuV0wjCUx2RNzs62wIMYSbLQiSG4lUIu V2XUCLtcmm3Z8oegrgYW+qC7AWbrmDYVuQ/BRk+7xoibDVCL8VnIANkQfFRy O+lYux6mJvUQCV0ahL9ZvtygcEDQycvO6tvOANTnPR9xvAAhZoT/rosGYOkN mWRbMggXWHmC/fQHYFZtfZT1rW/wStrj41bffqhoTGT9naEaUgWSWlgq98OE 6U5D4ptVcPReat0WTT+MN4mpM4yuhCGc3wM5Mvog7b1wEoIzX+HvLPoD5x+9 8Ity9TSh6WeY+yzHlDi2Fz6PC0nx+FIO/Wxka17d7YUxNO3yyUzlkEfA0g+t /Iarb4kJKv6UQtePxTgGpt+QVqbgp5hAMbxM6/xMaaIHep5JknTkL4LrbiK0 7oU9cLHa9v3Di4XQTf4jb696D8QCVny9VT9Bz86sW8kB3VA0pIwo69sHeEXq /tAPzW7IeDlIiXgxF+6kcNrsnu6GDXLmIklnc6G3VZqvcWkX/M1YcpUwMgdu LglrSrd1Qk1rLTL8+0zo8TnPPNmuEzL8rBsZx2XAnUB+j12CTihDOdRgo5MB cfSc76qkO6DdbakGCra30PfPm89sXe0n96Pnpd3pNIjPZv3l79gO5eBiWVLF G3hwhXFb4V0bjGMcKDD0TIWBBC+p3l1tg3TUFrcl76fAo5/UXAS9rXDRQeaB 1J1XkPAe6Y16ilZYqBNAxHYnCZI9w2Wouf2ELrKRXF9K4mCYtmfFB5qfUH2z q3lnKBZSnN5opfjQAt8/VWvSpoqFVB+Xd34NN0Pr9jen7h9Hwyg3BxoRr2Yo bBHEiguPgjTys9wv6Jthm7ZKXxFnJKTrHNO+rfoDbrTtlHi6h8HYFFOrkvEm WJ0/8pn4cihktBr0ZvBrgji/WKlCXAhk3u7O+l3UCDvum1bqFv4HWc814YxY G+CpL6//9V0NhKkz12mryuphjQ9JX5WdP2QrquNlu1kPFYt0PSY++EKO65W3 RoK/w38N8szktl7wLZW0jQL7d3j0m06EYcIDcvaW+r6tQDD3y2URt0fuULnD UPN7P4RPjoYz9b+5QrX7Oh7PqCHMnaOfazp0hhpbmu9UsTrIk/+iuT3TCWqz KWz//FgLGYxyeyY1HOCtwitc0WM10OyMpTyLlh3UxS7fuMVUA0UsfG2DHGyg oR1vZk9AFZxNFI+/u2cJIx+7h8d/qYT6r56mck2bw28BDS56q18ha/zpzFYS M7gWxmTEeOEr5Bsx0CM1vAv5EqwVeywqIClkwnH1GULjt+X88SlfYBP1EL1H kAGM+kh8Sq/7M9xmG7hlaKgHN2D2cLdSORRmuEFts6MNBVo36+P8y2CEv9uv 1hea8G6/cr7u51IIm1hd5B6pwejJhDiGvyXw4oqFlU+cMkQr0z7d/CVQCF/v ob2LwYV/9ojnWxFUYRappZZRgLfJKF5miRZCiiga/9VtWVjBnnePJ+MTTPkp KfmPTxqel9QQyWLIh3hzS9T4TRw+11zAcz/LgzFrpK/veVyCKxbhPzO3cqHR 94Cc5QuCUN9LMIXb7j1sI+oU64/ghdXRLXaZA9lQKIylJ+scJ+TOdpDm1syC y2kq0mq3WWF4FQVJZnUGrDIYNFZNZoRj73TfXzd+Cz0eRMfMlFDDwrY4pety b2CVV0pUyD4x9N/rHsfOp8D7gQ26MlX7dZoCjIEYYRJsUKSpVNLcqDujr8eG zcTBD+nd2K24ubrWYz6XpzEvICy2Ev9iO1TncPf9xycGYfCgYFHZaL2ljqSc fyaQLRje+Pn6p2BGeR12VlsBjzyhTX7bzKpgYt1aSqrNeqoVBM+FG14I360L IEpsUpPVBDGs2vp6unSKoq+tm5mvuABuZzOr+KxAxbGzpavUdAHAmMQr6uvT 94r6koO1oddDQGAX/WWCC0ixYsjovzD/SBDflJgrTtqjeAot8zaaxAID49mV x5sTiiDhU2ijdwJ4UreSwRG9ovjY7uFiY2IyuKv4+nK+wo5i1lVh7abSVEAg qi9RaEoAemmWi5o60kC3R8Z8CQk5IJvIZ/ix/A5Un9vdrFahA2l3pa9Zh2QC nkuNHWLZzEBaOenhNGM2+CznZ7KTygY6RLbTrDNzgGWZnu2fdi5gf/pOx7RY Lnj1iOjn+zE+QEDw5di67gNoK1DfqokQAqmLzOIz2h+BYFzV7IMhUSDx28PK ZjgfDD5Vfbr9UAK01vYmzDwoAJk6qsGfm6WBTa5Ukw2uENx4zEBzFHIVHL5M 3JkJLQZceBGbvjwF0CqPTyiLLAEFbp+fsrFfByni+QUbuqXgJbmbEnmaMrAR MGmSOFsGal4/t3tvqAYun6Mac5soA1IBbWs2tzTBIV31TtmHcrC18utJ6XNt 8IvEkW7T+TOYO1+gtnF0GyTvnRWUvPIFeLFlUquO6QKr1Z+Y++EX4MJNXPBw Qh+ITvveLW+sAL8EoknYyA1Bc9tQpKR+JSiL3Rqu+GECHHz+NJsKVwEKumfb bmn3AAXfMEkIcTVQvyz31kzXEmj5jzzpLa8BD1i5nQyyrcGSwGjNQVQtiBCg cUh2twVRPaM4PptvoE3uAwfO3B60CY27eTJDUMzcFT8T8RA49Y0Xp69AkKc2 4dr16xEIxVx3rKwQkC/q4elkdgUXVlwlo659B3Ok7O9bMt0A7vq67rvc7yBz qKmMlMADtLx67FrOWA+kLul8CHf2BA7KboXDS/Xg9fiT9oJAHyCbutH6z7AB iLM4mG6c9wMU/9yWiBsawCWfmvAf3f7g42v3CyJvGkHiOvsZ00dPgd/apipG 3gQ0BnxGzT4FAS01DxsD9yZAsjn2/fHHYLC07pEZcOMHKFQ317erfwaq1bdh 7NcfoKnmHEv8aAiITPccy+FtBr7W6fE1RKFAWNPrXPt+M/hLVFz55mE4cMrw TuIo+AnK2jnOh9W8API7u+XirL/AU4sr/akXXwIabZ8e1ZATRsyCNnqxoHDX h87ZrBWsWUtcCBqNA6u3/CLqaNoBUdilOsWrSaAuB/+hx6cd5AXe3KfgTAYx eL8fczPtoDXiweI01SsglutPTPetA5Sa+WVSbqeAyid1dcVXusC+S6ZeNXM6 yPh41F7l1AWOxQYVS0XegvBexdGGrC5Q4cbhK3bjHTC+CPcHaLsB22xaw0F7 Btjrg7IE890gwtcjkVM9G1y79L1M59VvkMgrXWwzkQeke/uT637+Bm/pG/P/ S/4ILvuv+Ikc/AZhswcPO2/nA4GfZ5Qp7veCdGu5LbK2T4DJ1vk3vNgHFpJs CO2Wi8BK2rkt0bp+cKM373r5TBmYVxYfTFvrB2jMb1TUpBxMLanVUvEOAFqP F8z3u8vBkKxbyFzYABgbhWP/Gj+DH70tzG91B8HNBL33U6gCvKPxkj41OwTw xOHFZqdqwOvyqLP+Z/4Az/0Bms23NSDZJPNwQfMPYDO0ObwjUQui89qaGov+ gKnp+z3Pzb8BHxVewwCfYbBWyT+a1waBXkCX1zL1KCi8RKZ3L6geEHmxjNic nQBrdfx3aexagIllfk+l1AS4glF7rPS2gDIt8JNGZwJofWOPm1H5Caw4H1R8 Dp0AAwpmL9gFf4H6ltpYkq0JUO1HqZW33wqenbNRzemYBA4lLui4vxOQfC8r mn42DQpiYzw3L/UCs0/q72XeTYOqDJbWZK9e8Dlp5E1U9fRJnQvxdbAX2DiS RUiuT4N4vOmlNP0+0MRkYv3MfAZEczExBQb3g1A7Qlbeq7Ogq5sNb789CMhp dIKtVucAwVy2f/nVMWB8wQRdoZwHGFGqqlLsGMhXsjmm4psHv5PMVhTmx8At X5/A8rvz4EhI5ZNP8jhInsvwJWmaB+KPMrM2AiaAwPf1x7lvFsCIfMzG38VJ oOqVYLWksQRofzKH9M3NgGcT/cpu2X+B8RNZFvmby2Cs6sYjn9q/4CZ35o2I J8vgWgJKftL3Fzw/N7Y+W7wM1lTzFyPJV8Hm7z9MrYwrwPxT4Mvsh6vAhFjq rOTQCrjmxTfcK/kPPCLI7Vu0XwV7pFerzlmtgQTtDA22xjWQ67bZ/tZ5DXSU 1X1jGl0DBuOFU9z+a+AcNdc65c4aKKnkoRFMXAM2apOnli+sA7uHNBZSP9aA C7OTuWfUOujtGie5eXEd2NNMBejpboCSN6E6TzbWQesol5pe3yZoZQqdpyPY AKkS/uLn/22CuajnTzJPbQDeFu7SfootwB4QUtAouAGKJAO4qeW3QLjZfxTU Fhvg3TW68MeZW8CS4wl61boBDu+qrhbbbwP/pEAjoaENMM6/8e7o6TZIPhW4 Wj23ASJEYswup2yDtkN/9jHCTTAoz+J7rWUbyI75+vDJboI0W6/3AwI7gP6d 5+XSnE1Akhbpmju6A4TPeDYrlW2Covs8wUObO0DtpYd5L9wETwqLtWcpd0HA U/fo3T+b4L+jENsQ6V2wYPF4QYFhC6TpvMtrj9wFiOtRxq/ALfB2mUxhQwQH hlOcZMyitkCGktGwOYYDO/ROHX9TtoBbLdn5VH0cECF8eED/eQt0MFUUu/vi QMqkg7HR0hbgWdIoL6jHAZcsG/oZw21weoz7QoTWHojxTU2Lsd4G4Vz0FY53 90CRTofgVdeT9/qPivW0wx5YPZK5HhOxDXp2yvuaQ/aAkym1m2ztNqBw6Xj9 vGYPREtgR1MndfDjlxDKadkDBZSekS/6TvRnjwPC+vbA8texrKnVbSASfnU8 dXUPODKX/Y7m3gHXXvz1GObAg8jlOQsZ0R1Ae6x9ilYID/Lrz61MXtsB2lnZ Vwik8GDR9TmJjMEOGOxhfMWliQcUGtWxk5Y7QPAZl99NfTwQ5PzHHv1oB2zk 06nJ3MMDh3Zj6cnQkzp/JVxSdMWD8JwX36MSdoAAUH5g6osHef71N69k7ACe 59OcEv/hwbyQiF1U1Q6wyVLyp07AA7vQ42TplR1QQhrz3aQUD0LvSfFO4HZA CAOuX7oSD3KlHhRHku6CIEePnKY6PJid6mkeP78LVMza0gha8YCkmtwgUviE zzZY5nfhAV+c/ISU7C6YeEhER9aPBzYgFxehuwsGL5427BrHg5DTwyFS5rsn 30O3nynM4EHOXzqGccddgAm/bri7gAeNjSrpEd67oE25xIJvBQ+m3/gKSYXs gsbj8ndp//CAyL3oy1jsLkikFG/9voEHPFrT1yPSd0GlHLtQwjYeKHGzdkjm 74K8jN/HdDg8sMJpm4xV7AKc2/kkGTwe/NcZPBfesAtkOS6JUh7gQVZuhZtk 1y6guZZKF3KIB/WBy0ejI7uAOdE28MMRHkwacEWFL+4CCoGjardjPCAQuXNG cmcXZLDJUs+eMBdxZPYoEQ7ktOmWHJ4w9qdOLJwOB0Z+bCzXnLBl6WaNBDsO cDUKH58/4aBwQY1RQRywLPa6KHASP8PiXm+YNA74ZFcUdp3kg67EW0oonejL Mi0c+3gwfqp5ZeQWDrASlVTS7OHB0cy+T5gpDhTEK3xL28GD87WXSSUccIDP x4GpfRMPFBNs40Y8TvL5xo1LW8MDc8fXHGHBOKDztuED9V882B+i7Fh/gQOD zgdylxbxIEXT94nZ6xN2zPr376QfUlULos25OEBPASn0J/CgW9B4XLwcByY8 utruDOOBc0rzyzSIAx4pP4N2+/CAikIGI2/DgRJGxgcyJ/1XmWfJHJnBAQMB 79mYBjyYMHyuq76OA1Jv8o9zavEg8McWYdkhDuRxmJoYfsGDive/rcJO7wHZ DZuBsPd4oM+izLTBswfyZv38ydLxYC2krMFMbA+YCYVZcyTigZBNHJ+Exh5Q 6T0+oA/Ggx+/CfrSDPZASVaH8IrXSb+VXZ+T398DbS+NU82c8CCN5/bciO8e SAyx48ffwQPZ+Lpk9dA9YFm1UcuvhQd9hKLqZfF7gNle6/m0Ah7QTtLkhX3a Ax7eromMfHjwSSfAeOPrHuBrX7n932k80EDLFPca98Dn4Fj+YAo8CH7364HE 6B4IGi0kElreA1v3woVHafEgMds+nfokTmz77rD6OTxoEWBRH0vdA5cU7KPL LuABu09Iw9XwPWDHrvY3DMODLrd3ZOHWe2DoD3GxhNtJX0ro7jxk3gNeWu4W 6U9O7IOmZZyPcYCxeoqOIurk3NVef7a5iAPaqd9dR7NPnvdEmPm/bzhQZ/RU IvykL43V51VSzHHAtHl1amMSD3CPnia+UsUB3BXzhHurJ+fY9D5iPJmv4qcV tiTI94HOcftd391dkNOL/zIquw8qs/oV18J2QYSu11XJtH2gcYrUtiVmB8S3 XXQq+LgPCKjxy/KOOyBNffwt/9d9MHjLY5RU9WSOKGiQsPbsg7y58ORY3DYY FGLrPCA/ABTTcwaORttgKqeD0IvlAGgoEQlZX9oGK5zPpP7xHICFY4HgD0Tb gOD0SuqkwgHomt6To/20BQSJ6mx+uB8AHbXnAlKbm0Ai0O0VCD6xl950fNCw CeRxAr8qYw7A5Zo89sn4TaCz+lLs08cDEDstJZogtgm8/9zHvxw/AK706Z8m T+7BH2WksXdvHALjAbccnjdroOtSdX2P8SEI17t1cdN8DfzJc96+YXcIkCi7 xSb3Glh9O2CiGHwI6GkunDnQ+gdOR33k5/16CHSG3z+VVv0LbK1v1qzwHIGM Jp4rDfMLwHmMcNX28hGYeFr4UcZgAfjcreAaVzjRI5UDZurmQfRtztBu4yNQ 8oNWazRm7mQOrutUxJzopMwhpGdnAAlz0txT/BEIuhtcu/NhFDCuPqFlJD8G BKSvxJzujQDuFocrOUzHABnkCvxHNwwUA+RDW0SOQdC8yNCTB4PAd2aan8Hi hJlFTVW3esDqZwnbrIYTf3WPz4rPv4HDGPYXUl0n+p9+SlX/r4DmAdmXHyMn bLDVXWtVCoQ4/pAsb5/YO+/f+Hs6EZTVYz1nmQkwAmffmk3bz3Dl4sJjKzUC LOhRY9FASA/cOjP6/JP2Cb9/HZeu3Av3SXpSt/RO7NVNwm+S9UOq8ZrvoRYE GDL/nh74agheSHjJ8MmHAMvw/Cza4TEBrfavlG7mn/gnXi20FVyAA63P10Lo CLHYw3ShlvgtmKiYrnrnNCHWNW1QpHR5G+qVfn7Nz0GIXY5K4KLr3IYdydMq Py6e2McmTmTT78If96+nkqsRYq6yuk/ns/dgxe7B9ciAE74uaCBGcww9HJlf mTwjxAgsXKOC4DGUGBVeuRhJiOFavwufv0aAiupNkltfEWI6kXV7B2sEKPdF 5RJN+Ul819BcM3silMzrkfBykRCjYOMYvONNigySoxYs1ggxh9zNg9IRUsRI ma1weZcQ08AN83UpkaGY1e75LhIiTOPhaNUdBnIUWiUmz8hFhF2+87Ys7SsF 8rq9PJNoSIStEfviu4Ro0B1/qyuvG4iw6F8Zcjp9DCg5nZls9ycRRnD7K1Ep PSPqhz/69LuIsIUW263H2ozIkETY89QoEdb7/uw3liZGZPxiszxohwjLuXip fLWaCZm8CxG3FyLG2hSjL0pXsSDLhlwRqZfE2IzuylICERvKmDU+iE0ixlJ0 R6jztdjQJDl12983xBhOirldOIENWWm7PPyQR4zVnuL86M5/Dln3yeSz1RNj qMGCg/M2O7Kbb7lAuE2MVXZG8sh+PY+cqJd5OkxIMI9bu/8iVrnRsm81CfV9 EkzkEfXHHlYe5LgQMaduT4I56CnNGSjzIPsmwfzv7iRYC/bhA1kqD7J6aif+ JZoEG9k4bcOnzovubk6CtDoSTMqfbuVxER9SGx40c+QhxSiK/nJm5V9ATZp5 ih8ESbG1kVJK75ELSKXSm2tGlBSbyZx8FEUriK4nnZ65J0eKoaZ1B3d3QSR/ 2+ChrgEpxrVW8VwVE0ISDZ2+sqGkmLEqlzvH3EXE+elHMtkSKdZWoxKFsxZF Bu8qq36tkWILhNgbmmxRFJmQPxKzS4rpZNl8dZsSRVv+MTxnSMkwEt5N1itW YuiXtmHRBS4yrM6TyKBL4jLyWp1t0jAkwyjetihyKoqjdnHS7ch6MozAXFZA xlMSEQnsnrn9kwzTSv+PkOe1JJJlW7zG1EWGrSm6nLoGJVEWUXvQm1EyrEuk EmxQSiGf34k0BTgyzIzYoy00UwrxefLxtYuSYzG9V7PMh6SRf6WyPt0bcqxH bDmj1kkWSZh1rVlkkmPm07cHyxNl0dKxWUzJB3KsK9nzSn+tLDJR9/qp+5kc k40++JN26iq61p8HEtvJsSf2HRtSpVcRbvOUyFkCCkzrTf3SRwI55CU2SMJr S4ElB/Le9vyugER/22S5P6TAHDsZ5aj+KaA5r3XQ+JgCo6nVOm5nV0R36qj8 bZ9QYF3vpSOmfBSR1E2F9Q+vKLBQTcd1JUmANh2zRkV+UWD3BWp6Ao0x5Jrr VHFFjBLTm1SKilu4jsY6zyXRXqHE5L6avogjUUI39365z8lTYvrv/9Mv5lJC F7WFxJO1KDG71xX+KneV0Mz67KdtW0pM0+76w4FWJWSkYJH5OY0Su/bghnFp hTJS7NWNlqCiwqYsm9UaslVRwSHBQyoGKmyCd38qq0EVnbtQojl1hgoTmTBp z5pWRThfWvJ4fipMyjd2nJhPDZVxtgavY1SY14NhcDNXDfE/VPEu8abCWs4A abpSdURDJGMlOkuFCXgTu0yPa6Iqb2L9uWUqjMRCdlibWAvZ/e1UfrtBhb2t WNweENBCaNCBn5aAGmuz1AzXd9ZC7sWvF/6yUWMHKQT3po600B+zI+dCHWps zJuk2lVAG+V9bfIXqaXGPv9yOzv58hZSfWSQdDGBBvO3Vje/s6CLPOJrCFxS abBGZ2M6pkNdlPOVx6n8HQ22+VSsfJJBDxERrSvJF9Bg9DOlO6Vyegglv1i7 2USDKSWw2HHG6qFr6MeNx7s0WOqKeIW0vD4SZbpKVGl6Cjt4IcbwMtMAsVZx uKjy0WLcYhdaNrOM0JH1h3MMwrTY3n9PXI3qjNAMrXjLiDgtFl2c8bV7yAiV 2KhwewBaTE3qkR4VgzFSp3/4O8uEFqNUW6Z+EWSMvOwrZQjiaDF+nzGBaeu7 qI9Fn6DmkBbbUqu2viBviuLdwuMuD9BhBj6X3JqkLRC+raAyfJQOoyL8lIYz sEBWF7rHJ6bpMMeiIAklDwskOXJWNG6NDus1+PuTtdwCLWXdmcWR0GPS1mJ2 S6yWKJpmPvjueXosopIwtyXVEnWMU9aw6dJj4gN4Ksmc+0gv9Pal9Ap6rOhW WPvSiDW6aBpyJyeQAeOIGXQ+1eaA+ucosxLuMGKdvPZlKmddUIfV7HVGTibs 8r7lw6h9NzRJ8gGXxMOEuRAXTpPTuKOtXIfiswJMmJTBVH8Muzs6u7zMzn2J CXON8AO1Cu7Ixn1jV0yOCXN7UJyQFOSO8M+OC28aMWHVHFEcahQeSOD9WbaI lyfxR/Ziv3F6oqvqw100CUyYyjWHpThxT6S9mBYWm3ziv0ao/VjZEz2+xLX9 Kp0Jm4h6c1XX3hPVfhHoyv3EhEW+7ZdLLvZEej8kQxubmTDJM72/ZJW8kK3D trxGKxNWdjPmOzTwQj5UXzdbO5gw1otOFHr2Xij91rX7v/uYsB/iJSkp0V5o oR+Tn5pmwvxY7yoVDXghvA/Rpu08E0Y8KHQ1dskLnTrX+HFxiQmbkXbNCTz0 QhIW6mfW15mwrcZXS3683kiVkLLDY/skX9GUjsgr3sg4+1cIDseEjeRqX83V 9EaOqtFyAQdM2AMydbF2M2/0//8vYjeo2L4cu3ij/wFL7b7F "]]}, Annotation[#, "Charting`Private`Tag$62508#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->{{-5, 5}, {-874.9998673469463, 1.687497795818481}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.779322196963058*^9, {3.779322227870343*^9, 3.7793222357051764`*^9}},ExpressionUUID->"f5029157-21b6-4ab2-9424-\ bcdbfeeea96b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "k"}], "\[Equal]", FractionBox[ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "6"]}], ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.77932234062589*^9, 3.779322362077977*^9}},ExpressionUUID->"71a31547-0574-4f7b-85b7-\ 03088dde8be3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", "\[Rule]", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", "\[Rule]", "3"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.779322362636429*^9},ExpressionUUID->"6c07a510-d4f2-4396-b1bc-\ 29e24df210ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "5"], "-", RowBox[{"5", "*", SuperscriptBox["x", "3"]}]}], ",", "x"}], "]"}], ">", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.7793224055311327`*^9, 3.779322424823642*^9}},ExpressionUUID->"7a88941e-9ee2-4161-b618-\ 9fd80a613c22"], Cell[BoxData[ RowBox[{ RowBox[{"x", "<", RowBox[{"-", SqrtBox["3"]}]}], "||", RowBox[{"x", ">", SqrtBox["3"]}]}]], "Output", CellChangeTimes->{ 3.779322425577516*^9},ExpressionUUID->"b0f4774b-a12b-4631-b8cc-\ b1ffc995bbd3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", SuperscriptBox["x", "2"]], RowBox[{ RowBox[{"Sin", "[", SuperscriptBox["t", "2"], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.7793225644001637`*^9, 3.779322599935478*^9}},ExpressionUUID->"b5ab0dd3-4637-42e2-b897-\ 91ff6e26d905"], Cell[BoxData[ RowBox[{"2", " ", "x", " ", RowBox[{"Sin", "[", SuperscriptBox["x", "4"], "]"}]}]], "Output", CellChangeTimes->{ 3.779322601010371*^9},ExpressionUUID->"b4cdc355-dc12-44be-a506-\ 7a0442d4b76b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", "*", SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.77932265448116*^9, 3.779322669146408*^9}},ExpressionUUID->"d5e542e0-110a-4073-b0a8-\ 982fc89e99c7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "4.`"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "2.000000002595388`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{ 3.779322669966237*^9},ExpressionUUID->"a88ba46e-2b62-402a-ac51-\ d0778f7da736"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", "*", SuperscriptBox["x", "2"]}]}], ",", "x"}], "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.7793226863475723`*^9, 3.779322696237689*^9}},ExpressionUUID->"a46b3ee3-e667-4d06-96c2-\ 89d481ad50eb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "2"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.779322697508017*^9},ExpressionUUID->"2f59edfd-63be-4303-a3ba-\ 09bd36a3257c"] }, Open ]], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"15", "-", RowBox[{"5", "*", RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{"2", "*", "\[Pi]"}], "365"], "*", RowBox[{"(", RowBox[{"t", "+", "10"}], ")"}]}], "]"}]}]}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.7793229514525146`*^9, 3.779322992263357*^9}},ExpressionUUID->"856899bb-76c6-43dc-8783-\ 5391ae30a1d0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["2", "73"], " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{ FractionBox["2", "365"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{"10", "+", "90"}], ")"}]}], "]"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.779323004389001*^9, 3.7793230100910378`*^9}},ExpressionUUID->"b521b344-3571-4dd5-b2ea-\ 07004ae2ac94"], Cell[BoxData["0.08509650011624056`"], "Output", CellChangeTimes->{{3.779323007688423*^9, 3.7793230105340853`*^9}},ExpressionUUID->"7c0b5d80-93bd-4c23-a63a-\ c7c84d49f7e9"] }, Open ]], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "10"], RowBox[{ RowBox[{"(", RowBox[{"5", "*", SuperscriptBox["\[ExponentialE]", RowBox[{"0.2", "*", "t"}]]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.779323423642316*^9, 3.779323443372375*^9}},ExpressionUUID->"03617604-fc0e-40f5-b646-\ a9e6b8e023c2"], Cell[BoxData["159.72640247326626"], "Input", CellChangeTimes->{{3.779323463149227*^9, 3.7793234646741247`*^9}},ExpressionUUID->"5c93585a-e7d2-4a71-aa99-\ 9d51d69a52f2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IntegerPart", "[", "159.72640247326626`", "]"}]], "Input", NumberMarks->False,ExpressionUUID->"7838b01a-badf-4404-8b10-c224d25f168b"], Cell[BoxData["159"], "Output", CellChangeTimes->{ 3.779323452564896*^9},ExpressionUUID->"661e0745-abb9-4f4f-ba6c-\ 15477914c11d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"25", "*", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "2"], "-", "1"}], ")"}]}]], "Input", CellChangeTimes->{{3.7793234665120173`*^9, 3.779323474973418*^9}},ExpressionUUID->"c0c2caad-b0e2-47e8-924a-\ 677166b7293a"], Cell[BoxData[ RowBox[{"25", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", "2"]}], ")"}]}]], "Output", CellChangeTimes->{ 3.7793234753642197`*^9},ExpressionUUID->"00befa5f-5784-4f1e-a432-\ 88fe0efffe10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"25", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", "2"]}], ")"}]}], "]"}]], "Input", NumberMarks->False,ExpressionUUID->"29a2bfa3-1672-4d9d-a8d0-2a589d55cdd5"], Cell[BoxData["159.72640247326626`"], "Output", CellChangeTimes->{ 3.779323476834606*^9},ExpressionUUID->"7dcf6e71-9920-429d-9e83-\ 0c6c8706db23"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"2", "*", "x", "*", RowBox[{"Cos", "[", "x", "]"}]}], ",", "x"}], "]"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], "\[LessEqual]", "x", "\[LessEqual]", RowBox[{"\[Pi]", "/", "2"}]}]}], ",", "x"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.779323543529372*^9, 3.779323546087513*^9}, { 3.779323590381014*^9, 3.779323632196136*^9}, {3.7793236783439913`*^9, 3.779323706426429*^9}},ExpressionUUID->"1fa218d6-6907-432a-bc0a-\ 66aaf85650e5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "0.8603335890193797`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "0.8603335890193797`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.779323629054058*^9, 3.7793236330906*^9}},ExpressionUUID->"68ec3a20-01c8-44ac-a665-65842bffc7d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1.96", "*", "2", "*", SqrtBox[ FractionBox[ RowBox[{"0.35", "*", "0.65"}], "200"]]}]], "Input", CellChangeTimes->{{3.779323855135891*^9, 3.7793238698201847`*^9}},ExpressionUUID->"8d3a7deb-733a-49b3-b423-\ 1102781c1036"], Cell[BoxData["0.132209228119674`"], "Output", CellChangeTimes->{ 3.779323872475049*^9},ExpressionUUID->"ef364818-c4a3-48be-b2ac-\ d8a8938831e3"] }, Open ]], Cell[BoxData[ RowBox[{"FunctionDomain", "[", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"4", "*", SuperscriptBox["b", "2"]}], "-", SuperscriptBox["x", "2"]}]]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.779324248643374*^9, 3.779324289601213*^9}},ExpressionUUID->"6c73ce9f-cae3-498e-b277-\ 03f845f0465f"] }, WindowSize->{Full, Full}, WindowMargins->{{316, Automatic}, {Automatic, 50}}, 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[CellGroupData[{ Cell[580, 22, 700, 21, 43, "Input",ExpressionUUID->"95990a1f-7a9b-49a3-87bf-96363a625b03"], Cell[1283, 45, 553, 11, 35, "Message",ExpressionUUID->"cf5b47f1-f78d-470a-a74c-2e0403141b87"], Cell[1839, 58, 4874, 100, 274, "Output",ExpressionUUID->"b14569c4-eb63-4d70-92cc-72ba10d330f0"] }, Open ]], Cell[CellGroupData[{ Cell[6750, 163, 378, 13, 55, "Input",ExpressionUUID->"daaae490-ee80-43ab-9bb8-902f81d3abfc"], Cell[7131, 178, 184, 6, 42, "Output",ExpressionUUID->"35106257-832c-40e3-bd4a-844c36606288"] }, Open ]], Cell[CellGroupData[{ Cell[7352, 189, 411, 13, 33, "Input",ExpressionUUID->"0ffd4770-7765-479f-beca-2a8edcccf114"], Cell[7766, 204, 15333, 270, 240, "Output",ExpressionUUID->"f5029157-21b6-4ab2-9424-bcdbfeeea96b"] }, Open ]], Cell[CellGroupData[{ Cell[23136, 479, 338, 10, 49, "Input",ExpressionUUID->"71a31547-0574-4f7b-85b7-03088dde8be3"], Cell[23477, 491, 306, 10, 34, "Output",ExpressionUUID->"6c07a510-d4f2-4396-b1bc-29e24df210ff"] }, Open ]], Cell[CellGroupData[{ Cell[23820, 506, 408, 13, 33, "Input",ExpressionUUID->"7a88941e-9ee2-4161-b618-9fd80a613c22"], Cell[24231, 521, 245, 9, 36, "Output",ExpressionUUID->"b0f4774b-a12b-4631-b8cc-b1ffc995bbd3"] }, Open ]], Cell[CellGroupData[{ Cell[24513, 535, 412, 12, 49, "Input",ExpressionUUID->"b5ab0dd3-4637-42e2-b897-91ff6e26d905"], Cell[24928, 549, 217, 6, 37, "Output",ExpressionUUID->"b4cdc355-dc12-44be-a506-7a0442d4b76b"] }, Open ]], Cell[CellGroupData[{ Cell[25182, 560, 314, 9, 33, "Input",ExpressionUUID->"d5e542e0-110a-4073-b0a8-982fc89e99c7"], Cell[25499, 571, 270, 9, 34, "Output",ExpressionUUID->"a88ba46e-2b62-402a-ac51-d0778f7da736"] }, Open ]], Cell[CellGroupData[{ Cell[25806, 585, 414, 13, 33, "Input",ExpressionUUID->"a46b3ee3-e667-4d06-96c2-89d481ad50eb"], Cell[26223, 600, 285, 9, 34, "Output",ExpressionUUID->"2f59edfd-63be-4303-a3ba-09bd36a3257c"] }, Open ]], Cell[26523, 612, 437, 14, 48, "Input",ExpressionUUID->"856899bb-76c6-43dc-8783-5391ae30a1d0"], Cell[CellGroupData[{ Cell[26985, 630, 389, 11, 48, InheritFromParent,ExpressionUUID->"b521b344-3571-4dd5-b2ea-07004ae2ac94"], Cell[27377, 643, 175, 3, 34, "Output",ExpressionUUID->"7c0b5d80-93bd-4c23-a63a-c7c84d49f7e9"] }, Open ]], Cell[27567, 649, 384, 11, 45, "Input",ExpressionUUID->"03617604-fc0e-40f5-b646-a9e6b8e023c2"], Cell[27954, 662, 172, 3, 30, InheritFromParent,ExpressionUUID->"5c93585a-e7d2-4a71-aa99-9d51d69a52f2"], Cell[CellGroupData[{ Cell[28151, 669, 158, 2, 30, "Input",ExpressionUUID->"7838b01a-badf-4404-8b10-c224d25f168b"], Cell[28312, 673, 132, 3, 34, "Output",ExpressionUUID->"661e0745-abb9-4f4f-ba6c-15477914c11d"] }, Open ]], Cell[CellGroupData[{ Cell[28481, 681, 265, 7, 33, "Input",ExpressionUUID->"c0c2caad-b0e2-47e8-924a-677166b7293a"], Cell[28749, 690, 262, 8, 37, "Output",ExpressionUUID->"00befa5f-5784-4f1e-a432-88fe0efffe10"] }, Open ]], Cell[CellGroupData[{ Cell[29048, 703, 265, 7, 33, "Input",ExpressionUUID->"29a2bfa3-1672-4d9d-a8d0-2a589d55cdd5"], Cell[29316, 712, 148, 3, 34, "Output",ExpressionUUID->"7dcf6e71-9920-429d-9e83-0c6c8706db23"] }, Open ]], Cell[CellGroupData[{ Cell[29501, 720, 684, 20, 30, "Input",ExpressionUUID->"1fa218d6-6907-432a-bc0a-66aaf85650e5"], Cell[30188, 742, 364, 10, 34, "Output",ExpressionUUID->"68ec3a20-01c8-44ac-a665-65842bffc7d4"] }, Open ]], Cell[CellGroupData[{ Cell[30589, 757, 257, 7, 68, "Input",ExpressionUUID->"8d3a7deb-733a-49b3-b423-1102781c1036"], Cell[30849, 766, 147, 3, 34, "Output",ExpressionUUID->"ef364818-c4a3-48be-b2ac-d8a8938831e3"] }, Open ]], Cell[31011, 772, 359, 11, 43, "Input",ExpressionUUID->"6c73ce9f-cae3-498e-b277-03f845f0465f"] } ] *) (* End of internal cache information *)