Death Star: Difference between revisions
Content added Content deleted
m (Now can remove axes completely since recent Makie updates) |
(Maple Version) |
||
Line 913: | Line 913: | ||
Output: |
Output: |
||
[[File:Death_Star_LSL.jpg|200px|Death Star]] |
[[File:Death_Star_LSL.jpg|200px|Death Star]] |
||
=={{header|Maple}}== |
|||
<lang Maple>with(plots): |
|||
with(plottools): |
|||
plots:-display( |
|||
implicitplot3d(x^2 + y^2 + z^2 = 1, x = -1..0.85, y = -1..1, z = -1..1, style = surface, grid = [50,50,50]), |
|||
translate(rotate(implicitplot3d(x^2 + y^2 + z^2 = 1, x = 0.85..1, y = -1..1, z = -1..1, style = surface, grid = [50,50,50]), 0, Pi, 0), 1.70, 0, 0), |
|||
axes = none, scaling = constrained, color = gray)</lang> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |