home
sections
references
cd:s
about
links
heptagon
no margins
Maple image
Maple code to generate this
with(plots);
q:='q' : a:=2 : b:=1 : c:=2 : m:=3 : n:=4 :
f := q*2*Pi/50 : r := a+b*cos(m*t+f) : z := c*sin(m*t+f):
tstruct := [r*cos(n*t+f), r*sin(n*t+f), z] :
plotstruct := [ seq (tubeplot(tstruct, t=0..2*Pi, radius=1/3,
light=[0,0,1,1,1], ambientlight=[0.5,0.5,0.5],
scaling=CONSTRAINED, numpoints=25, tubepoints=15,
orientation=[87,114], style=PATCHNOGRID, shading=Z),
q = 0..49) ] : display3d( plotstruct, insequence=true );
Page updated Dec 14, 1999 at 18:45 • Email: jens@panix.com
All content copyright © Jens Johansson 2024.
No unathorized duplication, copying, mirroring,
archival, or redistribution/retransmission allowed! Basically, no damned unauthorized anything allowed! But then OTOH how the hell could I stop you..
Any offensively categorical statements passed off as facts herein should only be construed
as my very opinionated opinions.