(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 46110, 950] NotebookOptionsPosition[ 45257, 928] NotebookOutlinePosition[ 45605, 943] CellTagsIndexPosition[ 45562, 940] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "x", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "y", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol1", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "/", "x"}], "-", RowBox[{"1", "*", RowBox[{"Sqrt", "[", RowBox[{"1", "+", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "^", "2"}], "/", RowBox[{"x", "^", "2"}]}]}], "]"}]}]}]}], ",", RowBox[{ RowBox[{"y", "[", "5", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"y", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "5", ",", ".00001"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", ".01"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol2", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "/", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}], "*", RowBox[{"Sqrt", "[", RowBox[{"1", "+", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "^", "2"}], "/", RowBox[{"x", "^", "2"}]}]}], "]"}]}]}]}], ",", RowBox[{ RowBox[{"y", "[", "5", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"y", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "5", ",", ".00001"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", ".01"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol3", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "/", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{"Sqrt", "[", RowBox[{"1", "+", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "^", "2"}], "/", RowBox[{"x", "^", "2"}]}]}], "]"}]}]}]}], ",", RowBox[{ RowBox[{"y", "[", "5", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"y", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "5", ",", ".00001"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", ".01"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"path1", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"y", "[", "x", "]"}]}], "}"}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"path2", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"y", "[", "x", "]"}]}], "}"}], "/.", "sol2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"path3", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"y", "[", "x", "]"}]}], "}"}], "/.", "sol3"}]}], ";"}]}], "Input", CellChangeTimes->{{3.741783552285577*^9, 3.741783632777624*^9}, { 3.741783802255823*^9, 3.74178386465877*^9}, {3.741784105212686*^9, 3.741784131670006*^9}, {3.74178440057541*^9, 3.741784472727943*^9}, { 3.7417845862758217`*^9, 3.741784589031837*^9}, {3.7419637457829847`*^9, 3.741963779532954*^9}, {3.741963928059087*^9, 3.741963939065117*^9}},ExpressionUUID->"a1f41b3b-1061-4d89-baa7-\ 85b1ee8c1e4a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"path1", "[", "x", "]"}], ",", RowBox[{"path2", "[", "x", "]"}], ",", RowBox[{"path3", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", "5"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.741784848976409*^9, 3.74178492564469*^9}, { 3.7417905627533817`*^9, 3.741790585912537*^9}, {3.741962835205399*^9, 3.741962837596305*^9}},ExpressionUUID->"58aa84af-db33-4d83-b012-\ 94b5d7ffe73a"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.368417, 0.506779, 0.709798]], LineBox[CompressedData[" 1:eJxF1nk0VWsfwHHn7ONQpsN23YZrKlKo5b2Vkvj9mqXSJK4GQq5okKO6ydRy b+aKlCRTN0RKxak3TmbCcUwJEa4MyeyYcpTj3e96l/Putfba67OevZ/n+T5/ bU0Ht0NOdAkJiUTq/u9z/orLjGpbKM1A45zj3D51G7C0Qtf/2wVMN3isW0D5 aej1vSNNbNi3at1lKfG4J3hIBLlIUuZ9Xavb7ewHieEeZoT4fX8oe/Z9L43y xDLBn4Pfr4NC4YmAOan574Ph1ygjcpay/8HysS/bwmCCiBYKpebnuwVRP3w8 pqTm57sNvtYTC0YoH7A2/jrkcge2x9+MGZCan/8usK+ZC3spRw+nqA/cuAf3 rfiRXeL17kNpFvdRO+X260rWX1/GgI2ximOzeP1Y+Hd4s8wHyitUfW/2NMTB FmviY7V4PwmwosuvrYKyYcuEg8A7EaojDDaXUJYuqHkxuuMh6CWojOWK9/s3 lLd67nlB2df9ZMxw4iNwDR9zSBPvPwkC0+5l/y3efzJg2RWrO5TfSfPrBkpS oEgovz5M3PMYSCK+4E9xTxpoLol/x6Ysm7hhQd/XNLDdHXPPVdz3BEzM08rt xX1PYd1hOUcLcc9zMF3vhisoWzhLvXVf9AJejWzyWSruewFPZW7pssR9LyG4 pTxvmjnflwn9Nv3yFZTvitjj5zdnQcuYrIDLnO/Ngp+FXvczmPO9HFAz2qh9 hznf+wqiM/amHmPO92TDWcby8nZJBt4MYl9sC8sGHZGkShXlDqug1XXCbAju X7qVSzlgPCvhTX0OCBpl19+l/F5f5q/AwLcw9P7wp52UXROy92qP5MNm38cK DxjUebzu9ZddUwDLIj2H/qQsHc+2CzhVAM8jnuWfpXzsbNCiq3UFwI5p5JtS pi3ghNinFwKXnRHRSjBw31YZNwO7YviVZaEkR/nyqqg9T+4Wg2Xk6lcCOgMT WZortfjFYKa++1UD5bF2w88/G5VAwf7KiVjK0V4Oh+eUSmFGeXnhKsrdnOwN 1e/eQRy3N30tjYHeOqclzq7hwfNXTYWKcwS+CSl/udueB7nVpWtGRARODq10 1LnDg1Q1/+t8yuc5faWdQh5cS3uZFUj55JYzoTallcDJU3s2PUvg9mPnVXYd r4J1wZW6tT8IDNi1SUVxRy1YZ2g1WswQqOXZP+xnWwu2crw1WpSLnsSUDf9R Cwms+6eEQgLn5L5f4T+phSid5t1JlK984H4KZNXB76o5mpPTBLramzwUfaoD yby2jtBvBFp4of4gux4SMtcFBk8Q+KXNad+n0HrI7favsqbsi6HneUn1EJEl 06NNOUOy8UVqYz0InkW6Fo0TqBB+Zr3Tpg+gtsHx0rcxAmuTokzbaQ1QalG3 xkpA4KHqwQO14Y1gMq3v+2WIwH4DJXZ+WiOouV3QfEbZP3JDZEZRI3irXXXy oJz5m39D2EQjsISpmXODBJJdPx/d/VsT7PPq81Ch/OHbVsci9Y9QUMurM+wn 8Ijm/UucjGbYR+xqNP9CYHmM2YOCimawLbnnyaC8SXm6gN/dDG4XfTxzewjU kLKW7VnSApWr/3qxhnL/oPKjnwJb4Oyj9jCFbqr3TXjtZbtPsN4yI73wM4Gp +4P0jFhtcJQftFjQSqAojzvavrEDDujJJ7PfE/i2pXzaZ0cHONJp3eqUr041 SKge6oAs922nq+oInFo9yjp2pgPKkj9q6VAejtX6V1NcB2whwpUbawj85+oN 9xr6Z7gqGt2iW0VggaHdWD7/M9DmNgQlllHnk0GfSDzZBal22/6p4RJo5RkW RPC/gG+u2zlePIFOjm/13HT6gXM0amu+D4HJ8tt/WbR7CDoz7KLbjxL4wFyq xsB6FELyTXvjDQj0Ph9tODEogIpYXUuGJIEzD721314dh1IJdpVtIx01ttFP WOpOQnzF6RGnBDq2l6w1lsmdAlWVOneJ03TczmE63Hafhoz2WAUvHTqaZemz 1NRmwEhr9d2ELhp23xadKn/2HcJqhs32JNJwZYc7fZvdLHQq57e2HqIhQz5i Z+u4CJIbpFZcZNKw5ENq37IjEmi57PmA9nMJPPIkc9xGn4b2AdyWVksJ/PWC 0kGNSRoy+bEV6sI56Bosel9dTccri/UWFxrMQYdNxWPZGAIHC5PVD54TwVML z4K99gycs7HmfU6ehb0znrMXjSRRJB1rWFLyAzZG1d7QJ5g4UPJR0aP/O0x/ /WMrv42JS3eUBDZPzEBgcfmm8xwpfBoyPp02IwSHm24BCd7SGOTrl2SwQAiK LOepN0cWIEdgG/rHzDeQ8+dk22ssRHJU4Th7cgqavNILZHsXokyHaWXZ0CRc 0h8fSMiTwVvmpYKRdxNwsirctShQFr38lFPS0sdBXdtPrspeDi9J7/JJcRsD 3XPFhPNqeeyRT2HqowAYJi9NiEl5JI8SUaXyo5BZPPIgsEoBx3Q3u7hcGgIr 1aKUqj0sdE6O2vVLfz+YcDgRe7JZaFueE2Ku8hVkFLzjeVqKSKSs3Olq0gNz 9sOWisGKuCP3r4CN1zvhBCtYlT9JjU/F5y+l/QOdr6tvWRxTQuFAijFh0gwW mn3L3+cp4S8PP2mkXa4HrV49XoUuiZX732S6qfNAI3nxkuBbJPpVyVrXNHAh zPTlpHkEiR99Hs2+debCtyazOtlIEs99O7HrpjAHqhdeCQqPIjFASXSNoZoD 3hcap+7FkRhy47FHseMb+GgcWZ+STqKHw5bX6iMcCH8ve6OkjMSHRsmVx2bT 4ceZpNMBFSTe952JD1FLB2fJzdvNKkmMW/lFlgtPwHTjme+V1SQ+oheFa/un wmBchUt9A4mi6Z92Wkkmg5lLwM7OLhJVJsb0TynGAoeutiyph8SLxkX7LQ/G gHrsq1mnXhKbqraay0REw1R1N6evn0SzPGbOBdZdSFq3bblAQOJA+4r27CVh wKpuEWWOkxgfettjc3QQeDmzWy5OkmioO5c3+9N1OBTzMGJ6msQDBrd96zW8 IW+t0bmcGRKlPUv1RIsuwaqqWjPvHyTyS2yYQo2zcOf301qmIhJvxQR3lqof h//97Snj/H/ffwBJZ5tx "]]}, Annotation[#, "Charting`Private`Tag$3193#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.880722, 0.611041, 0.142051]], LineBox[CompressedData[" 1:eJw12Hk8Fd//B3BLSUKylT7J0qJE9SmfrPWaRAltSCSSnWxJUmhRoVCWVkkp 2iglFEmiBdlVyJp93+6de6/9d3p8/e4/83g+5p45rzkz55z3Y+RsPIzsebi4 uJy5ubj+Hv//l/0l+IzTn3xoZh163y1jjsaPUrdGAuSo/9kZZkdLWtwcFajk 0EuGg9Ve4JF3yEh1WjFz/hTCCpyDONnSVFHXRsU2x7OwLVLskbwpOPP/QPz8 FVKX8LQbTPnhC33jl+BeU9+x+8+vmf4uI/arZeysgmoE7isY6dgWhoZvFkGa Z2vwv+tdg12HbNm5hbXgzy17NaQbCQcl9oMj8bX43/WjIJWwauVR5d/Ye0Cz q9/5Ol4dmA5RLP49098NZOovO5/vUYfbA49lesNvQUWgfGL/VN1M/3cga19Z P+9MPRoviR7oeh0D94TWPdJ0/UyeWAgt+HAxz7lhJs99fHRxb+k90jjT/0NY PVK2ypzTjDPHrGMGHjxCE0+BSah680yeBBRdHfVUdWueyZMIF+4kgVflzTP9 P8PywkffT5/7A8EHqnO7u56h5ZHjxZAXf2byPEdNedbmiJo/M3mS0dHrqxK8 qmUmTwpMG4+7rP7cMpMnFeG2W63PN7TixpQXw13rDSqXb7b6Ntk6k+8NWsLk Um5Lt83kSwPX7t/mqZZtM/nS4Xlmf/+9mraZfJngCBx/SX1ox9UQL++GsEwk PTdUUq9rR7NpiHLFaCbyXdV5Fo+2I4jx5v67qiz8Gx39RGpDByqV5l0MDs7G Mq+A4Kj4DrjczzRcMfgRYvknFLy9OtGY0RkouDYXnjk2PCtDO8Ef53U4yC4X bqpeP0oedcLCNWTR6YpcOOqnNJz/2QnuuWlXjiR9wr68y4tWqXRhl/Y8j/WH 8/E+a0nd4p4u+Ky+afD8Rj5E/K/u5Ex34YGI3Krlxfkw7p9V5iXRjZHGTX8W qn/GtalFH0fQjdt+NsbTol9Qk3zMa+n1brSlZaqWfv2KQ3UKdjtVeuCv4MTl urYI81dqmt491It3Vwpe7zxShLajoooVrr2g+1fZKlwvwkINB7sp/164p3V/ aRktQmO9YGjovV5Ybz0aav7lO9addRrJru+FjoW75I5DJZBJLY6PPdCHoB0a kgt0y/Ego+bK3S39WH6qZ+CsVTk2S7bvMTbsR97zmG8DJ8vR1PbuIvfBfkwL jfsWPy+HXfiU79kT/fD98b4uWKQCQjIDnmpJ/XA5sjl+qq4CBxd+WDkqNoDd fpRSn1cVJu6+MIv9PYCOBvtddaFVsDb8E4WOAZyhQt2LEqrwa+kR0drhAbyc /evV019V8GjJF1o6dxDzI47+Z6/xA4rG3zKbNw2iPOHmlkbunwjri5xQjxiE UWnf3vKIX/g+63Ktu/QQ9svdOZH2shazGAZJcplDKIjRu5tbWAtHJdpOKmcI GuKc3OK2WkSd+zGHL38IsnMOCLYv/o2DPJwXFcVD6OkTfyQR/Bs35IXe72ke wpl3EeU+h+swqF+mYcA3jKd7QtaoizTAeatTuvCeYUzlvB9qVGvG6l9UjM2P YWT/LuAE6DbD1lUzQ7BmGKdZP7mkjZohn/9bK6tuGCzlIRGLo82YGja9OLt1 GAOxy/+tvtcMN4uzdnbDw2g6HX6sjOcPfn4/dTxFaAS5mw6PfCz+A/PeAAaf zggCX/IwH1i3QlskWLrq6Qhe/DQ5s9u9FcrvAwcFk0dQM/GYf8KvFS0nGlJ3 pIxgnYGB9IFbrVCMsvHLTh9BfWf0dqHSVvDuue3hkjcCVbkVd05ptkHK6p/m Q3Uj6IvescVIsh1m9442Ks1jwPRUWAhvcQf2h91/4mHLwJSalOqx2g7YGaQH Ttgz8JiT2N7Y0YHkM19bLzkxwD75UTuLuxOd9UZdN90YuO0zMuGp2om0dIUj CScZ+H3c7Fjjw07ofHORMwplwMp9+cHMU10wsHmitPI1A/a22Ws8FHpgxqMt XMViQDTwTBm9sQfPzi6yzuEw8PEBddyf6sFDp7rgpDEGpBo/Z10270EPlZJ2 eoqBErOSnQmhPQhy3HZxejYT/+1udKwd7EHfhq8FheJMzFbnStj2rhdmZwJK V/3LROqBvB1Fn3uharJhonkDE4d9LvburehFhMb06hgVJjLf8G+06ulFAGoP C6gx4bZ2QZ7vkj70VXaeLNzCxM9l8s0vzvVhSwzr+QJDJhKFdZYs2tmPuJiM BRfsmchVM9B+YdoPL+GMo8qOTPy2MXLStuvHeLDjYLUTE8JvrdNcz/ZDcXP1 xrWuTPgeDjD8lN6P8nL1rAwvJvRfZfi7yA+Afd6n9MpZJgb2rW7IHh+Axw5W MOMWE/z+63mNyDxJ8WgO8bjDhPxj1dWdkoOIGja51BPDxIEx3RMLNgyiwyil r+oeyfPQRsjBaRAid7sM7z5iIopxd/P8n4NQetsuUveSibv6c8rWHxhCZLTa Fp3PTCheS6wPthxC06e2a75fmMiq2tbTaDuEavFf48++kvs5dG52uOcQpruZ 5fyFTCzyGNXsvjyEOa/iJfNKmLge3fs0PnsISsPv1g38YiKsvixQVJ7Mi72p QvZdTCyRc49wXjUMnnntXV7dTCTZC8blrh2GYKrZq4AeJooG9DLdNYfRtmON 19U+cr/ceYNFJsPo56oPTx5i4uKKtEMXgoex8Yd3QSKHCX/325uYfcPIiPvW nzuHhv60sekaxjBM0qRLE/lpLIqY72MzOowv06vCgufSSHsdlF4+ewTH7IVv 686j0cf0VnmxdATT1mrDOcI0Dvnt2+CwdwQ57PUD3hI0NEME1ta8GcGKvSFS C+Vp8Et93TU/awSvL+YL1BH/enbebXvuCPrDBN/FLqPh9Z2TnFY8Ak+T7RsX raDxXLhzTWT7CKz4Tsbzr6Kx+Eb+av2FDPCsc1BLV6YxFu+/Ivs0A0tcys31 1Giy/hwMOn2eAVc/rwA2MW+ZWqdaCAPNIg9in6jTEJxgPk2/wYBOVtPjKQ0a MqZuSimvGLAOaPa5v5mGjoDVxocdDMxbXJL4TJtGgazWdet+BuaqjC3U2UZj l+pieimTgd2Tr9MaiE3tfmXc5WbCSvRVnqguDaec3Ro3ljDRPrbrveMOGuFe 2BpixISMZFlQiwEN0cvSD7ebM3HbZcsWd0MaN++P88y2ZqJJzjWVRfyg+O3n 827kuVAmGjy7aaSuXK/nF8KEDzNLSmIvGa/fsnvcc5hIXuvePGFMQ3Ybj6WJ Io14x1irWRY0FOb6qd1fT8OvNeS8LfHaMoZYzybyXIwcLT4Ra1m0F50luaNf xyX4H6JhdrxALYkcJSNXx/ZY0oh4dFWc5xqNpDXts25a07jlPGfI8AZp57Sz pZM4bt2577fu0mja4PFe4wiN5PfHApWf0pDmuvKqlrigymTI7BONWp7pgbm2 NKZ5/ylOYdD4kLRynq49Db6i6CdjozRi7Q3Cg4kFIwQv6HKxoCzLf7iAePGS KfU6QRZeb3Wh9BxobFL584RvJQvvpSn9bY40No+ZX9inxELvlmffA4h1ciut YjewIGKkWvuW2Mjws8QGsJDz8EqyshMNd7snFyzNWAhQL2qa40zjhKLs4adW LNj62W/TIvYfuq3BsGOh7N6UyzHiK/5XhkOOkf40dvHWEj++7nY47QoLrB5d 7psuNF4c7NCYjmAhUWF8+AtxmuxhSf1bLKx05ZvHJM5L3lvS9IiFM7U77+88 SqPx80bNeR9Y4O/p2T9IHCtSdqAhn4XFhh1PpFxpmB9y8U4pYsHjtlT8VuIf jAcvjGtYcFu84M5V4ihoFa1oYsG6vfB+OvHe0OoOdjsL/qm+A/XE3+WFZWMZ LIgdbZVe5kYjxP2ZlvsYC+KPGBnbiLdn6ZhT3GzopRydsiWexdd8QpSfjQku V9ZF4rx9flFtwmwkn+TVeEz87lzXLGVFNn4vs9aWcKfhU3xBbno9G3ZiNzat J964SGZLhSobSUt7TxkQv0zZf/KELhsaWpOpp4hdx4eidxiysUP65/6rxKt3 hL2SMmaj3Scq8SFxR5RCSa85G5ZjmQ/eEic05nV/sGYjt//EQDGxjaIVX4Qj G29X8ek0Ecv4jMrbuLMRsVndcJA4Rmj9IT5/Np5ERzoKepD31/y7b00g6S9B 0/sfYslEhxvPL7PhY1H9S5H4xxB3qn8EG6lKX3eoEkdq3SvdfYsN38oF7luJ d4eo9crGsSHZ/klHn1jwR9UcRgIb1RMNX42Ii2Q8ln9JYkMg1W3QgjjkqMDW W6lsxD7ZdMyeePvbREvnTDb2+n+a40rMy7v1tGYuGysSTE09iXN3198U+sbG JRV90+PEZ2JOvmkqIeOrPcTlQ6zVIVr++gcbV9ti95wiHv33Zd+FOjbWUelj /sQZATvnmrawcT5uIDeA2LuwbcWqbjZ23ava+vf8Bolz2mODbBgOzjvxt/2g 9T+Hi1lsbNoBo7/XT07O8IubZCP/gETF3/5dOPtue87iQIbpnXKMeJVOf5r2 PA7+BOim/M3ffi2kQlyUg1LBA65/7+9h3bKBjkUcKHQk1R8itlb4KJApw4Hy nu0sY+Klxw8qhK7kYFn4qhQD4vocepulMgdN9L2ibcQxApHW61Q48LH9IqRO fMBUKYBbk4OE229FlIjFH367U7WVgwK1mm/SxJX9NhmJehyg84rCfOII9anK k3s4cNyxcTn33+d16c7gTlMOvFPsghjkfRCsUBFcYsnBmvzTkq3EhUvKVw3Y ckDz/HYqJ9ZJ47OJOsaB0Z2HMk+JKcOPETq+HNhFi+dfJ9ZqO/mRdYYD82b+ hvPEKuLdSyzCOAh2db1gQrw+Od5AKJoD/+xmN01iJZ2Dpz/e4eC2pH+/HPFy 7+/Vy55w4BC5+foQmT+yghf5fr3g4KpH1refxEsStP4LSeNAQpN+9Y5Y/MeL qL5PHLSKf1jnRzxbJWJXej0HtoUf3CfIfOYp1vN3bOUgROV4dA3xlC13klQP B4sOdEulEbOivfjPsDlgfjz7yJW4g2GSv110FJ6bsxuLyfry9Y2Ues2OUSj4 lP3r9Hc9Mqh0vLJ7FDZx031qxDmtV25q7R+FTkX7rDnEGWITjAc2o1B9fvxj 3N/17njjS+eAUQisXDteRNbP4I2Plo+njuJGQ6bZCFmPL363MH6ROQr5utyJ VOJztuKBh3NHYc/npuVN7Bt9qSm/ZBTL2O0pTLKeOzEcY8K6RhG5MfN4mx0N vTdKIkuXjoGlYj8Zb0Pyjp3NPLR8DD8SP8w9SKyrXWVzV3EMBV/jq0WItStO pS9SHcOkp6lnANlftAa/HhTbO4aWobrKfWQ/WrfmSCJ/4Bi+xyZKVJL966VX 2u4dIWNIM1bOOUOslDWHc+nqGGxrvvyjRLxq50t93rtjcG4X4bpI9j15x/HB yTdjyOCN/WcF2R8lH93QYLSPYaFnJMvAjMb1nq7Wf/vGwOsTdrr/AA2xDVrh niNjqLSP0g4nFvnU0tQ/NYZP5/S2FZnSEGhad6lr4ThO6Iiv1d5PY3JxUVnD znFcbhrjn2tEoy1qyq7gxTjWzg/MWEDqASlr7z1X08YR8ybxU7Q+eb+Ve9RN 3o9DzcFCT4z43befws0F49BtCxMU3kkjbCL5Hbt1HCURd+y4SH3xn4OFoMLi CbhFyku8JfVKkPq7N5eCJqB7dqz1Kql33vOtjTMIn4BI/ypvJqmHhqoehSy4 PgGb/YNsM+KD7tcs78VPQJ+1VFBeldQLjxzmpGdPIDdKV/+5Co1qQQmLtpEJ rI3xuXp9HRm/5mM82w5Poiwy/E7FchrNhwIdb9hPYipav3U18a3aqOLOo5M4 aBnnEUjqOb6qNzfDfCdRJzeUsJHUe21faMVfkZO4kNj7b5AMjftJp4ydP5P2 BeWrRReT8T95PuHa6ikUbFANTSD15CzhyO31jCno4vi7EpoJL5HPfeljUzAx Y4R2M5loFmVHXeOexqhJzOrZxNkLLZu050+DduiO2TzChLfcat9nitMoFNzz T9wAqctUPj3zOTIN3ZRR1tZOJr5aDAsuKCPt354qGa5m4vOPp93y+7koh1wH 1aVvmdj/PJVhrsRNWZy+2PifOxMbPEX3ydLcVLXVnkk/WSZa+/IqS0t5qLjZ x4N580idaV74RDCGl/pZejE/wpqB5N2ncg2PzKLkzcMaHnNGYDh2atJbfTbl +TN+fc2ZEajdLA9X4uWjouoXrmmZNQJO10nt4gY+im+7VnbPyWEE5xdouKfN oTSrXYfa2oZgc9Uj6L4/P2XJtHPXNBnCAhFH1rv9c6l7ps22yVaDEApMyzwi K0AtMRudWLpkANV+SbmCnQLUiNbcKvfKPpxQYvTez5lHPTIKul1n2QvrkgiX vGBBKmGrVOZ9ZjdkVpwVKjkiRK3pjljkbdUFRbd8XkdlYSq0NvpW5s8OzNr8 ejMvLUzFaem5Gui1IzV/8G5wyXzqH2m3mMjQVphK5z0uMRChtA0TdTqa/mBz WlqkQaYIJW9jcq2Xpxnz5vvHFS1fQM0VlwrS167H9JEBkwWXF1DneEMCcp/U wFLksnQxvYDirc/5ryPxB1oySq/tthClJIyVT14oL8duue5llTmiVPnLj+8k hguxvHNNUaGiGOW+SznrtvMnyCZKLb58TYwatfedNL+airAtr2n9SDHqtJ7m nzGdVLCr9SoEo8Woioh7D0PGX6NUwDck4qYYlf3fV/Ugp9fw9/zFunVPjLoy 3vnFRvsVajSjqx4niVF6sublZt1JiKgUDP/8TYzqW8cX2/D0ISaOJjgFFYpR AqxsSWPxh3CcraWj912MWrKxKaHwbDy2qB0d/14qRlluMdD5YPoAffcKnat+ ilE7WdXFEnNioecctL2lVYzyLGtasTUjCmk8S+UT2sWouP7eLWGhkZCJTZ+0 7xSjfqmXyb22jgCrtC2tu0eMWmr81qVHIgwJKtuWDQ+LUT71siV+2YEQKf09 lcogeYVLgwPsz8HP0eu3Ny1GtXUrbDeS9odRTHwkhyNGWXBd0w/P9ULORnW3 rDExqmC+r5OxnCtWl5Tr+U+IUV+P7jV+nGuD6w5Oy7dMiVEyyyOO1340wv++ PotT//8d+v8AXdqKuA== "]]}, Annotation[#, "Charting`Private`Tag$3193#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.560181, 0.691569, 0.194885]], LineBox[CompressedData[" 1:eJw12Hk8VPv/B3BLUpKsLSpkK1qvNkpeJymSlLVEZUlSSHKLuNVVRFQisiUi lUolChFFslMkImRfZo4Yy5hh/D738e03/8zj+Zgz73POZ3m/3+cssz9t6ijA x8dnx8/H99/3/39CDlZ6v16fgK05Nu/65K0Q0Fa139dQlPqfnWG+4/jt9xOS 1LNgf6PB7x7Q5PpszrWW+PO7N3x4J2xlJGdRZb3r1TudLqH+h5ve2NQY/ne8 H6RuNXADqmoxojh0hcH1x1XZXXPX5hT8OV8QqiOC7Uzef4CfSclw944Q1Ck8 UNxy9yP+F+8WIjUU/SbMCv/EC4NVcUG7dmbRn/9Ho9lHye9I+Ge0+Ese6H0V Aw3987J71pT8iRcH95Fyk6bikj/x7kPwzUGG08yyP/Ee4CHCTOpQ8SfeE6gG m34+vqwGogmbZ/f1PoFlBU/C9mjNn/ip2DcuZL04tuZP/Gf4Gj0S2jTny5/4 L1BjySiM7v3yJ346eGX+qpWXahHB82C5ab/GKrlgSYsXtbh4xjaGTniNPGv7 MIuWWuw/sLWX6ZyBmNwl79q06/6MVyb8V1riPqvuz/VlY6N7ycvTRvW4Gejh +TMkGykyQZW0dz3aLANXf5nIRrXCsxjjR/UIYL2+n1WbgxlFRrcf8+rxddWc q9eu5WJfiJyOTup3nLyfbaQymI84rmFB2mAD9urOOb3uaCH8o8KMHPWacE4t ck9qRCEuBATnhTk1IUF82QrlikKsOrbj5LbrTRhu2fRrgVYRLNUch8armhDl Y282LfkJjW3xInsPNKMzI3tzVXExPiy8cYZt8xO+y0/wuawpQ/J7h5tu+q3I ul7yarddGRyydly+Yd+KUeYKh+V3yiBzZ9I74Z9WuGX0fWqfKAO1b26zaEYr bLefCrb6VI7+wfdii+e1Qc/abb6+TSV+3UhcX3KuDQH6W+ZL7KyBQ0zJ0Yit v2DsQ61ieNRCVeljZlZCO7p/Ou5tCq7FScHVN+nUdlykgt3KkmtRZHNGYWlm O9KE6l8+rq8F/1Gnt9dK2zEv9NRGxy11GLNWyy8eakdNcqROC/83qOZFzU2k OmBaxdhfE1qPn6L7nTc0dMBiWfTfGWmNKHWRWWP2uxMlMQaxBaWNME4t07Cc 6MQWaXZBRWcjKAXzr/oCXVAQPiDaJfsDBx+5p8tId6GfIZ0kc+0HmiqO/xu0 uQsXs0Jrzh1twpk0tkazbxce7wtcqSX+E67WhvouAt3gvX/3u0WzDQ/aMn5x J7qR+6OE/c/ONlw5v/vCd74eXBj7xrfUtA36OnzxWcI9GFv9W9z6VBsOXXi2 0U6mB3Sc8l/f77Uhzsey/MC6HrReuHGmWuAXXJcMPw5y7EHBpqPD+RW/sM51 wwaqogd+aQIjCbYdSMhRuvw0pBfPv5lfNHbrQGNf32RrWC8aJlNmTfp04Mpd lsj86F6s3bNn6YG7HVAy0+q4/LAXzT3hu+ZWdUBw73Y9Vl4vNi9Tifbe2on9 10+3L6d7wQjX1zGd34XWo28FZPb0wdI7JFCwoht08cZZ19l94Gku2nymsRtO S06qRk31IYX9sKuluxsDdaG2CQL9GD+fr5vD3wMR2Z+/nov2I+rc8KT75h6U RRePPVTox4+zB8+0POiBXpDMy2b9fhxxUz6U7d0L2d0+9S/C++HokLvy9PJ+ CLz195JbNgBJv4vVo+v7UVpj2CiqMoD8BOqsL9UPXyMBW96KASxqKcoJsurH 3qR1xlXrBlB5sHJ3cnA/DtJD+3WpAWw0bnFqHOyHukHKybwjAxDS4kvekTWA z6vHBuKjB/BQTG/Jwt1MPDQ3XVgtzECB5h7d55ZMZL0J6jk0h4Ef9qYndI8x kSjcwesWY0DsrW2GyyUm9LbwmfDPZ8Dr6D9GHzKZqCx/cG9ciQHDl298TyrS 6B78FH4BDNAmaj9zuTSKOs9FWXoyEGsoXL3uwG8cq3HR0a5nQP3Ww+Zrh3/j JuZODTYwkFO7o7/F4Tf8X117Gd9Ezm9zWeiG+2+oPVy5ZLSNgYWnJ7b2Bf0G a1funpgBBu6EDzxOzP2NjcPbxp35mAhprvaTVByC9q7hu5dXMOHrFrVphDGE gGu4d9aDCcNpM8uVrCF8Sn1fGu3JxMLQeefsJ4awyn3aN+ccExmvAjJrhIZR ZM12GL7ABGPEc8NzuWF8c9x4/PAVJmx8TDSO7x/G4GmDQ6XhTGwNFFnT8HoY 5RkuYdRrJmYtKt47L2cYchohGqvJuNQ/+dd1V8Ewjt3ObJZ5y4RHOftZRsUw xPZHujbmMJEq1rPydtcw1tumKFl8ZEI2olDNcAELgQ4CK4ZqmOAk+qrkXmBB VulJVRWDSfbjoYAL/7IgYHqxIolmQrBas0czkIV3y038LvxmQnRy5HFmBAsm e1XrFowwIW/puurFSxa8v4xs38ol8yZyZP2DbhYMluktXTabxg0PbA80HUHo JY/PLko0JIOWPthlNYJg449lgio0Iu9zBYRsRyAV4bEwQpVGQsXbon9dR1Cv oLYnTY1Guuo6A5/AEZh3d1o3rqVJ3VXY5/Z+BJz0vjmFW2ko7BA4bK4+CpU8 jpmmKY3ls300768bhZHUOs9zZjTWVLOk+jeN4mN8pHm6OQ1t666ySztGIac3 dUjtAI2DZ0s0n9qMIufiNqtZNjRCk25KC9waxbuXZ1zPONKYFlxc8YI1imv1 2QJy52nMLAt/xJkYham0qai6Fw3RUNErO/nGsC/Fa9l6bxqyS3haTaJj2D3/ mKauD41NG349mqk6hqA3n5QOXqLhduzRlcMHx6AqHXli9TUaLUXrt87JG4OZ fKNyXgSNOPHqAz8Lx1CxRC3+aSQNK5uTni/KxpCwb9ZUxF0adayE52YNY0gO eOXvGE2jXFFMIY41hqcsOzluHI2sy70zVquP4/PeEKviJBrnKq4sm143jkF9 6bHoZBrrF8rrfNk8jigud4nbQxppLyzO/71zHH7GzT3Cj2gkt3zsy7Mdh+d2 B4eVqTRua9+rMr47jp+ZP+YsfknDOFBzQCF+HFyVXr5qYtG6WmFW8jhKzdbZ +72iEXhKZPvd9HG4hFvMZKTTuBhz/nVr5Tj6xntnxmbSOMk2iXKfwYZT7EDS 2xwaK/SYGbpz2PCvM3c1e0ej61bgF2lJNrjlinoDxLbL80Wy5dl48QQ1Mnk0 Dliu+od/KxtpUzla9vk09DJm2oedYYO9Q2JGQiENyig/VM+LDfGAI9nyRWS+ O8/nj11kQ6k1clsC8QbpviXWIWwIxlUsuPOJhrJn+XelR2zUZtemnfpM1pPo 1Zn1z9m43/7LuYV4SbL2xsAMNjYazVPdW0JDuu55GOMDG34bz9Qol9IQ2hC6 N7OZjc+mYfcqy2gIVBj4OnWwUdkUEbyunAbPgf/pon425rbedAwjHgv3mHVx nI2S7MBXBytIHmOZF+6SnID+pxn9nytpFL9epNWgPwEHvuFoxxoaH/d8dbpu PIFh78nEDOL3HdcjtS0mcDCuT3ya+I3UJCvBfgL797iphXyhkXK2Jc35nwm8 +2aam/CVxoM5d38uvjqBgZb5s1uJ45P2iVZdn0DJRd+IxbVk/9UWOGtETcDR 1c45gvja+iRlbvoEvOapmHnW0bhabm32PHsC12epmDwivuwg7Xe0YAJ6a02O NBF7hfu3FlZO4E2XWy++0fBcqSN2rm4C87c0WLkQuxeOaa9omoDTtuG3kcQn WE4xIb0TyLy8VWmA+FiwQqnO4AReBu0omF9P5lupcfz36AQiVDZL6xDbvLut mjQ5Aa1aZNgRHzQztLAQ5CBtRG/hFWLzAYGrwiIcCDJWZyUR77/yLj1bnAPD xe1zPhEbLfb8dWoBB7oO+9J6iA1erxKXk+NgePtO55nfyXhzLmXbKHPwb+Pi MHninbq19rHqHOjHhIZuItb94p25cDMH6b7nyuyJCxZWHjmwjYOxULbDBWLY KsyK3MHBnNWaNaHE7x+dfVW3m4ORuBVUErH2YPEhqf0cKAVntaUT52ySnWFq ycHr3zKtBcRaF12fh9pwkFvsdqKKOOtTgWW1PQcHZg49aSbeNFeaT8yZg7Bl PDkGcYa50xOj0xwIn3XYyibWiMsxDf6bg8Qlzl18DTRedsydLPUh1y/mbCBM vHal3cNZfhz82px3S5Q4zSPDWD+QxA/K75YgXpUjzPa/yUHocKnXQuJUfuvE ojscnMSLcDniFbvTDAVjOSiSzXqmQJwSyj+yPZGDAf+OJnlilQbze5cfceCS l2e4lDhZ/vGu/OccfJv6qihLrOjEHZx6zUHGlRc3FhAnpBlHa+dwcNRur9V8 YvmxRF2fAg6cO1V2ShLHbxsdyC7m4IfXlhQR4iX+BhHsCg7O/NyX/N/9xVTE 6myu5YBZo+40Su5/kfRgz9+NHIhKhs7vJ46y1r2d0crBjaN6P1qJ5ydFbGF1 caCVFZn3jfhOf2/HXwwOZrWFZXwmltLQvuE+zMGr9dWP3hCHed/a9IJNjhfZ l/ff/Il/aG9l8jikH5RZ/N/83py1KWiVEBcDsao9vsRz9wdpnJrDhZS5kcop 4pC7zU1PJLgIL7kgfYBYpHWtf+8CLhoMRO1AHKh6Zc1yOS7uvjNYq0Is7Fb/ 3VGZi8vCXkmziWdM+ap3rOMi8VOVWC1Zr1OyZdU/d3ORa+aZZUnsa7/Ue8l+ LtakHvuiQcx54q5obcmFhhxvwzxir6HC8mgbLgQPL+Rnkv01prng7wZ7Lt7X LVMt/W9/Xj4pt8CZCy+JrbcTiVmf8z5bnOaiLnCXw3ni35bHZGt9yP95efny xG7xbwsl/LhY2kMHj5D9zuwScd0fyMUO9cd7yoj7PV/lV97h4tBfD56fIu4M 4x0rec6FOc/aJp7kk0W2nvtuZnDB1F5qfZzYeHW/lvk7Lmb/sOeqEWd9/ibW VsLF6djQ8ickP4VMPssa7+CCulLVkUTy2YdSxaS8fi4kxiNFbYjHIqNuXBni olwqMF6S2Pavq/bzprkwCZF8dJnkw43HrUWXy04iYrG2gUE1qTfrv4wxFCYh /zVtwVgVWX98+r/Sl0+il8eTeEgsEqvxRmfjJL5b8NbzSP5tqZ5ta7l/EvSl mW8jSX4O0Mp67R8wiUnDI7k3SL5/N3NN/J4bkzi0t+PAf/n/d21SoMSdSeyN sFTMJvXhkNutw/cSJ7FdQbGyndSPNUnHhTNzJ3H9w9xx5WIa30VlrDuHJ5Hd IrLE6SPZX21nBHYcncKZ3VytrmwabTZ+ThGOU7jloCR5iPhuY1hFz6kpLJ/n dbg6i/Qfta8jQ7ymwMgUUs15S8b706h6/e0p6AqmGniS+nr/qbeZc9EUGhgO cnmkPs8//2/yLTUecpjO0idSaFSxbs9uX8vDjMPHHd+S+u/v/sBtwyYe1EqD c2YSjzgXajbq8uA+pbfuEekfvtoIVSra8BAfJ325MoH0c7pBo5k3eXBReFvJ jCHrVez2rmYWD6L3DVeY3qThIV7EyOTwEPXVd9OpG+R+JMfDbvFPY/3r7p4r ITRyFxxu1Z03Dd4lQbu318l6XKbm9UR9GiPbkhYLkH6oa8OHJ+fspnE695eD I+mXiq2HRCWqp6FocPSB6mlSv48ov+7/Ng0h54HkRW6kvtkesCpqnkbF0Akz UVcalxzzHp7vJ/EE5Wf3nCT91Fs9+UEBPiotqGJt2HFSLz6IZ1nI8VElRnep lMPkuaHucZ+iBR/VePSU9i9D0r9N1ny6dJCPEgmngl7sJvVLaSKx2ZqPyjto a+ljQGOpx+5DkfZ81N1L3/8S30X6q3n9ZbPd+agu9+HrGtvJfBqufPb7Oh9l s0DQY9Nmsp7zn7u9L+CjhD6rqNqT5xaL1HSW1Sp+ykknbvbqUSZc1FbM/Wct P/Xd38CnlMXE1cf3VBM0+KmrFcbfjw8zkZ4SaNWtyU89WPtRJn6QCfGkI/ke O/mpxc5Kf7H7mKiIFQkOPsJP2X/y4bvWQvrvG/aKeaH8VEeF/JyWYiY03CVN FEb5qVa21e7kO0x0MD5+raoSoLq8j9YlyzLRZlX6SDRGkIoy3VC4KJqBZ8be BUZ2M6gAl10feeT5zIjjPeWpJUTpuzz9mukwAM3ImhurBGdSX5ySdBqy+sHu Pa9b8XMm1SERmTx/qA/XCku2uGUIUw9mykTmyvXB/ubpgPu+syiBotuPVhr3 QkLcaSzLYja1YntcSueRHsz1y8i2UxChNEssrCLOduO7z9MC0R4RqqZ6Bd/0 v134exVr4P77OZRr7mhH7+lO2FaGnvx4TZSSm7V8cKdjB+RVLs2ttJtLqQil p8ZotkPdtVDQabUYpXVroEpd5hdmbHu1TXBUjMpebPNgT1Mr0gsHY69VzqOm pr4d+6D3E5ZLP6ZU7hGnjvMKPzwt/oFtGRm392SLU9HeYpDjfceceb7xZcoS 1M3zpWkJq79h2o42lwiSoM6diJDR8vmKw+JBSytGJaiuFbKBo6NVaH9TdcvY WpJaPOqxcvfmUhgv61P6+l6SUonR+6LuWQjlnpVlpepSVI34thJhuRwoPFwk G3RLijrhqPPE9dtThOi8GjW8LUXlrGQZ2Do9xfh3gy+i4VLUN8/38zdNpKJK xCswNFKK6rM7n5ixJBW+7vVjd+9JUZuH/4m94vAYDVvDa1OeSlEWrYUubDoZ oV9FbxR9lqKMJ1qE9adiMXkq+URAqRTl1FmRe14uFk5C2noG5VLUg9L8eamI gY7mKW55lRRV/cr16kK/KDDulTrXfpOimkJadxkLRcDAOWBXe4cUJXJ1rNlW IgQZAnKKyV1SVDrD6KWJyXXIx2VOOfZIUW1xksqzbwdirKozo69firo/W/ni aXF/JG/YoTQ0JEXxD9clZ8v6QrzqBy+dJUVpr/qwTTvKCz5OHj88R6Uo3x7u yymZv2Eak3ibzZaiVmr6LKhTcMH79VquORwp6uqPHy95Cx2hVllj4DspRcWL /JMyoWCDO8dPKOvwpCgWM0C/WN4I/3v7K039/3vg/wMWOUyF "]]}, Annotation[#, "Charting`Private`Tag$3193#3"]& ]}}, { DisplayFunction -> Identity, Axes -> {True, True}, AxesLabel -> { FormBox["\"x(t) - miles\"", TraditionalForm], FormBox["\"y(t) - miles\"", TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"ScalingFunctions" -> None}, PlotRange -> {{0, 6}, {0, 6}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"k=1\"", "\"k=2/3\"", "\"k=1/2\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ PointSize[0.5], EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.368417, 0.506779, 0.709798]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ PointSize[0.5], EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.368417, 0.506779, 0.709798]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ PointSize[0.5], EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.880722, 0.611041, 0.142051]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ PointSize[0.5], EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.880722, 0.611041, 0.142051]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ PointSize[0.5], EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.560181, 0.691569, 0.194885]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ PointSize[0.5], EdgeForm[None], Opacity[1.], AbsoluteThickness[1.6], FaceForm[ Opacity[0.3]], RGBColor[0.560181, 0.691569, 0.194885]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"FaceForm", "[", RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"FaceForm", "[", RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"EdgeForm", "[", "None", "]"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"FaceForm", "[", RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.741963943446167*^9, 3.7419640468942537`*^9, 3.741964138570786*^9, 3.741964708456184*^9, 3.746182952617836*^9},ExpressionUUID->"6e8a55a8-ab63-4fac-abdc-\ b79f9baee933"] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Below", " ", "you", " ", "can", " ", "experiment", " ", "with", " ", "sliding", " ", "the", " ", "ratio", " ", "of", " ", "w", " ", "and", " ", "b"}], "*)"}]}]], "Input", CellChangeTimes->{{3.741785808448811*^9, 3.741785815994812*^9}, { 3.741790640357924*^9, 3.7417907882290163`*^9}, {3.741790820179019*^9, 3.7417908233065367`*^9}, {3.741791073593916*^9, 3.741791094125527*^9}, { 3.741791130096526*^9, 3.7417911658720627`*^9}, {3.741791200830798*^9, 3.7417912291160717`*^9}, 3.741791284252391*^9, {3.741791353140658*^9, 3.741791415319227*^9}, {3.741791496618582*^9, 3.741791497558131*^9}, { 3.7417915588844*^9, 3.741791583143512*^9}, {3.7417916495288353`*^9, 3.741791649971796*^9}, {3.741791705540901*^9, 3.741791725736858*^9}, { 3.741791758898135*^9, 3.741791761221521*^9}, {3.7417918438899927`*^9, 3.741791846751339*^9}, 3.741791927520688*^9, {3.74179221658053*^9, 3.741792243217874*^9}, {3.74179231807321*^9, 3.7417923867608957`*^9}, { 3.741792436889818*^9, 3.741792442245586*^9}, {3.741792633023871*^9, 3.7417926347761927`*^9}, {3.741792685587316*^9, 3.7417927043175917`*^9}, { 3.741792759704863*^9, 3.7417927612143173`*^9}, 3.7417929449243*^9, { 3.741793250045899*^9, 3.741793266988772*^9}, {3.7417993548199*^9, 3.741799390502771*^9}, {3.7417994678327*^9, 3.741799469483871*^9}, { 3.741799529474811*^9, 3.7417995591062202`*^9}, {3.741799628620062*^9, 3.74179963522161*^9}, {3.741800461004833*^9, 3.74180047879873*^9}, { 3.741800528896194*^9, 3.741800533275537*^9}, {3.741800811280854*^9, 3.741800845845772*^9}, {3.741800915902722*^9, 3.74180093790117*^9}, { 3.741800978395851*^9, 3.74180101349165*^9}, {3.741801406402254*^9, 3.741801428040564*^9}, {3.7418014698484697`*^9, 3.74180147669936*^9}, { 3.741801514419366*^9, 3.741801549957515*^9}, 3.741801888045767*^9, { 3.741803093180375*^9, 3.7418031364882727`*^9}, {3.7418032533560038`*^9, 3.741803254459159*^9}},ExpressionUUID->"bfca766f-1d8d-484b-92f1-\ 8cdd2a99441c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"solution", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "/", "x"}], "-", RowBox[{"k", "*", RowBox[{"Sqrt", "[", RowBox[{"1", "+", RowBox[{ RowBox[{ RowBox[{"y", "[", "x", "]"}], "^", "2"}], "/", RowBox[{"x", "^", "2"}]}]}], "]"}]}]}]}], ",", RowBox[{ RowBox[{"y", "[", "5", "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"y", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "5", ",", ".00001"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", ".01"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"solution", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "1"}], "}"}], ",", "0", ",", "1.5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"TrackedSymbols", "\[RuleDelayed]", RowBox[{"{", "k", "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.741802774607621*^9, 3.741802774610539*^9}, { 3.741802836994091*^9, 3.7418029233127832`*^9}, {3.7418029747096453`*^9, 3.741802976258698*^9}, {3.741803030686398*^9, 3.741803034362055*^9}, { 3.741803220417677*^9, 3.7418032207858877`*^9}, {3.74185863054764*^9, 3.741858630993657*^9}},ExpressionUUID->"e6239c51-5a8f-4fee-b346-\ 0e8ab411ea51"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 0.374, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 1}, 0, 1.5}}, Typeset`size$$ = { 360., {153., 159.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$3321$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$3321$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`solution[ Pattern[$CellContext`x$, Blank[]]] = Part[ NDSolve[{ Derivative[ 1][$CellContext`y][$CellContext`x$] == \ $CellContext`y[$CellContext`x$]/$CellContext`x$ - $CellContext`k$$ Sqrt[1 + $CellContext`y[$CellContext`x$]^2/$CellContext`x$^2], \ $CellContext`y[5] == 0}, $CellContext`y[$CellContext`x$], {$CellContext`x$, 5, 0.00001}, Method -> "ExplicitEuler", "StartingStepSize" -> 0.01], 1, All, 2]; Plot[ $CellContext`solution[$CellContext`x], {$CellContext`x, 0, 5}, AspectRatio -> Automatic, AxesLabel -> {"x(t) - miles", "y(t) - miles"}, PlotRange -> {{0, 6}, {0, 6}}]), "Specifications" :> {{{$CellContext`k$$, 1}, 0, 1.5, Appearance -> "Labeled"}}, "Options" :> {TrackedSymbols :> {$CellContext`k$$}}, "DefaultOptions" :> {}], ImageSizeCache->{411., {202., 209.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.741964138827709*^9, 3.741964710600094*^9, 3.7461829540079155`*^9},ExpressionUUID->"4244e0f3-f90c-4577-802e-\ c52a001e2b03"] }, Open ]] }, WindowSize->{694, 671}, WindowMargins->{{Automatic, 867}, {Automatic, 59}}, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 4138, 120, 219, "Input",ExpressionUUID->"a1f41b3b-1061-4d89-baa7-85b1ee8c1e4a"], Cell[CellGroupData[{ Cell[4721, 144, 1099, 29, 67, "Input",ExpressionUUID->"58aa84af-db33-4d83-b012-94b5d7ffe73a"], Cell[5823, 175, 32311, 594, 331, "Output",ExpressionUUID->"6e8a55a8-ab63-4fac-abdc-b79f9baee933"] }, Open ]], Cell[38149, 772, 2121, 32, 67, "Input",ExpressionUUID->"bfca766f-1d8d-484b-92f1-8cdd2a99441c"], Cell[CellGroupData[{ Cell[40295, 808, 2478, 64, 162, "Input",ExpressionUUID->"e6239c51-5a8f-4fee-b346-0e8ab411ea51"], Cell[42776, 874, 2465, 51, 430, "Output",ExpressionUUID->"4244e0f3-f90c-4577-802e-c52a001e2b03"] }, Open ]] } ] *)