Acnode

Author

Eric W. Weisstein
June 5, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneCurves/Acnode.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Acnode.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Plot

ContourPlot[y^2+x^2+x^3==0,{x,-4,4},{y,-4,4},ContourStyle->Red,Axes->True,AxesStyle->Gray,Epilog->{PointSize[.02],Red,Point[{0,0}]}]

Reduce[y^2+x^2+x^3==0,{x,y},Integers]

Reduce[y^2+x^2+x^3==0&&x^2+y^2<10,{x,y},Integers]