{VERSION 3 0 "IBM RISC UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 33 "Begin by loading the plot \+
library" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}
}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 17 "A
nimate the curve" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "animat
e([sin(u*t*2)+cos(u*t*3), sin(u*t)-cos((u*t)^2), t=0..1],\nu=0..2*Pi, \+
frames=60, numpoints=100);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 45 "Now try to curves separated by a tiny amo
unt." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 186 "animate(\{[sin(u*t
*2)+cos(u*t*3), sin(u*t)-cos((u*t)^2), t=0..1],\n[sin(0.1+u*t*2)+cos(0
.1+u*t*3), sin(0.1+u*t)-cos((0.1+u*t)^2), t=0..1]\}, u=0..2*Pi, frames
=60, numpoints=100, color=red);" }}}}{MARK "6" 0 }{VIEWOPTS 1 1 0 1 1 
1803 }