Advanced Programming Guide

276 • Chapter 6: Programming with Maple Graphics2.1.–2. –1. 0. 0.1.2.3. x–1.–2.2.1.0. x–2. –1. 0.1.2.3.–1.–2.2.1.–2. –1. 0. 0.1.2.3. x–1.–2.2.1.–2. –1. 0. 0.1.2.3. x–1.–2.2.1.–2. –1. 0. 0.1.2.3. x–1.–2.2.1.–2. –1. 0. 0.1.2.3. x–1.–2.You can also create similar animations with other series approximations,such as Taylor, Padé, and Chebyshev–Padé, with the generalizedseries structures that Maple uses.Two and Three DimensionsAnimation sequences exist in both two and three dimensions.Example The following procedure ties a trefoil knot by using thetubeplot function in the plots package.> TieKnot := proc( n:: posint )> local i, t, curve, picts;> curve := [ -10*cos(t) - 2*cos(5*t) + 15*sin(2*t),> -15*cos(2*t) + 10*sin(t) - 2*sin(5*t),> 10*cos(3*t) ]:> picts := [ seq( plots[tubeplot]( curve,> t=0..2*Pi*i/n, radius=3),> i=1..n ) ];> plots[display]( picts, insequence=true, style=patch);> end proc:You can tie the knot in, say, six stages.> TieKnot(6);Here is the static version.> display( TieKnot(6) );