with(plots):polygonplot3d([[0,0,0],[4,0,0],[0,8,0],[0,0,10],[4,0,10]],axes=boxed);pi := evalf(Pi);
p := seq([cos(t*pi/50)*(10+4*sin(9*(t*pi/50))),
sin(t*pi/50)*(10+4*sin(9*(t*pi/50))),
4*cos(9*(t*pi/50))],t=0..200):
polyhedraplot([p],polyscale=.4,polytype=hexahedron,scaling=CONSTRAINED,
orientation=[76,40]);?display3dPLOT3D(POLYGONS(
[[ 0.33574101, 0.02097727, 0.36991611],
[ 0.20036962, 0.44969037, 0.08735322],
[ -0.39187217, 0.30940382, -0.02656078]],
[[ -0.21567209, 0.20659840, 0.40100206],
[ 0.33574101, 0.02097727, 0.36991611],
[ -0.39187217, 0.30940382, -0.02656078]],
[[ 0.20036962, 0.44969037, 0.08735322],
[ -0.21567209, 0.20659840, 0.40100206],
[ -0.39187217, 0.30940382, -0.02656078]],
[[ 0.29940880, 0.26646118, 0.29891940],
[ 0.20036962, 0.44969037, 0.08735322],
[ 0.33574101, 0.02097727, 0.36991611]],
[[ -0.21567209, 0.20659840, 0.40100206],
[ 0.29940880, 0.26646118, 0.29891940],
[ 0.33574101, 0.02097727, 0.36991611]],
[[ 0.29940880, 0.26646118, 0.29891940],
[ -0.21567209, 0.20659840, 0.40100206],
[ 0.20036962, 0.44969037, 0.08735322]]),AXESSTYLE(FRAME));
?PLOT3D