RosettaCodeData/Task/Draw-a-cuboid/Maxima/draw-a-cuboid.maxima
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
213 B
Text

load(draw)$
draw3d(xu_grid=100, yv_grid=100, surface_hide=true,
palette=gray, enhanced3d=[x - z / 4 - y / 4, x, y, z],
implicit(max(abs(x / 4), abs(y / 6), abs(z / 8)) = 1,
x,-10,10,y,-10,10,z,-10,10))$