Peninsula Surface

Author

Eric W. Weisstein
May 27, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Surfaces/PeninsulaSurface.nb.

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

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

Plot

With[{r=2},ContourPlot3D[x^2+y^3+z^5==1,{x,-r,r},{y,-r,r},{z,-r,r}]]

<<ImplicitPlot3D`

WriteLiveForm["peninsul.m",
	ImplicitPlot3D[x^2+y^3+z^5==1,{x,-4,4},{y,-4,4},{z,-4,4},
	   ViewPoint->{-0.28, 2.98, 1.6},
   ViewVertical->{0, -0.4, 1.5},Boxed->False]
]