12 lines
387 B
Plaintext
12 lines
387 B
Plaintext
/* Two solutions */
|
|
plot3d(1, [theta, 0, %pi], [phi, 0, 2 * %pi],
|
|
[transform_xy, spherical_to_xyz], [grid, 30, 60],
|
|
[box, false], [legend, false])$
|
|
|
|
load(draw)$
|
|
draw3d(xu_grid=30, yv_grid=60, surface_hide=true,
|
|
parametric_surface(cos(phi)*sin(theta),
|
|
sin(phi)*sin(theta),
|
|
cos(theta),
|
|
theta, 0, %pi, phi, 0, 2 * %pi))$
|