Draw a sphere: Difference between revisions
m
adding maxima
(→{{header|Python}}: Incorporating into right place in page.) |
Capra Hircus (talk | contribs) m (adding maxima) |
||
Line 1,098:
Mathematica has many 3D drawing capabilities. To create a sphere with radius one centered at (0,0,0):
<lang Mathematica>Graphics3D[Sphere[{0,0,0},1]]</lang>
=={{header|Maxima}}==
<lang maxima>/* 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))$</lang>
=={{header|Openscad}}==
| |||