{VERSION 3 0 "IBM INTEL SOLARIS" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 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 "Maple Output" 0 11 1
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0
0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0
0 0 0 0 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 0 "" 0 "" {TEXT -1 29 "Sperical Harmonics: here \+
l=2" }}{PARA 0 "" 0 "" {TEXT -1 22 "======================" }}}{EXCHG
{PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "y22:=.25*sqrt(15/2/Pi)*sin(theta)^2
*exp(2*I*phi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$y22G,$*&*(-%%sqrt
G6#\"#I\"\"\")-%$sinG6#%&thetaG\"\"#F,-%$expG6#,$*&%\"IG\"\"\"%$phiGF9
F2F9F,*$-F)6#%#PiGF,!\"\"$\"++++]7!#5" }}}{EXCHG {PARA 0 "> " 0 ""
{MPLTEXT 1 0 53 "y21:=-sqrt(15/2/Pi)*sin(theta)*cos(theta)*exp(I*phi);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$y21G,$*&**-%%sqrtG6#\"#I\"\"\"-
%$sinG6#%&thetaG\"\"\"-%$cosGF/F1-%$expG6#*&%\"IGF1%$phiGF1F1F,*$-F)6#
%#PiGF,!\"\"#!\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "
y20:=.25*sqrt(5/Pi)*(1.5*cos(theta)^2-0.5);" }}{PARA 11 "" 1 ""
{XPPMATH 20 "6#>%$y20G,$*&*&-%%sqrtG6#\"\"&\"\"\",&*$)-%$cosG6#%θ
G\"\"#F,$\"#:!\"\"$!\"&F7\"\"\"F:F,*$-F)6#%#PiGF,!\"\"$\"#D!\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "plot3d(Re(y22),phi=0..2*Pi,
theta=0..Pi, coords=spherical, axes=framed, labels=[x,y,z],scaling=CON
STRAINED);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%%MESHG6#7;7;7%\"\"!F)F)7%
$\"+3>\"**e)!#8F)$\"+qeoCl!#77%$\"+uJ1(p'F0F)$\"+.!y$*\\#!#67%$\"+!e%y
k@F6F)$\"+\"H_iA&F67%$\"+DvUG[F6F)$\"+'z\"3j$)F67%$\"+5>R9()F6F)$\"+k;
oN6!#57%$\"+Qbol8FFF)FH7%$\"+?w$)G>FFF)$\"+h\"\\+[\"FF7%$\"+QX#*3DFFF)
$\"+e#G&[9FF7%$\"+iI3YIFFF)$\"+<*G