{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 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 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 21 "Spherical Coordinates" }
}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 47 "The foll
owing cell shows how Maple can convert " }{TEXT 256 39 "from spherical
 to Cartesian coordinates" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 279 "x := (rho, phi, the
ta) -> rho * sin(phi) * cos(theta):\ny := (rho, phi, theta) -> rho * s
in(phi) * sin(theta):\nz := (rho, phi, theta) -> rho * cos(phi):\n\nsp
herical := (rho, phi, theta) ->\n    [x(rho, phi, theta), y(rho, phi, \+
theta), z(rho, phi, theta)]:\n\nspherical(5, Pi/2, Pi/4);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 52 "The follo
wing cell shows how Maple can convert from " }{TEXT 257 34 "Cartesian \+
to spherical coordinates" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 391 "rho   := (x, y, z) \+
-> sqrt(x^2 + y^2 + z^2):\ns     := (x, y, z) -> sqrt(x^2 + y^2):\nphi
   := (x, y, z) -> arccos(z/rho(x, y, z)):\n\ntheta := proc(x, y, z)  \+
\n      if evalf(x) >= 0 then \n         arcsin(y/s(x, y, z));\n      \+
else\n         Pi - arcsin(y/s(x, y, z));\n      fi;\nend:\n\nsphere :
= (x, y, z) ->\n      [rho(x, y, z), phi(x, y, z), theta(x, y, z)]:\n
\nsphere(5 / sqrt(2), 5 / sqrt(2), 0);" }}}}{MARK "3 0 0" 249 }
{VIEWOPTS 1 1 0 1 1 1803 }