{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 3 1}{FONT 0 "-adobe-helve
tica-bold-r-normal--14-*" "helvetica" "Helvetica-Bold" 8 12 0 "He
lvetica-Bold" 12}{FONT 1 "-adobe-times-medium-r-normal--14-*" "ti
mes" "Times-Roman" 4 12 64 "Times-Roman" 12}{FONT 2 "-adobe-couri
er-medium-r-normal--14-*" "courier" "Courier" 4 12 192 "Courier" 
12}{FONT 3 "-adobe-new century schoolbook-bold-r-normal--17-*" "n
ew century schoolbook" "Times-Bold" 8 12 64 "Times-Bold" 17}{FONT
 4 "-adobe-new century schoolbook-bold-r-normal--17-*" "new centu
ry schoolbook" "Times-Bold" 8 12 64 "Times-Bold" 17}{FONT 5 "-ado
be-new century schoolbook-bold-r-normal--17-*" "new century schoo
lbook" "Times-Bold" 8 12 64 "Times-Bold" 17}{FONT 6 "-adobe-new c
entury schoolbook-bold-r-normal--17-*" "new century schoolbook" "
Times-Bold" 8 12 64 "Times-Bold" 17}{FONT 7 "-adobe-new century s
choolbook-medium-r-normal--*-240-*-*-*-*-*-*" "new century school
book" "Times-Roman" 4 24 64 "Times-Roman" 24}{SCP_R 1 0 16{COM_R 
2 0{TEXT 6 26 "Maple in Science Education"}}{COM_R 3 0{TEXT 1 60 
"\015Quantum Optics\012Darren Redfern, Tony Scott, Richard Pavell
e\015"}}{COM_R 4 0{TEXT 1 196 "This application involves optical \+
transitions between two orbitals on different atoms.  For a parti
cular geometry this involves 3-dimensional integration of the pro
duct of Gaussian distributions.\015"}}{COM_R 5 0{TEXT 1 39 "Tell \+
Maple that P and S are positive.\015 "}}{INP_R 6 0 "> "{TEXT 0 25
 "assume(P>0): assume(S>0):"}}{COM_R 7 0{TEXT 1 35 "\015Construct
 the integrand argument.\012"}}{INP_R 8 0 "> "{TEXT 0 24 "p1 := (
X^2+Y^2+Z^2)/P^2:"}}{INP_R 9 0 "> "{TEXT 0 37 "p2 := subs(X=X-A,Y
=Y-B,Z=Z-C,P=S,p1):"}}{INP_R 10 0 "> "{TEXT 0 31 "arg := (2*X^2-P
^2)*exp(-p1-p2);"}}{OUT_R 11 0 10{DAG :3n3\`arg`*5+5*3n3\`X`j2x00
02p8*3n3\`P~~`p8i2x0001j2x0001(3n3\`exp`,2+5*5+7p5p11*3n3\`Y`p8p1
1*3n3\`Z`p8p11p11pCi2x0002pF*5+7*3+5p6p11n3\`A`pFp8p11*3+5p1Dp11n
3\`B`pFp8p11*3+5p22p11n3\`C`pFp8p11p11n3\`S~~`p28pFp11}}{INP_R 12
 0 "> "{TEXT 0 86 "int(int(int(arg,X=-infinity..infinity),Y=-infi
nity..infinity), Z=-infinity..infinity);"}}{OUT_R 13 0 12{DAG +5*
D(3n3\`exp`,2+3*5+7*3n3\`C`j2x0002j2x0001*3n3\`B`pCpE*3n3\`A`pCpE
pE+5*3n3\`S~~`pCpE*3n3\`P~~`pCpEi2x0001p26pEp1Dj2x0003p22j2x0005+
9*5p16pCp22pCi2x0002*3p1Dj2x0004pE*5p22pCp1DpCpC*3p22p3ApEpEn3\`P
i`/3p2BpCp1B/3i2x0007pCp26*Bp2pEp1Dp2Ep22p2Ep1B/3i2x0005pCp48p4Ap
E}}{INP_R 14 0 "> "{TEXT 0 17 "ans := factor(\");"}}{OUT_R 15 0 
14{DAG :3n3\`ans`+3*D(3n3\`exp`,2+3*5+7*3n3\`C`j2x0002j2x0001*3n3
\`B`pFp11*3n3\`A`pFp11p11+5*3n3\`S~~`pFp11*3n3\`P~~`pFp11i2x0001p
29p11p20j2x0003p25j2x0007n3\`Pi`/3p2EpF+7p18i2x0002p1Fp11p24p11p1
1p1E/3i2x0007pFp29}}{COM_R 16 0{TEXT 1 92 "Although the final ans
wer looks simple, this would be a very tedious integral to do by \+
hand."}}{INP_R 17 0 "> "{TEXT 0 0 ""}}}{END}
