{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 3 1}{FONT 0 "-adobe-helve
tica-bold-r-normal--14-*" "helvetica" "Helvetica-Bold" 8 14 0 "He
lvetica-Bold" 12}{FONT 1 "-adobe-times-medium-r-normal--14-*" "ti
mes" "Times-Roman" 4 14 64 "Times-Roman" 12}{FONT 2 "-adobe-couri
er-medium-r-normal--14-*" "courier" "Courier" 4 14 192 "Courier" 
12}{FONT 3 "-adobe-new century schoolbook-bold-r-normal--17-*" "n
ew century schoolbook" "Times-Bold" 8 17 64 "Times-Bold" 17}
{SCP_R 1 0 17{COM_R 2 0{TEXT 3 28 "\015Maple in Science Education
\015"}}{COM_R 3 0{TEXT 1 87 "Semi-Classical Mechanics: Simple Boh
r Atom\012Darren Redfern, Tony Scott, Richard Pavelle\012"}}
{COM_R 4 0{TEXT 1 120 "Starting with the classical relations for 
momentum, force, and energy, the quantization rule is prescribed 
to momentum.\015"}}{COM_R 5 0{TEXT 1 84 " 2*Pi*hbar\011  =  Planc
k's constant  \015     \011             n  \011=  orbital quantum
 number"}}{COM_R 6 0{TEXT 1 97 "                  z\011  =  atomi
c charge number           \015                  e  \011=  electro
n charge"}}{COM_R 7 0{TEXT 1 97 "                  r\011   =  orb
it radius             \011     \015                  v  \011=  pa
rticle speed"}}{COM_R 8 0{TEXT 1 89 "                  m\011 =  e
lectron mass          \011    \015               En \011 =  orbit
 energy\015"}}{INP_R 9 0 "> "{TEXT 0 27 "Momentum := m*v*r = n*hb
ar;"}}{OUT_R 10 0 9{DAG :3n5\`Momentum`=3*7n3\`m`j2x0001n3\`v`p9n
3\`r`p9*5n3\`n`p9n4\`hbar`p9}}{INP_R 11 0 "> "{TEXT 0 29 "Force :
= m*v^2/r = z*e^2/r^2;"}}{OUT_R 12 0 11{DAG :3n4\`Force`=3*7n3\`m
`j2x0001n3\`v`j2x0002n3\`r`i2x0001*7n3\`z`p8n3\`e`pCpEi2x0002}}
{INP_R 13 0 "> "{TEXT 0 35 "Energy := En = (1/2)*m*v^2-z*e^2/r;"}
}{OUT_R 14 0 13{DAG :3n4\`Energy`=3n3\`En`+5*5n3\`m`j2x0001n3\`v`
j2x0002/3pBpF*7n3\`z`pBn3\`e`pFn3\`r`i2x0001p1D}}{INP_R 15 0 "> "
{TEXT 0 40 "solve(\{Momentum,Force,Energy\},\{r,v,En\});"}}{OUT_R
 16 0 15{DAG %2,4=3n3\`r`*Bn3\`n`j2x0002n4\`hbar`p8n3\`z`i2x0001n
3\`e`i2x0002n3\`m`p10=3n3\`v`*9p6p10pAp10pEj2x0001p12p8=3n3\`En`+
3*BpEp8p12j2x0004p6p14pAp14p16p22/3p10p8}}{COM_R 17 0{TEXT 1 81 "
\015This yields the quantized energy En proportional to 1/n^2 for
 the Hydrogen atom\015"}}{INP_R 18 0 "> "{TEXT 0 0 ""}}}{END}
