#Header Begins--Do not remove##################################################
#
#	Maple code to plot a sphere of radius one.
#
#	(c) Eugene Fiume, University of Toronto, 1995.
#
#	You are permitted to use this code for noncommercial, educational
#	purposes only.  This header must not be removed from this file.
#
#Header Ends--Do not remove####################################################

x := sin(phi)*sin(theta):
y := sin(phi)*cos(theta):
z := cos(phi):

plot3d( [x, y, z],
	theta=0..2*Pi, phi=-Pi..Pi,
	title=`Sphere of radius 1 defined parametrically`,
	scaling=constrained,
	axes=box,
	style=patch);

#
#	Change style, color, projection, etc. interactively.
#