{VERSION 2 3 "APPLE_PPC_MAC" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 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 "Geneva" 1 10 0 0 0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 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 } {PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Monaco" 1 9 0 0 255 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0 " -1 257 1 {CSTYLE "" -1 -1 "Geneva" 1 12 0 0 0 1 2 2 2 0 0 0 0 0 0 } 0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 258 1 {CSTYLE "" -1 -1 "Geneva" 1 10 0 0 0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT -1 563 "PROGRAM: BuffonsNeedle \nCALLING SEQUENCE: BuffonsNeedle(n, show)\nPARAMETERS:\n n - an \+ integer\n show - a Boolean variable (true or false)\nSYNOPSIS:\n \+ - This program simulates the Buffon needle experiment described in the book,\n dropping n pins on an 8 x 8 grid. The program pri nts an estimate for Pi, using\n the book's method. If show = t rue, a graphical display of the experiment is\n produced, showi ng every tenth pin. \nRETURNED VALUES:\n - none\nLOCATION:\n \+ Folder: Chapter 2\n File: \"BuffonsNeedle.Chpt2.map.r4\"" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 866 "\n\nBuffonsNeedle:=proc(n,show)\n \011local a,b,i,ends,U,angles,twopi,j,needles,x1,y1,x2,y2,theta,pictur es,R,\n\011\011\011test1,test2,counter,x:\n\011with(stats):\n\011R:=ra ndom[uniform[0,8]]('generator'):\n\011ends:=[seq(evalf(R()),i=1..(2*n) )]:\n\011twopi:=evalf(2*Pi):\n\011U:=random[uniform[0,twopi]]('generat or'):\n\011angles:=[seq(U(),i=1..n)]:\n\011needles:=NULL:\n\011counter :=0:\n\011for j from 1 to n do\n\011 x1:=op(2*j-1,ends):\n\011\011y 1:=op(2*j,ends):\n\011\011theta:=op(j,angles):\n\011\011x2:=x1+cos(the ta):\n\011\011y2:=y1+sin(theta):\n\011\011test1:=min(y1,y2):\n\011\011 test2:=trunc(max(y1,y2)):\n\011\011if test1<=test2 then counter:=count er+1 fi:\n\011\011if show=`true` then\n\011\011\011if (j mod 10)=0 the n\n\011\011\011\011needles:=needles,line([x1,y1],[x2,y2]):\n\011\011 \011\011gc():\n\011\011\011fi:\n\011\011fi:\n\011od:\n\011print(evalf( (2*n)/counter));\n\011if show=`true` then\n\011\011i:='i':\n\011\011x: ='x':\n\011\011with(plots):\n\011\011a:=plot([8,x,x=0..8]):\n\011\011b :=seq(plot(\{i\},x=0..8),i=1..8):\n\011\011display([a,b,needles]);\n \011fi:\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "BuffonsNee dle(1000,true);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+]A2%G$!\"*" }} {PARA 13 "" 1 "" {INLPLOT "6[r-%'CURVESG6$7S7$$\"\")\"\"!F*7$F($\"1LLL LBxV5E$F.7$F($\"1LLLLAKn\\F.7$F($\"1LLLLc$\\o'F.7$F( $\"1mmm;bQ%R)F.7$F($\"1LLL$Qk#z**F.7$F($\"1+++l9.i6!#:7$F($\"1LLL=\"\\ qM`FA7$F($\"1++++.W2bFA7 $F($\"1LLLep'Rm&FA7$F($\"1+++S>4NeFA7$F($\"1mmm6s5'*fFA7$F($\"1+++lXTk hFA7$F($\"1mmmmd'*GjFA7$F($\"1+++DcB,lFA7$F($\"1MLLt>:nmFA7$F($\"1LLL. a#o$oFA7$F($\"1nmm^Q40qFA7$F($\"1+++!3:(frFA7$F($\"1nmmc%GpL(FA7$F($\" 1LLL8-V&\\(FA7$F($\"1+++XhUkwFA7$F($\"1+++:o!#5-F$6#7$7$ $\"+qX!*fIF_`m$\"+())H3H&F_`m7$$\"+t,^ZNF_`m$\"+rew#Fabm7$$\"+zzM.@F_`m$!+Kk&3x(Fabm-F$6#7$7$$\"+9!f)osF_`m $\"+#)Gp*y&F_`m7$$\"+ZPnrmF_`m$\"+:iz\"f'F_`m-F$6#7$7$$\"+()*p)RJF_`m$ \"+54L:JFabm7$$\"+&oNqW#F_`m$!+Ntj&4%Fabm-F$6#7$7$$\"+y2O(3'F_`m$\"+qE 3OrF_`m7$$\"+#z>0c&F_`m$\"+Pl/')zF_`m-F$6#7$7$$\"+gue=xF_`m$\"+mX_2aF_ `m7$$\"+%4)>ipF_`m$\"+7ikhgF_`m-F$6#7$7$$\"+Usz,pF_`m$\"+1*Ga#RF_`m7$$ \"+a:$)*)yF_`m$\"+TJmzSF_`m-F$6#7$7$$\"+qxc?wFabm$\"+BDD]pFabm7$$!*nKr <$Fabm$\"+eu;.8F_`m-F$6#7$7$$\"+8m)3-\"F_`m$\"+qR())*HF_`m7$$\"+u:(y0 \"Fabm$\"+w@5-MF_`m-F$6#7$7$$\"+QpK_\\F_`m$\"+^T!3_(F_`m7$$\"+Mc)>(eF_ `m$\"+IF_8zF_`m-F$6#7$7$$\"+')p(fN%F_`m$\"+x2*yc&F_`m7$$\"+Y\"**z#[F_` m$\"+guZ\\kF_`m-F$6#7$7$$\"+:c;y`F_`m$\"+z\\fI6KzFabm-F$6#7$7$$\"+)p@7,%F_`m$\"+A*G>x&F_`m7$$\"+/Um[IF_`m$\"+68&3] &F_`m-F$6#7$7$$\"+-3__ZF_`m$\"+wR!p%fF_`m7$$\"+fs?=QF_`m$\"+IZ%Fabm-F$6#7 $7$$\"+'4/w'oF_`m$\"+Ye?hHF_`m7$$\"+)))o8)eF_`m$\"+4VbEJF_`m-F$6#7$7$$ \"+eP6*Q(F_`m$\"+))fue^F_`m7$$\"+A,M!z'F_`m$\"+%Hk'ffF_`m-F$6#7$7$$\"+ &QP^J(F_`m$\"+A5&p<'F_`m7$$\"+l$*=[#)F_`m$\"+X%4s\"eF_`m-F$6#7$7$$\"+# )\\,'y'F_`m$\"+kN'*\\TF_`m7$$\"+T55%z&F_`m$\"+re(oF%F_`m-F$6#7$7$$\"+= 8MweF_`m$\"+2=cM5F_`m7$$\"+,D@woF_`m$\"+hAh]5F_`m-F$6#7$7$$\"+7'4AP$F_ `m$\"+eu;LlF_`m7$$\"+nQpiIF_`m$\"+w<1%[(F_`m-F$6#7$7$$\"+4!pmB'F_`m$\" +_pxvWF_`m7$$\"+roH7nF_`m$\"+a.8'f$F_`m-F$6#7$7$$\"+#>pV(H!#7$\"+&pXLy (F_`m7$$\"+2&=)*=#Fabm$\"+.utf()F_`m-F$6#7$7$$\"+_t3;\")Fabm$\"+Q,whyF _`m7$$!+>>AH;Fabm$\"+&*p]PwF_`m-F$6#7$7$$\"+F4QDsFabm$\"+]vMqxFabm7$$ \"+31sX8F_`m$\"+#>6\"f:F_`m-F$6#7$7$$\"+]J$*[zF_`m$\"+ud/7pF_`m7$$\"+T J#fh(F_`m$\"+$[A\"pfF_`m-F$6#7$7$$\"+qce3zF_`m$\"+n&y`^\"F_`m7$$\"+\"> kM_(F_`m$\"+bWCQCF_`m-F$6#7$7$$\"+Y&Q^a#F_`m$\"+U:7uyF_`m7$$\"+Yhw[:F_ `m$\"+?F]gn7$$\"+2la-OF_`m$\"+= !=9$)*Fabm-F$6#7$7$$\"+*RcM;&F_`m$\"+YI84OF_`m7$$\"+@z'*=ZF_`m$\"+:w\" \\]%F_`m-F$6#7$7$$\"+.7\"o:\"F_`m$\"+m')\\_]Fabm7$$\"+*pajJ\"F_`m$!+L. T>[Fabm-F$6#7$7$$\"+^5CBqF_`m$\"+.=(e6%F_`m7$$\"+QwkcpF_`m$\"+3;4=JF_` m-F$6#7$7$$\"+sV!*oRF_`m$\"+AG#fC$Fabm7$$\"+1)p$HZF_`m$!+;8'yC$Fabm-F$ 6#7$7$$\"+&yDNv(F_`m$\"+aKaQGFabm7$$\"+)o=5V(F_`m$\"+r8UI7F_`m-F$6#7$7 $$\"+]!=)y9Fabm$\"+$*3ZqOF_`m7$$!+?&[]U)Fabm$\"+rvz3QF_`m-F$6#7$7$$\"+ B;m#y\"F_`m$\"+O!=Cw'F_`m7$$\"++#>U\"*)Fabm$\"+ma))3jF_`m-F$6#7$7$$\"+ yWmcOFabm$\"+.]7lqF_`m7$$\"+)R7s>\"F_`m$\"+r4e?wF_`m-F$6#7$7$$\"+[%=R& fF_`m$\"+5Y2c^F_`m7$$\"+zgSYpF_`m$\"+D'>%y_F_`m-F$6#7$7$$\"+^+QRWF_`m$ \"+U&)e?gF_`m7$$\"+O?eRMF_`m$\"+p0\\+gF_`m-F$6#7$7$$\"+!>*)HF'F_`m$\"+ eO0uvFabm7$$\"+v![n7(F_`m$\"+()yOnBFabm-F$6#7$7$$\"+ck'>Y\"F_`m$\"+iF_`m-F$6#7$7$$\"+7K\"eB#F_`m$\"+N]TMQF_`m7$$\" +:!)fr&F_`m-F$6#7$7$$\"+q0)**4$F_`m$\"+mP'p`#F_`m7$$\"+?.)z D#F_`m$\"+,4WwIF_`m-F$6#7$7$$\"+;y6YpF_`m$\"+<+HUUF_`m7$$\"+M)y\"\\fF_ `m$\"+yk5kTF_`m-F$6#7$7$$\"+bLKBLF_`m$\"+O?Y4TF_`m7$$\"+)[fuG%F_`m$\"+ W-([P%F_`m-F$6#7$7$$\"+iz\"p%zF_`m$\"+coM!H%F_`m7$$\"+C&QaP)F_`m$\"+&) )yQ>&F_`m-F$6#7$7$$\"+%3d[)\\F_`m$\"+Aa]&z#F_`m7$$\"+sX**QVF_`m$\"+!o^ ?.#F_`m-F$6#7$7$$\"+7?pqiF_`m$\"+=Wv`XF_`m7$$\"+XI6QhF_`m$\"+s>eiNF_`m -F$6#7$7$$\"+ovQngF_`m$\"+m!=k1\"F_`m7$$\"+BBw&Q&F_`m$\"+D&>\")z\"F_`m -F$6#7$7$$\"+s_.#e)!#6$\"+>z(=c\"F_`m7$$!+y.kY%)Fabm$\"+i%4#G>F_`m-F$6 #7$7$$\"+;F_`m$\"+m2*=C%Fabm-F$6#7$7$$\"+iWO15F_`m$\"+$>I(p5F_`m 7$$\"+\\;ve:F_`m$\"+eyJ.>F_`m-F$6#7$7$$\"+\"=)*f:\"F_`m$\"+!eH'=zF_`m7 $$\"+w(y')>(Fabm$\"+0J^=))F_`m-F$6#7$7$$\"+y/XcuF_`m$\"+Ih%*R\\F_`m7$$ \"+ka7!>)F_`m$\"+$pY%>cF_`m-F$6#7$7$$\"+5+QEdF_`m$\"+i7^ddF_`m7$$\"+2= iB[F_`m$\"+R'fw='F_`m-F$6#7$7$$\"+\\!*Rr=F_`m$\"+@qO^UFabm7$$\"+Hr8Z8F _`m$!+_O?kUFabm-F$6#7$7$$\"+#o'3:@F_`m$\"+QR!Gc$F_`m7$$\"+')Ru;6F_`m$ \"+t^D0NF_`m-F$6#7$7$$\"+@[NlQF_`m$\"+.Q'*zaF_`m7$$\"+i(=sf%F_`m$\"+)e 99;'F_`m-F$6#7$7$$\"+iwIsbF_`m$\"+$)Hq?HF_`m7$$\"+AgKrlF_`m$\"+95+lHF_ `m-F$6#7$7$$\"+tzQM>F_`m$\"+ew#)feF_`m7$$\"+T%HS$HF_`m$\"++?0LeF_`m-F$ 6#7$7$$\"+=o8$)fF_`m$\"+tPo05F_`m7$$\"+Q0v%)\\F_`m$\"+=9'*)[*Fabm-F$6# 7$7$$\"+ql$)oiF_`m$\"+g66$H\"F_`m7$$\"+wZO=jF_`m$\"+ZVQVHFabm-F$6#7$7$ $\"+9\"zWZ$F_`m$\"+M&oWQ&F_`m7$$\"+1(p$QIF_`m$\"+'=iVG'F_`m-F$6#7$7$$ \"+E!ed!eF_`m$\"+iO.:9F_`m7$$\"+p)[,[&F_`m$\"+=\"Q0O#F_`m-F$6#7$7$$\"+ D;MB^F_`m$\"+-bbUUF_`m7$$\"+U<*)*4&F_`m$\"+)[IGC$F_`m-F$6#7$7$$\"+]ncB PF_`m$\"+Aw3WQF_`m7$$\"+XnGSHF_`m$\"+%pcdY%F_`m-F$6#7$7$$\"+as7+eF_`m$ \"+CtAOnF_`m7$$\"+&eB\"zeF_`m$\"+2'F_`m-F$6#7$7$$\"+Jz6VKF_`m$\"+#\\\\6 :&F_`m7$$\"+1AHkMF_`m$\"+#>:f<%F_`m-F$6#7$7$$\"+uOXXVF_`m$\"+)of\"oSF_ `m7$$\"+'46PL&F_`m$\"+9y&4A%F_`m-F$6#7$7$$\"+.#)[kLF_`m$\"+*RD?l&F_`m7 $$\"+'eCCr$F_`m$\"+XNa*e'F_`m-F$6#7$7$$\"+QnPejF_`m$\"+QCoP(F_`m$\"+iM\"o%eF_`m7$$\"+h kAV$)F_`m$\"+Ky%Q5'F_`m-F$6#7$7$$\"+**yF.ZF_`m$\"+qEP4mF_`m7$$\"+ZrUYT F_`m$\"+,,wydF_`m-F$6#7$7$$\"+3X&)faF_`m$\"+t5&o,'F_`m7$$\"+\\#4qU&F_` m$\"+C1R<]F_`m-F$6#7$7$$\"+BngliFabm$\"+(Q_5(oF_`m7$$!+J4z\"Q\"Fabm$\" +?JrEiF_`m-F$6#7$7$$\"+*=WT!eF_`m$\"+HG/BnF_`m7$$\"+[NJ6[F_`m$\"+,CdUo F_`m-F$6#7$7$$\"+32;swF_`m$\"+a))QaeFabm7$$\"+?z;&p'F_`m$\"+4am@PFabm- F$6#7$7$$\"+\\AtlVFabm$\"+d/\"fs%F_`m7$$!*#GW'>)Fabm$\"+ic&3(QF_`m-F$6 #7$7$$\"+D#eUG%F_`m$\"+%zHs$HF_`m7$$\"+'y3hA&F_`m$\"+qx>,EF_`m-F$6#7$7 $$\"+u[N@^F_`m$\"+)f^/k$Fabm7$$\"+\\DGNVF_`m$!+=P*3a#Fabm-%+AXESLABELS G6$%\"xG%!G-%%VIEWG6$;F*F(%(DEFAULTG" 2 254 254 254 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 "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }