{VERSION 2 3 "IBM INTEL NT" "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "restart:\nassume(h>0
,p>0,lam>0,lamp>0,m>0,c>0);\nassume(theta,real);\nassume(phi,real);" }
}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 68 "
This is a derivation of the compton wavelength formula using Maple. " 
}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 61 "The ide
a is to see what is involved making Maple arrive at a " }}{PARA 0 "" 
0 "" {TEXT -1 31 "halfway-decent looking result. " }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 37 "First the x and y momentu
m equations." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "eq1:=h/lam=
h/lamp*cos(theta)+p*cos(phi);\neq2:=0=h/lamp*sin(theta)+p*sin(phi);" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "sol:=solve(\{eq1,eq2\},\{p
hi,p\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "s:=allvalues(so
l[2]); # Careful! Pick the correct solution. " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 48 "p:= rhs(s[1]); # Careful again! Want positive p.
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 59 "Now  the energy equation, wit
h p's value substituted in it." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "eq4:= h*c/lam + m*c^2 = sqrt
((p*c)^2 + (m*c^2)^2)+h*c/lamp;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "s1:=solve(eq4,lamp);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 "s2:=s1-lam;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 71 "Finally we g
et that lambda-prime minus lambda = (h/mc)(1-cos (theta) )." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "simplify(s2); " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 4 }{VIEWOPTS 1 
1 0 1 1 1803 }