{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal " -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple O utput" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Time s" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 256 25 "Problema dos Desencontr os" }}{PARA 256 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 10 "11/10/2007" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 257 "" 0 "" {TEXT -1 48 "C\341lculo do n\372mero D_n de dese ncontros de ordem n" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Des := proc(n::integer)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " local k;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 " RETURN(sum((-1)^k * (n!/k!), k=0..n));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$DesGf*6#'% \"nG%(integerG6#%\"kG6\"F,-%'RETURNG6#-%$sumG6$*()!\"\"8$\"\"\"-%*fact orialG6#9$F7-F96#F6F5/F6;\"\"!F;F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "Des(5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#W" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "seq(Des(i),i=2..15);" }} {PARA 11 "" 1 "" {XPPMATH 20 "60\"\"\"\"\"#\"\"*\"#W\"$l#\"%a=\"&L[\" \"''\\L\"\"(h\\L\"\")qXo9\"*T[@w\"\"+KHz!H#\",\\55r?$\"-Md^m5[" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 "" {TEXT -1 24 " C\341lculo da probabilidade" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Digits := 20;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 22 "for i from 2 to 20 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " i, evalf(Des(i)/i!);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#? " }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"#$\"5+++++++++]!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"$$\"5LLLLLLLLLL!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"%$\"5++++++++]P!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"&$\"5nmmmmmmmmO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"'$\"5 cbbbbbbb!o$!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"($\"59dG9dG9dyO! #?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\")$\"5WWWWWW%>)yO!#?" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"*$\"5'e/ADr)=zyO!#?" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$\"#5$\"5r&G9dGk%zyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#6$\"5F+fgL#R%zyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#7$\"51*f\"G@8WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#8$\"5 pg6pg6WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#9$\"5H1>;s6WzyO!#? " }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#:$\"5#**=(Rr6WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#;$\"5p%)\\Wr6WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#<$\"5Bt@Wr6WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6$\"#=$\"5UHBWr6WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#>$\"5?@B Wr6WzyO!#?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"#?$\"5h@BWr6WzyO!#?" } }}{EXCHG {PARA 257 "" 0 "" {TEXT -1 24 "Gr\341fico da probabilidade" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots);" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "grafprob := proc(n::integer)" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 " local w,i,j;" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " for i from 2 to n do" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " w[i]:=Des(i)/i!;" } {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " od;" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "pointplot(\{seq([j,w[j]],j=2. .n)\},symbol=circle,symbolsize=8,color=red,axes=boxed,title=`Probabili dade para n em [2,20]`,style=LINE):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#7Z%(animateG%*animate3dG%-animatecurve G%&arrowG%-changecoordsG%,complexplotG%.complexplot3dG%*conformalG%,co nformal3dG%,contourplotG%.contourplot3dG%*coordplotG%,coordplot3dG%-cy linderplotG%,densityplotG%(displayG%*display3dG%*fieldplotG%,fieldplot 3dG%)gradplotG%+gradplot3dG%,graphplot3dG%-implicitplotG%/implicitplot 3dG%(inequalG%,interactiveG%-listcontplotG%/listcontplot3dG%0listdensi typlotG%)listplotG%+listplot3dG%+loglogplotG%(logplotG%+matrixplotG%(o deplotG%'paretoG%,plotcompareG%*pointplotG%,pointplot3dG%*polarplotG%, polygonplotG%.polygonplot3dG%4polyhedra_supportedG%.polyhedraplotG%'re plotG%*rootlocusG%,semilogplotG%+setoptionsG%-setoptions3dG%+spacecurv eG%1sparsematrixplotG%+sphereplotG%)surfdataG%)textplotG%+textplot3dG% )tubeplotG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "grafprob(20); " }}{PARA 13 "" 1 "" {GLPLOT2D 624 624 624 {PLOTDATA 2 "6(-%'CURVESG6# 757$$\"\"#\"\"!$\"5+++++++++]!#?7$$\"\"$F*$\"5LLLLLLLLLLF-7$$\"\"%F*$ \"5++++++++]PF-7$$\"\"&F*$\"5nmmmmmmmmOF-7$$\"\"'F*$\"5cbbbbbbb!o$F-7$ $\"\"(F*$\"59dG9dG9dyOF-7$$\"\")F*$\"5WWWWWW%>)yOF-7$$\"\"*F*$\"5'e/AD r)=zyOF-7$$\"#5F*$\"5r&G9dGk%zyOF-7$$\"#6F*$\"5F+fgL#R%zyOF-7$$\"#7F*$ \"51*f\"G@8WzyOF-7$$\"#8F*$\"5pg6pg6WzyOF-7$$\"#9F*$\"5H1>;s6WzyOF-7$$ \"#:F*$\"5#**=(Rr6WzyOF-7$$\"#;F*$\"5p%)\\Wr6WzyOF-7$$\"#F*$\"5?@BWr6WzyOF-7$$\"#?F*$\"5h @BWr6WzyOF--%&STYLEG6#%%LINEG-%&TITLEG6#%?Probabilidade~para~n~em~[2,2 0]G-%*AXESSTYLEG6#%$BOXG-%'SYMBOLG6$%'CIRCLEGFI-%'COLOURG6&%$RGBG$\"*+ +++\"!\")$F*F*Fir" 1 6 4 1 8 0 2 6 1 2 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "9 1 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }