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