(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 7788, 212] NotebookOptionsPosition[ 7111, 182] NotebookOutlinePosition[ 7464, 198] CellTagsIndexPosition[ 7421, 195] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Cusp", "Title"], Cell[CellGroupData[{ Cell["Author", "Subsection"], Cell["\<\ Eric W. Weisstein June 11, 2008\ \>", "Text"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/PlaneCurves/Cusp.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/PlaneCurves/Cusp.nb"], None}], "." }], "Text"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/Cusp.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/Cusp.html"], None}], "." }], "Text"], Cell["\<\ \[Copyright]2008 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Plot", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "==", RowBox[{"y", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", ".1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"ContourStyle", "\[Rule]", "Red"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".05", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxdWHlczOkfL3IsJX72KAaRRBvraJc2vHPERhS7i1wdSnKWUJGQpNoctYlN tJWUigijg54aFYoOOnSoaapJqSnp1OGn7/N894+eV69Xr3nNzDOf8318J1se WG89SE5O7ht5Obn+/0bybjN6rLsgR0/K+tzgDrFKF84+L/X6/sAX8pI7nQjS a7QZL+4jldu6Gn7K7MSjfaXCfaV9RPH2fGPR8U5cP5NoYrumj8yd1386kbzy lzHlol6yWlln/y7tTuzv/7iwl5zIONQQW9mB3C89f/rM7CX/cKcDUiUd8Z2w HrLQy21K6PIO7JL9uOC8cg9x9qp3H13bjrL+r+/rJmp+GpkXb7bDb0ebq+un z2Qnd9rxTK07s/boZ9K933qOw7B2FHevStxX3EVqJm4wPBbUhlV+Uw39pnaR 1GvnhunbtOGaqVPkvtROwoU7rw2tLutCxlp0krQz+5Y3prdiWdpKa9/oDqK3 1KVZ57dWxHP5tpPNDzd9Y6feirNVSuGNl9sJLVsr7JdkDFHd2E6sKgucH5/4 hImzzn254tFGvpnVdWhPXQumGfYH0Eq2e3/nlV7SAh/XBSYxjq3kFVffFgSb 3VBfvb2VVM5QinfRaYGmlnDesj2fyB23iT+undoC/7CrzRvXfSKBXL0+Qm/F mq1mh1rIhT7fnFKfjyjxzDtpa9FCVuf2bfY49hH+/ekatpDJDWajX1c1Q2nu 0wnY/JHYcPVqhvze3427/JqJvmOV8RrdZnSEPr8h/bOZtJ5WOHy5rQmDuLya yeDIis8HxzXB/K1ikOItGfu+DAnDbETl3o0k5P0mx77kRlScUvr5UkwDeTyn YaVRfgMquH59IM9fLXMfYt6A4KDYD7nCelavBvx819FISVBPzOwVbZf31kPr jlyy/vP3RDZeXN0XVYcPoaUzL/ZIWb51sBRcO5xZLSWLb8cYHQmoQ7L60Ryb SikxsS0equ1bh0SuP1Jyd5JTp5X2e9T6zUtPl6shL2L+ODvqdS2mc/WvJjpc v2thLM1OVk+oIr5/aQfVPpEi651K94XpVWS3/Qjl8OFSBHD1k7B4pRjTfxZJ iDgq7/wSWQ0ef9trtElTQk4eKjAxN6xBQErym5Itlayf1YgMUftr5WMx2VJa fkt1ajUUuHvExP3ZqBVluVWQLW94f2xmBcuvCoo34ySGV8vJsWW/Fxj/rwpe 6ioKqvbviFvCwYUWDySoGPkw9VlAGZt3CYTGR5wNKkrJr4GtlpfWS6BptitY J6GU/PD3fT3nnySo4upfyva3EqEXdHzGnS0h4nUHrkf4VsInLL1LMqSEzX8l jl6OkTs7v5hk1EWdrplRCRNuX4qJ+l7tCbXZYmTlqZqfNn1LpEsnt1aoipHM XV/I6iPGTdvAr3+FROPpFmWhsALPfvGOzTcuJNuHaRWKPMvxfs/a+ZKxBcTZ X3XU5CHl0Ob6kc/yf4fJCSG+7ePzSbCC+4j7XWXo0WyY/sj5Dcu3DGXVI4Ys qX5Nsp/mn1ZKKUUg15/XJKDPddQR61LkedYZ7KrLY/mUQqYm6I68lUeidHda WviXQPnoJ0HIuDwSerikSTW7GN7LnXxGmuWy+rzF7wUmnyN8s8lsUfTi9Hlv 4flBf0zsg1fk9vPfpp4VF+IDV88sopA58V8jv0LUFL/xPZqRyeIrRGRznezY hkzyXLVW60VdAfpyVm/u83tB4jXuWenK8jFifKDPHMkzVq98+MR2ese+Tyc3 rXpMnQ3eQP6ftFePlNPJwkUlOwqi8mB/YJBVlreI4WMeVGQv1dLtRGRuU1Nf uW8eZO37BAE7ReQPbt/zEMrVQ8TiyUX0pdixtx1SyOFgD0m3KAfCHdl5mywJ ez8bKlnOG+ZbPSE53L6+RDeXXxJZL1dyPnfpS7hLi0NnHUhk8b6EWv/1nxPI Xncnj3KHLLxQMJCTbEwg/t9rud8/nom5s1OLUofHs3hfQKZYkBdnJyQnNw1X XJDxHPpLwuxs9j9k/PAMkQf+iG4+dZ9sUX5kYN6Zjjgu/jjiVW8i2DgpHad0 d097MOoe608a7CqlQbLgu+TcceshE7XScOOu2PRlYiwpilZY9WX1U3gPS9Pt enyb5SfCrn/Gh4dZRpGSnY6m9QdT4bY7af8yz1vEYUasUXRCCmLVt2Q/zYkg X7hDsF/Fw0LFI5yoNG1Kmx2bhNdcPKHE3nqSQHljEsJ1XFy8UkJY/Eno3pZo qDg3hNRnLh76bWMisnZ2qw9eHEIELT3lntceYeRbPdvHxldZPELEZTubNfZd IaL7JSnjTjxAikJz5fkxAcQ8faWRQ+R9WJ5vGzy72p/V7x6coj6+XhPqRsY7 blPTC4rFwbgff402/YtEbVmx0GF6DIoDnAP/PH6aXOE+fwt3G6bNGR6zlzyJ atvQKx8Jte/OJOoscyKLwwdfyXX/F2J3Ow2LYDPSy+UbDLuh/X3dSqY+iU8S TgmGSUp8UdvGzUSoKh7tGe8FOZdHNtaHJxB/7v6vr3dpfr1fQNQkbqkxx76+ vrcmZcRJARnFAaM9m5OUxxP49x8a9b+P/76/pz8+ARL5+08I+++HEvv90fe5 38d/8XX1/9+CtSz+XCcuflxm+ZmP5fIDn/9sKZc/Rm6l9SGXufog7wit3w1a P/D1db3F1RerWP1H0PqjmvVHRPsDvn9Xaf8gz/pbWMT1F9OyaP/n2nD9Bz8f e7Zz84F1bH6u0/lBhIzO13o6X+Dnbz2dP2hEFxnYXkiFYJHdaM3YSPDzbEXn GUFpazXahqRh6N76jNURd8DvR8vJDYajTe/Che2PA90faLL9Okj3C/z+BdP9 wyG2n7PofoLf30a6v/Bk+61G9xtn2f430f0Hjw8zKD7AgOGHI8UPhDF8SaL4 Ah5/xlL8gS3DpzCKT+DxK4biF8DwzY3iG7QZ/lVR/AOPj99SfIQhw8+TFD8R wvC18wqHr+Dx15viL+IYPstRfMZbht/jczn8Bo/vtym+o+8Fxf8yiv8IYvyQ RfkBWow/XCl/gOeXdZRfEMT45wzlHyQxfppE+Qk8fzVT/sJFxm8vKb/BxuDv /HGJpfCm/IdAxpcdlC8xgE+xm/GtgPItNjE+llA+xgLG12WUr8HzeSTlc9QI Pi36YYQYEaLSzJ4Hhahg/H+H8j8mM32QTvUBeD3RFr8iPHNCMd4xveFB9Qai 9PPtgmdK8IbqEyxg+mUy1S/g9c1Dqm/gw/RPB9U/cGL66DTVR+D1kxLVT3Bj +qqW6iusWGmfsGF6NTq5PasA1X/VCKyueqelKMYz2RvVonPV0O353qLBUQxe v+lFpFxJF4lRljNlwqFxNTDg9FAljjO99zfVe2hkejCL6kHwevHNpbrMQ4sk IPfaav8dLMVDdOvqLZXAiunL81Rfom3CIPHQr/rzSaK24kKtKgzQpxAx/apG 9StuM31bTfUtVjH9G0f1LxYyfZxI9TEG6Gd0M33dQ/U1tjL9rUn1Nwboc2Qw /X6V6ncImb4vovoe15n+L6P6HwP8AeSZf9hG/QNkzF/0cP1oApj/aKP+AwP8 CdSYfxlJ/Qt+Y/7mIvU3OMf8TzH1P+D9kfBJ1TtVhxYkMf8URf0TKpi/0qD+ CgP8F7Yxf+ZN/RmGMf82hfo37GD+TkD9HXj/d5D6P5gyf+hB/SF0mX98QP0j njJ/uYT6Swzwn0hh/jSI+lNImH9dQf0rPjN/W0T9LQb4X0xi/vgi9cc4wvzz W+qfocf8tQ311xjgv+HK/HkO9edYxfz7XurfMcDfg/f/16j/B/98gK53HwY8 P8CA5wsY8PxB//9MWIvl "], {{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwl1FV4EAQUBeA1U7qkpUEaCSmV7p5I56RjAyREpDuU7i6REGmlO0S6UzoE FJBu/n08/Oe+nNdz00dGR0QFBgQEfCBibhDBhBBKGLEIj+nwIbGJQ1ziEZ8E JCQRiUlCUj4iGclJQUpSkZo0fExa0pGeDGQkE5nJQlY+IRvZyUFOcpGbPOTl U/KRnwIU5DMKUZgiFKUYn/MFX1KcEpSkFKUpQ1nKUZ4KVKQSlalCVapRnRrU JIKvqMXX1KYOdalHfRrQkEY0pglNaUYk39CcFrSkFa1pQ1va0Z4ORBFNRzrR mW/pQle60Z3v6MH39OQHetGbPvSlH/0ZwEAGMZghDGUYwxnBSH7kJ0YxmjGM ZRzjmcBEJjGZKUxlGtOZwUxmMZs5zGUe81nAzyzkFxaxmCUs5VeW8RvLWcFK VrGaNazld/5gHevZwEY2sZktbGUb29nBTnaxmz3s5U/28Rf7OcBBDnGYIxzl GMc5wUlOcZoznOUc57nA31zkEpe5wlWucZ0b3OQW/3CbO9zlX/7jHvd5wP88 5BGPecJTnvGcF7zkFa95w1tixh9IEMGEEEoYsQgPfP8j3gHuAYF1 "]]}}], Epilog->{ PointSize[0.05], RGBColor[1, 0, 0], PointBox[{0, 0}]}, Frame->True, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}, Ticks->None]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 92}, {35, Automatic}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 21, 0, 92, "Title"], Cell[CellGroupData[{ Cell[625, 26, 28, 0, 44, "Subsection"], Cell[656, 28, 55, 3, 49, "Text"], Cell[714, 33, 266, 8, 49, "Text"], Cell[983, 43, 283, 10, 49, "Text"], Cell[1269, 55, 99, 2, 30, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1405, 62, 23, 0, 80, "Section"], Cell[CellGroupData[{ Cell[1453, 66, 784, 22, 63, "Input"], Cell[2240, 90, 4831, 87, 447, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)