{VERSION 3 0 "SUN SPARC 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 "Heading 1" 0 3 1 
{CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 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 {SECT 0 {PARA 3 "" 0 "" {TEXT -1 32 "Definition of Permutation
 P(n,r)" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "perm := proc(n,r)
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "  n!/(n-r)!;" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 4 "end:" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 33 "Defi
nition of Combinations C(n,r)" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 40 "comb := proc(n,r)\n  n!/(r!*(n-r)!);\nend:" }}}}{SECT 0 {PARA 3 
"" 0 "" {TEXT -1 28 "Birthday Probability Problem" }}{PARA 0 "" 0 "" 
{TEXT -1 77 "What is the probability that 2 (or more) people share the
 same birthday in a " }}{PARA 0 "" 0 "" {TEXT -1 76 "group of n person
s?  The total number of possible birthday combinations such" }}{PARA 
0 "" 0 "" {TEXT -1 73 "that no one shares the same birthday is 365*364
*...*(365-n+1) = P(365,n)." }}{PARA 0 "" 0 "" {TEXT -1 70 "The total n
umber of birthday combinations is 365^n.  Consequently the " }}{PARA 
0 "" 0 "" {TEXT -1 58 "probability that no two people share the same b
irthday is " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "birthday := p
roc(n)\n  1.0 - perm(365,n)/(365^n);\nend:" }}}}{SECT 0 {PARA 3 "" 0 "
" {TEXT -1 37 "Examples of birthday probabilities..." }}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 13 "birthday(10);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+x<[p6!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
13 "birthday(20);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+OQQ9T!#5" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "birthday(30);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\"+FC;jq!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "birthday(40);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+
)4=B\"*)!#5" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 40 "Plot of birthday
 probability function..." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "
plot([[n,birthday(n)] $n=1..80]);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'C
URVESG6$7\\p7$$\"\"\"\"\"!F*7$$\"\"#F*$\"1++++gsRF!#=7$$\"\"$F*$\"1***
*****e;/#)F07$$\"\"%F*$\"1+++]7fN;!#<7$$\"\"&F*$\"1+++qtb8FF;7$$\"\"'F
*$\"1+++g$[i/%F;7$$\"\"(F*$\"1+++5.dBcF;7$$\"\")F*$\"1+++S#HNV(F;7$$\"
\"*F*$\"1+++!R$Qi%*F;7$$\"#5F*$\"1+++x<[p6!#;7$$\"#6F*$\"1+++$y89T\"FZ
7$$\"#7F*$\"1+++))yCq;FZ7$$\"#8F*$\"1+++_F5W>FZ7$$\"#9F*$\"1+++?^-JAFZ
7$$\"#:F*$\"1+++)>8!HDFZ7$$\"#;F*$\"1+++`+/OGFZ7$$\"#<F*$\"1+++`m2]JFZ
7$$\"#=F*$\"1+++zT6pMFZ7$$\"#>F*$\"1+++g_=\"z$FZ7$$\"#?F*$\"1+++OQQ9TF
Z7$$\"#@F*$\"1+++_L)oV%FZ7$$\"#AF*$\"1+++xI&pv%FZ7$$\"#BF*$\"1+++VB(H2
&FZ7$$\"#CF*$\"1+++zDW$Q&FZ7$$\"#DF*$\"1+++Sq*po&FZ7$$\"#EF*$\"1+++,#3
C)fFZ7$$\"#FF*$\"1+++BGfoiFZ7$$\"#GF*$\"1+++BZhWlFZ7$$\"#HF*$\"1+++v`o
4oFZ7$$\"#IF*$\"1+++FC;jqFZ7$$\"#JF*$\"1+++Pja/tFZ7$$\"#KF*$\"1+++z_ZL
vFZ7$$\"#LF*$\"1+++U&=(\\xFZ7$$\"#MF*$\"1+++Y'oJ&zFZ7$$\"#NF*$\"1+++*Q
KQ9)FZ7$$\"#OF*$\"1+++k5#=K)FZ7$$\"#PF*$\"1+++#3St[)FZ7$$\"#QF*$\"1+++
6#y1k)FZ7$$\"#RF*$\"1+++Wm>#y)FZ7$$\"#SF*$\"1,++)4=B\"*)FZ7$$\"#TF*$\"
1+++:h^J!*FZ7$$\"#UF*$\"1*****fr/.9*FZ7$$\"#VF*$\"1+++d&G#R#*FZ7$$\"#W
F*$\"1+++'o`)G$*FZ7$$\"#XF*$\"1+++&**e(4%*FZ7$$\"#YF*$\"1+++M%GD[*FZ7$
$\"#ZF*$\"1+++GSuZ&*FZ7$$\"#[F*$\"1+++H(zfg*FZ7$$\"#\\F*$\"1+++$4'zd'*
FZ7$$\"#]F*$\"1+++'zNPq*FZ7$$\"#^F*$\"1+++L*>Vu*FZ7$$\"#_F*$\"1+++$4X+
y*FZ7$$\"#`F*$\"1+++N6Q6)*FZ7$$\"#aF*$\"1+++G'p(Q)*FZ7$$\"#bF*$\"1+++)
)Gii)*FZ7$$\"#cF*$\"1+++\\NK$))*FZ7$$\"#dF*$\"1+++$fC7!**FZ7$$\"#eF*$
\"1+++%z\\m\"**FZ7$$\"#fF*$\"1+++%[%*)H**FZ7$$\"#gF*$\"1+++4mAT**FZ7$$
\"#hF*$\"1+++))z)3&**FZ7$$\"#iF*$\"1+++\\d4f**FZ7$$\"#jF*$\"1+++oQ/m**
FZ7$$\"#kF*$\"1+++!z/>(**FZ7$$\"#lF*$\"1+++t5$o(**FZ7$$\"#mF*$\"1+++Yq
&4)**FZ7$$\"#nF*$\"1+++I/S%)**FZ7$$\"#oF*$\"1+++8RE()**FZ7$$\"#pF*$\"1
+++jmj*)**FZ7$$\"#qF*$\"1+++gdf\"***FZ7$$\"#rF*$\"1+++Kv?$***FZ7$$\"#s
F*$\"1+++1)GX***FZ7$$\"#tF*$\"1+++c!3c***FZ7$$\"#uF*$\"1+++Wk['***FZ7$
$\"#vF*$\"1+++#y)>(***FZ7$$\"#wF*$\"1+++vVx(***FZ7$$\"#xF*$\"1+++#zP#)
***FZ7$$\"#yF*$\"1+++Y&4')***FZ7$$\"#zF*$\"1+++%o1*)***FZ7$$\"#!)F*$\"
1+++>L9****FZ-%'COLOURG6&%$RGBG$FW!\"\"F*F*-%+AXESLABELSG6$%!GF\\el-%%
VIEWG6$%(DEFAULTGF`el" 2 327 327 327 2 0 1 0 2 9 0 4 2 1.000000 
45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 
0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "4 \+
2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }