{VERSION 2 3 "APPLE_68K_MAC" "2.3" }
{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 }{PSTYLE "" 0 256 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 23 "Cylindrical Coordinates
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 108 "The \+
cell below illustrates how Maple can be used to estimate a multiple in
tegral in cylindrical coordinates." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 217 "f := (r, theta) -> 3.0 - 2
 * r:\nest := n ->\n       evalf(sum(sum(f(j/n - 1/(2 * n), 2 * Pi * i
/n - Pi/n)*\n                     (2 * Pi / (n^2)) * (j/n - 1/(2 * n))
,\n                     i=1..n), j=1..3*n/2)):\nest(10);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 98 "The cell \+
below illustrates how maple can evaluate iterated integrals like the o
nes in this module." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 116 "int(int(f(r, theta) * r, theta = 0..2 * \+
Pi), r = 0..1.5);\n\nint(int(f(r, theta) * r, r = 0..1.5), theta = 0..
2 * Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0
 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }