WOLFRAM|DEMONSTRATIONS PROJECT

3D Legendre Lissajous Figures

​
x order
3
y order
5
z order
7
length
tube thickness
show box
high quality
Lighter
:Darker[ColorData[97][2],0.7] should be a valid color directive, an image, or a list of them.
Lighter
:Darker[ColorData[97][1],0.58] should be a valid color directive, an image, or a list of them.
Lighter
:Darker[ColorData[97][3],0.75] should be a valid color directive, an image, or a list of them.
General
:Further output of Lighter::arg will be suppressed during this calculation.
MapThread
:Object ColorData[97,ColorList]〚{2,1,3,4,5,6,7,8,9,10}〛 at position {2, 2​} in MapThread[{Specularity[White,#1],#2,Lighting#3}&,{{3,3,3,6,6,6,6,3,6,6},1,{{{Ambient,Lighter[Darker[ColorData[1][1],0.7],0.05]},{Directional,Darker[ColorData[97][2],0.7],ImageScaled[{0,2,2}]},{1},{Directional,Darker[ColorData[97][2],0.7],ImageScaled[{2,0,2}]}},9}}] has only 0 of required 1 dimensions.
Draw the curve with coordinates
(
P
k
(t),
P
m
(t),
P
n
(t))
, where
P
k
(t)
​
is the
kth
Legendre polynomial, and
t
ranges from -1 to +1.