{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG }{EXCHG {PARA 0 "" 0 "" {TEXT -1 20 "BusyArcLengthA10.m
ws" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 108 "We
 set up an integral to find the arc length of a parametric curve, and \+
then let Maple do the heavy lifting." }}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 36 "####################################" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "x := t -> 5*cos(t) - cos(5*t
);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "y := t -> 5*sin(t) - \+
sin(5*t);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 36 "####################
################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "tint :=
 0..Pi/2;  " }{TEXT -1 22 "The parameter interval" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 36 "####################################" }}}{EXCHG }
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "xdot := D(x);  " }{TEXT -1 
18 "Derivative of x(t)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "y
dot := D(y);  " }{TEXT -1 18 "Derivative of y(t)" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 41 "#########################################" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "hyp := sqrt( xdot^2 + ydot^2
 ); " }{TEXT -1 20 "Arc-length integrand" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 41 "#########################################" }}}{EXCHG }
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Int(hyp(u), u=tint);  " }
{TEXT -1 19 "Arc-length integral" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "Arc_Length := value(%);  " }{TEXT -1 21 "Evaluate the
 integral" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "##############
####################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }}{MARK "25" 0 }{VIEWOPTS 1 1 
0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }