{VERSION 3 0 "IBM INTEL NT" "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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 }{CSTYLE " " 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 }{CSTYLE "" -1 256 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 270 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 271 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 272 "" 0 1 0 0 0 0 1 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 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Ou tput" 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 "" 0 256 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 "" 0 258 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 1 {PARA 3 "" 0 "" {TEXT -1 43 "Probability Distribution \+ Function and Shape" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT 259 24 "The Uniform Distribution" }{TEXT -1 0 "" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 17 "A \+ random variable" }{TEXT 260 2 " X" }{TEXT -1 78 " has a uniform distri bution if and only if its probability density is given by" }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 18 " \+ " }{XPPEDIT 18 0 "1/(beta-alpha);" "6#*&\"\"\"\"\"\",&%%betaGF%%&alpha G!\"\"F)" }{TEXT -1 16 " for " }{XPPEDIT 18 0 "alpha;" "6#% &alphaG" }{TEXT -1 3 " < " }{TEXT 265 1 "x" }{TEXT -1 3 " < " } {XPPEDIT 18 0 "beta;" "6#%%betaG" }}{PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 261 1 "f" }{TEXT -1 2 "( " }{TEXT 262 1 "x" }{TEXT -1 5 " ) = " }}{PARA 0 "" 0 "" {TEXT -1 48 " 0 \+ elsewhere" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 6 "where " }{XPPEDIT 18 0 "alpha,beta;" "6$%&alphaG%%betaG" }{TEXT -1 18 " are real numbers." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 63 "The following code will draw the density function fo r the Unif(" }{XPPEDIT 18 0 "alpha,beta;" "6$%&alphaG%%betaG" }{TEXT -1 36 ") distribution for your choices of " }{XPPEDIT 18 0 "alpha,bet a;" "6$%&alphaG%%betaG" }{TEXT -1 3 ". " }}{PARA 0 "" 0 "" {MPLTEXT 0 21 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "alpha:=0; beta:=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%%betaG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "f(x):=pie cewise(x>alpha and x-%\"fG6#%\"xG-%*PIECEWISEG6$7$\"\"\"32,$F'!\"\"\"\"!2, &F'F,F0F,F17$F1%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "plot(f(x),x=alpha..beta,title=\"Uniform(0,1) PDF\");" }}{PARA 13 " " 1 "" {GLPLOT2D 399 299 299 {PLOTDATA 2 "6&-%'CURVESG6$7ao7$\"\"!F(7$ $\"1LL3x1h6o!#>$\"\"\"F(7$$\"1nmTN@Ki8!#=F-7$$\"1+]7.K[V?F2F-7$$\"1LL$ 3FWYs#F2F-7$$\"1++D1k'p3%F2F-7$$\"1mmmT&)G\\aF2F-7$$\"1++]7G$R<)F2F-7$ $\"1LLL3x&)*3\"!#Y2aFenF-7$$\"1mm;zXu9cFenF-7$$\"1+++]y))GeFenF-7$$ \"1****\\i_QQgFenF-7$$\"1***\\7y%3TiFenF-7$$\"1****\\P![hY'FenF-7$$\"1 LLL$Qx$omFenF-7$$\"1+++v.I%)oFenF-7$$\"1mm\"zpe*zqFenF-7$$\"1+++D\\'QH (FenF-7$$\"1KLe9S8&\\(FenF-7$$\"1***\\i?=bq(FenF-7$$\"1LLL3s?6zFenF-7$ $\"1++DJXaE\")FenF-7$$\"1nmmm*RRL)FenF-7$$\"1mm;a<.Y&)FenF-7$$\"1LLe9t Oc()FenF-7$$\"1+++]Qk\\*)FenF-7$$\"1LL$3dg6<*FenF-7$$\"1mmmmxGp$*FenF- 7$$\"1++D\"oK0e*FenF-7$$\"1+++]oi\"o*FenF-7$$\"1++v=5s#y*FenF-7$$\"1+D 1k2/P)*FenF-7$$\"1+]P40O\"*)*FenF-7$$\"1^7.#Q?&=**FenF-7$$\"1+voa-oX** FenF-7$$\"1Cc,\">g#f**FenF-7$$\"1\\PMF,%G(**FenF-7$$\"17y]&4I'z**FenF- 7$$\"1v=nj+U')**FenF-7$$\"1Pf$=.5K***FenF-7$F-F(-%'COLOURG6&%$RGBG$\"# 5!\"\"F(F(-%&TITLEG6#Q1Uniform(0,1)~PDF6\"-%+AXESLABELSG6$Q\"xF^y%!G-% %VIEWG6$;F(F-%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 21 "To see the effect of " }{XPPEDIT 18 0 "alpha;" "6#%&alp haG" }{TEXT -1 29 " on the shape of the Uniform(" }{XPPEDIT 18 0 "alph a;" "6#%&alphaG" }{TEXT -1 1 "," }{XPPEDIT 18 0 "beta;" "6#%%betaG" } {TEXT -1 95 ") distribution, the following animation will draw a serie s of probability density functions as " }{XPPEDIT 18 0 "alpha;" "6#%&a lphaG" }{TEXT -1 57 " varies from 0 to 2.1 by increments of 0.1 while \+ holding " }{XPPEDIT 18 0 "beta;" "6#%%betaG" }{TEXT -1 32 " constant a t 3. Do you see why " }{XPPEDIT 18 0 "alpha;" "6#%&alphaG" }{TEXT -1 24 " is a \"shape\" parameter?" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 0 "" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "alpha:=0; initial:=0; alph a_step:=0.1; beta:=3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG\"\" !" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(initialG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+alpha_stepG$\"\"\"!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%betaG\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "f(x):=piecewise(x>alpha and x-%\"fG6#%\"xG-%*PIECEWISEG6$7$#\"\"\"\"\"$32,$ F'!\"\"\"\"!2,&F'F-!\"$F-F37$F3%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for n from 0 to 21 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "density[n]:=plot(f(x),x=0..3):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "num:=convert(alpha,string):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "tracker[n]:=textplot([2.2,0.8,\"alpha is \".num],colo r=blue);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "P[n]:=display(\{density [n],tracker[n]\}):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "alpha:=initia l+n*alpha_step:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "f(x):=piecewise( x>alpha and x " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "display([seq(P[n],n=0..21 )],insequence=true, title=\"Changing alpha\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6$-%(ANIMATEG687&-%%TEXTG6%7$$\"#A! \"\"$\"\")F-%+alpha~is~0G-%'COLOURG6&%$RGBG\"\"!F5$\"*++++\"!\")-%'CUR VESG6$7ao7$F5F57$$\"1+]7.K[V?!#=$\"1LLLLLLLL!#;7$$\"1++D1k'p3%FAFB7$$ \"1+]P4'\\/8'FAFB7$$\"1++]7G$R<)FAFB7$$\"1+](=#**3E7!#fS*\\FDFB7$$\"1++v=$f%GcFDFB7$$\"1+++Dy,\"G'FDFB7$$\"1++] 7&)\\\"F[rFB7$$\"1+] P>:mk:F[rFB7$$\"1+]iv&QAi\"F[rFB7$$\"1++vtLU%o\"F[rFB7$$\"1+++bjm[F[rFB7$$\"1+++: K^+?F[rFB7$$\"1++]7,Hl?F[rFB7$$\"1+]P4w)R7#F[rFB7$$\"1++]x%f\")=#F[rFB 7$$\"1+]P/-a[AF[rFB7$$\"1+](=Yb;J#F[rFB7$$\"1++]i@OtBF[rFB7$$\"1+]PfL' zV#F[rFB7$$\"1+++!*>=+DF[rFB7$$\"1++DE&4Qc#F[rFB7$$\"1+]P%>5pi#F[rFB7$ $\"1+++bJ*[o#F[rFB7$$\"1++Dr\"[8v#F[rFB7$$\"1+++Ijy5GF[rFB7$$\"1+]P/)f T(GF[rFB7$$\"1+++b!)[/HF[rFB7$$\"1+]i0j\"[$HF[rFB7$$\"1](=#HA6^HF[rFB7 $$\"1+D\"G:3u'HF[rFB7$$\"1v$4Y6cb(HF[rFB7$$\"1]iSwSq$)HF[rFB7$$\"1)o/t 0yx)HF[rFB7$$\"1DJ?Q?&=*HF[rFB7$$\"1WBlG!*)Q*HF[rFB7$$\"1i:5>g#f*HF[rF B7$$\"1\"y]&4I'z*HF[rFB7$$\"\"$F5F5-F26&F4$\"#5F-F5F5-%+AXESLABELSG6$Q \"x6\"%!G-%%VIEWG6$;F5Fhy%(DEFAULTGF&7&-F(6%F*%,alpha~is~.1GF1-F:6$7bo F=7$FYF57$FinF57$$\"1,](oHl:'zFQF57$F\\oF57$$\"1v$4Ys'yh&*FQF57$$\"1\\ (oa5*eR(*FQF57$$\"1C\"Gj[\"R<**FQF57$$\"1](=nQ>&45FD$\"1+++ieF[MFD7$$ \"1D1*G')z]/\"FDFb\\l7$$\"1+D1R.k!3\"FDFb\\l7$$\"1]iS\"Hh<:\"FDFb\\l7$ F_oFb\\l7$$\"1+]iSS\"Ga\"FDFb\\l7$FboFb\\l7$FeoFb\\l7$FhoFb\\l7$F[pFb \\l7$F^pFb\\l7$FapFb\\l7$FdpFb\\l7$FgpFb\\l7$FjpFb\\l7$F]qFb\\l7$F`qFb \\l7$FcqFb\\l7$FfqFb\\l7$FiqFb\\l7$F]rFb\\l7$F`rFb\\l7$FcrFb\\l7$FfrFb \\l7$FirFb\\l7$F\\sFb\\l7$F_sFb\\l7$FbsFb\\l7$FesFb\\l7$FhsFb\\l7$F[tF b\\l7$F^tFb\\l7$FatFb\\l7$FdtFb\\l7$FgtFb\\l7$FjtFb\\l7$F]uFb\\l7$F`uF b\\l7$FcuFb\\l7$FfuFb\\l7$FiuFb\\l7$F\\vFb\\l7$F_vFb\\l7$FbvFb\\l7$Fev Fb\\l7$FhvFb\\l7$F[wFb\\l7$F^wFb\\l7$FawFb\\l7$FdwFb\\l7$FgwFb\\l7$Fjw Fb\\l7$F]xFb\\l7$F`xFb\\l7$FcxFb\\l7$FfxFb\\l7$FixFb\\l7$F\\yFb\\l7$F_ yFb\\l7$FbyFb\\l7$FeyFb\\lFgyFjyF^zFdz7&-F(6%F*%,alpha~is~.2GF1-F:6$7b oF=Fa[l7$F_oF57$F_]lF57$FboF57$$\"1+Dc,C+.>FDF57$$\"1+]il*eK%>FDF57$$ \"1]ilZsQj>FDF57$$\"1+voHb^$)>FDF57$$\"1](=<\"Qk.?FD$\"1+++r&G9d$FD7$$ \"1++v$4sP-#FDFabl7$$\"1+](=A&G/@FDFabl7$$\"1+++]$)z%=#FDFabl7$$\"1++D 1Y#eM#FDFabl7$FeoFabl7$$\"1+]i:FPFGFDFabl7$FhoFabl7$F[pFabl7$F^pFabl7$ FapFabl7$FdpFabl7$FgpFabl7$FjpFabl7$F]qFabl7$F`qFabl7$FcqFabl7$FfqFabl 7$FiqFabl7$F]rFabl7$F`rFabl7$FcrFabl7$FfrFabl7$FirFabl7$F\\sFabl7$F_sF abl7$FbsFabl7$FesFabl7$FhsFabl7$F[tFabl7$F^tFabl7$FatFabl7$FdtFabl7$Fg tFabl7$FjtFabl7$F]uFabl7$F`uFabl7$FcuFabl7$FfuFabl7$FiuFabl7$F\\vFabl7 $F_vFabl7$FbvFabl7$FevFabl7$FhvFabl7$F[wFabl7$F^wFabl7$FawFabl7$FdwFab l7$FgwFabl7$FjwFabl7$F]xFabl7$F`xFabl7$FcxFabl7$FfxFabl7$FixFabl7$F\\y Fabl7$F_yFabl7$FbyFabl7$FeyFablFgyFjyF^zFdz7&-F:6$7boF=Fa[lF_alFaal7$F jblF57$FeoF57$$\"1+D1*y6rm#FDF57$FaclF57$$\"1]i!*yJ]2HFDF57$$\"1+v=UOj ()HFDF57$$\"18y+eim2IFD$\"1+++/Pq.PFD7$$\"1D\"GQ())pFIFDF[hl7$$\"1Q%[' *[Jx/$FDF[hl7$$\"1](oa5kx1$FDF[hl7$$\"1v$4rLHy5$FDF[hl7$FhoF[hl7$$\"1+ +Dc$f]W$FDF[hl7$F[pF[hl7$F^pF[hl7$FapF[hl7$FdpF[hl7$FgpF[hl7$FjpF[hl7$ F]qF[hl7$F`qF[hl7$FcqF[hl7$FfqF[hl7$FiqF[hl7$F]rF[hl7$F`rF[hl7$FcrF[hl 7$FfrF[hl7$FirF[hl7$F\\sF[hl7$F_sF[hl7$FbsF[hl7$FesF[hl7$FhsF[hl7$F[tF [hl7$F^tF[hl7$FatF[hl7$FdtF[hl7$FgtF[hl7$FjtF[hl7$F]uF[hl7$F`uF[hl7$Fc uF[hl7$FfuF[hl7$FiuF[hl7$F\\vF[hl7$F_vF[hl7$FbvF[hl7$FevF[hl7$FhvF[hl7 $F[wF[hl7$F^wF[hl7$FawF[hl7$FdwF[hl7$FgwF[hl7$FjwF[hl7$F]xF[hl7$F`xF[h l7$FcxF[hl7$FfxF[hl7$FixF[hl7$F\\yF[hl7$F_yF[hl7$FbyF[hl7$FeyF[hlFgyFj y-F(6%F*%,alpha~is~.3GF1F^zFdz7&-F:6$7boF=Fa[lF_alFaalF]gl7$FhoF57$F[i lF57$F[pF57$$\"1+++v$[\">QFDF57$$\"1++D1E2'*QFDF57$$\"1**\\(=sMX$RFDF5 7$$\"1++]Po*H(RFDF57$$\"1+DJ&*yA#*RFDF57$$\"1+]7`*e9,%FD$\"1+++YQ:YQFD 7$$\"1+v$4,!pISFDF]^m7$$\"1++vo5#*\\SFDF]^m7$$\"1++DJ&pP?%FDF]^m7$F^pF ]^m7$$\"1++v$fQen%FDF]^m7$FapF]^m7$FdpF]^m7$FgpF]^m7$FjpF]^m7$F]qF]^m7 $F`qF]^m7$FcqF]^m7$FfqF]^m7$FiqF]^m7$F]rF]^m7$F`rF]^m7$FcrF]^m7$FfrF]^ m7$FirF]^m7$F\\sF]^m7$F_sF]^m7$FbsF]^m7$FesF]^m7$FhsF]^m7$F[tF]^m7$F^t F]^m7$FatF]^m7$FdtF]^m7$FgtF]^m7$FjtF]^m7$F]uF]^m7$F`uF]^m7$FcuF]^m7$F fuF]^m7$FiuF]^m7$F\\vF]^m7$F_vF]^m7$FbvF]^m7$FevF]^m7$FhvF]^m7$F[wF]^m 7$F^wF]^m7$FawF]^m7$FdwF]^m7$FgwF]^m7$FjwF]^m7$F]xF]^m7$F`xF]^m7$FcxF] ^m7$FfxF]^m7$FixF]^m7$F\\yF]^m7$F_yF]^m7$FbyF]^m7$FeyF]^mFgyFjy-F(6%F* %,alpha~is~.4GF1F^zFdz7&-F(6%F*%,alpha~is~.5GF1-F:6$7boF=Fa[lF_alFaalF ]glFh\\mFj\\m7$F^pF57$Fj^mF57$FapF57$$\"1]il(>%)Q,&FD$\"1+++++++SFD7$$ \"1+Dc,#4P.&FDF^cm7$$\"1](oa?MN0&FDF^cm7$$\"1+]P4#fL2&FDF^cm7$$\"1,v=< #4I6&FDF^cm7$$\"1+++D#fE:&FDF^cm7$$\"1+]iS#f>B&FDF^cm7$$\"1,+Dc#f7J&FD F^cm7$$\"1,+](Gf)paFDF^cm7$FdpF^cm7$$\"1+](=dQZ&fFDF^cm7$FgpF^cm7$FjpF ^cm7$F]qF^cm7$F`qF^cm7$FcqF^cm7$FfqF^cm7$FiqF^cm7$F]rF^cm7$F`rF^cm7$Fc rF^cm7$FfrF^cm7$FirF^cm7$F\\sF^cm7$F_sF^cm7$FbsF^cm7$FesF^cm7$FhsF^cm7 $F[tF^cm7$F^tF^cm7$FatF^cm7$FdtF^cm7$FgtF^cm7$FjtF^cm7$F]uF^cm7$F`uF^c m7$FcuF^cm7$FfuF^cm7$FiuF^cm7$F\\vF^cm7$F_vF^cm7$FbvF^cm7$FevF^cm7$Fhv F^cm7$F[wF^cm7$F^wF^cm7$FawF^cm7$FdwF^cm7$FgwF^cm7$FjwF^cm7$F]xF^cm7$F `xF^cm7$FcxF^cm7$FfxF^cm7$FixF^cm7$F\\yF^cm7$F_yF^cm7$FbyF^cm7$FeyF^cm FgyFjyF^zFdz7&-F(6%F*%,alpha~is~.6GF1-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj \\mFhbmFjbm7$FcdmF57$FdpF57$$\"1*\\7`%*)f\"z&FDF57$FjdmF57$$\"18`>D58v fFDF57$$\"1Dc^yM_&*fFDF57$$\"1Qf$=$f\"f,'FD$\"1+++nmmmTFD7$$\"1]i:&Q3j .'FDFbim7$$\"1woz\"H$4xgFDFbim7$$\"1,vV)>yy6'FDFbim7$$\"1^(=<,[%*>'FDF bim7$FgpFbim7$$\"1++voZSolFDFbim7$FjpFbim7$F]qFbim7$F`qFbim7$FcqFbim7$ FfqFbim7$FiqFbim7$F]rFbim7$F`rFbim7$FcrFbim7$FfrFbim7$FirFbim7$F\\sFbi m7$F_sFbim7$FbsFbim7$FesFbim7$FhsFbim7$F[tFbim7$F^tFbim7$FatFbim7$FdtF bim7$FgtFbim7$FjtFbim7$F]uFbim7$F`uFbim7$FcuFbim7$FfuFbim7$FiuFbim7$F \\vFbim7$F_vFbim7$FbvFbim7$FevFbim7$FhvFbim7$F[wFbim7$F^wFbim7$FawFbim 7$FdwFbim7$FgwFbim7$FjwFbim7$F]xFbim7$F`xFbim7$FcxFbim7$FfxFbim7$FixFb im7$F\\yFbim7$F_yFbim7$FbyFbim7$FeyFbimFgyFjyF^zFdz7&-F:6$7boF=Fa[lF_a lFaalF]glFh\\mFj\\mFhbmFjbmFdhm7$FgpF57$FbjmF57$FjpF57$$\"1^iS;HB'*oFD F57$$\"1+DJ?TnOpFDF57$$\"1DcEAZ*o&pFDF57$$\"1](=UK:r(pFDF57$$\"1v=6)FDF^dn7$F`qF^dn7$$\"1+++v!GcY)FDF^dn7$Fc qF^dn7$FfqF^dn7$FiqF^dn7$F]rF^dn7$F`rF^dn7$FcrF^dn7$FfrF^dn7$FirF^dn7$ F\\sF^dn7$F_sF^dn7$FbsF^dn7$FesF^dn7$FhsF^dn7$F[tF^dn7$F^tF^dn7$FatF^d n7$FdtF^dn7$FgtF^dn7$FjtF^dn7$F]uF^dn7$F`uF^dn7$FcuF^dn7$FfuF^dn7$FiuF ^dn7$F\\vF^dn7$F_vF^dn7$FbvF^dn7$FevF^dn7$FhvF^dn7$F[wF^dn7$F^wF^dn7$F awF^dn7$FdwF^dn7$FgwF^dn7$FjwF^dn7$F]xF^dn7$F`xF^dn7$FcxF^dn7$FfxF^dn7 $FixF^dn7$F\\yF^dn7$F_yF^dn7$FbyF^dn7$FeyF^dnFgyFjy-F(6%F*%,alpha~is~. 8GF1F^zFdz7&-F(6%F*%,alpha~is~.9GF1-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj\\ mFhbmFjbmFdhmFg]nFi]nF`cn7$F`qF57$F^enF57$FcqF57$$\"1^Pfe8w\\))FDF57$$ \"1+v=#pL3#*)FDF57$$\"1uV)*e)pj&*)FDF57$$\"1]7yDg!>**)FDF57$$\"1)oz\"4 Tn4!*FD$\"1+++iZ!>w%FD7$$\"1E\"yD>Uu-*FDFhin7$$\"1jl(fF5_/*FDFhin7$$\" 1+]Pf$yH1*FDFhin7$$\"1,DcEI70#*FDFhin7$FfqFhin7$$\"1,]P4_J&o*FDFhin7$F iqFhin7$F]rFhin7$F`rFhin7$FcrFhin7$FfrFhin7$FirFhin7$F\\sFhin7$F_sFhin 7$FbsFhin7$FesFhin7$FhsFhin7$F[tFhin7$F^tFhin7$FatFhin7$FdtFhin7$FgtFh in7$FjtFhin7$F]uFhin7$F`uFhin7$FcuFhin7$FfuFhin7$FiuFhin7$F\\vFhin7$F_ vFhin7$FbvFhin7$FevFhin7$FhvFhin7$F[wFhin7$F^wFhin7$FawFhin7$FdwFhin7$ FgwFhin7$FjwFhin7$F]xFhin7$F`xFhin7$FcxFhin7$FfxFhin7$FixFhin7$F\\yFhi n7$F_yFhin7$FbyFhin7$FeyFhinFgyFjyF^zFdz7&-F(6%F*%-alpha~is~1.0GF1-F:6 $7boF=Fa[lF_alFaalF]glFh\\mFj\\mFhbmFjbmFdhmFg]nFi]nF`cnFfhnFhhn7$Fajn F57$FfqF57$$\"1+Dc^9H;&*FDF57$FhjnF57$$\"1^7G)3F)p(*FDF57$$\"1+v=n*QV& )*FDF57$$\"1E1k1\\f'*)*FDF57$$\"1]P4Y3&)Q**FDF57$$\"17.#e\")y*f**FDF57 $$\"1voa&y16)**FDF57$$\"1Wt_vMA+5F[r$\"1+++++++]FD7$FiqFf_o7$$\"1++DJL (4.\"F[rFf_o7$F]rFf_o7$F`rFf_o7$FcrFf_o7$FfrFf_o7$FirFf_o7$F\\sFf_o7$F _sFf_o7$FbsFf_o7$FesFf_o7$FhsFf_o7$F[tFf_o7$F^tFf_o7$FatFf_o7$FdtFf_o7 $FgtFf_o7$FjtFf_o7$F]uFf_o7$F`uFf_o7$FcuFf_o7$FfuFf_o7$FiuFf_o7$F\\vFf _o7$F_vFf_o7$FbvFf_o7$FevFf_o7$FhvFf_o7$F[wFf_o7$F^wFf_o7$FawFf_o7$Fdw Ff_o7$FgwFf_o7$FjwFf_o7$F]xFf_o7$F`xFf_o7$FcxFf_o7$FfxFf_o7$FixFf_o7$F \\yFf_o7$F_yFf_o7$FbyFf_o7$FeyFf_oFgyFjyF^zFdz7&-F(6%F*%-alpha~is~1.1G F1-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj\\mFhbmFjbmFdhmFg]nFi]nF`cnFfhnFhhn F\\^o7$FiqF57$Fj_oF57$F]rF57$$\"1]PfViEw5F[rF57$$\"1+v=(4AH4\"F[rF57$$ \"1>n))yS+&4\"F[rF57$$\"1Qfegg3(4\"F[rF57$$\"1c^GU!o\"*4\"F[rF57$$\"1v V)R-]75\"F[r$\"1+++&*y:j_FD7$$\"17GQ()RT06F[rFado7$$\"1]7y]zd46F[rFado 7$$\"1D\"yv(e!z6\"F[rFado7$F`rFado7$$\"1+vo4.sb6F[rFado7$FcrFado7$FfrF ado7$FirFado7$F\\sFado7$F_sFado7$FbsFado7$FesFado7$FhsFado7$F[tFado7$F ^tFado7$FatFado7$FdtFado7$FgtFado7$FjtFado7$F]uFado7$F`uFado7$FcuFado7 $FfuFado7$FiuFado7$F\\vFado7$F_vFado7$FbvFado7$FevFado7$FhvFado7$F[wFa do7$F^wFado7$FawFado7$FdwFado7$FgwFado7$FjwFado7$F]xFado7$F`xFado7$Fcx Fado7$FfxFado7$FixFado7$F\\yFado7$F_yFado7$FbyFado7$FeyFadoFgyFjyF^zFd z7&-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj\\mFhbmFjbmFdhmFg]nFi]nF`cnFfhnFhh nF\\^oF\\coF^co7$F`rF57$F^eoF57$FcrF57$$\"1P4@O2D*=\"F[rF57$$\"1v=UdYH $>\"F[rF57$$\"1Wt-=mJ&>\"F[rF57$$\"18Gjy&Qt>\"F[rF57$$\"1\"GQ#R0O*>\"F [rF57$$\"1]P%)*\\#Q,7F[r$\"1+++cbbbbFD7$$\"1DcEU.Z47F[rF`io7$$\"1+vo%= ev@\"F[rF`io7$$\"1]7`pQtL7F[rF`io7$FfrF`io7$$\"1++v3dr!G\"F[rF`io7$Fir F`io7$F\\sF`io7$F_sF`io7$FbsF`io7$FesF`io7$FhsF`io7$F[tF`io7$F^tF`io7$ FatF`io7$FdtF`io7$FgtF`io7$FjtF`io7$F]uF`io7$F`uF`io7$FcuF`io7$FfuF`io 7$FiuF`io7$F\\vF`io7$F_vF`io7$FbvF`io7$FevF`io7$FhvF`io7$F[wF`io7$F^wF `io7$FawF`io7$FdwF`io7$FgwF`io7$FjwF`io7$F]xF`io7$F`xF`io7$FcxF`io7$Ff xF`io7$FixF`io7$F\\yF`io7$F_yF`io7$FbyF`io7$FeyF`ioFgyFjy-F(6%F*%-alph a~is~1.2GF1F^zFdz7&-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj\\mFhbmFjbmFdhmFg] nFi]nF`cnFfhnFhhnF\\^oF\\coF^coF[hoF]ho7$FfioF57$FfrF57$$\"1+DcJEJl7F[ rF57$F]joF57$$\"1]PMZsT)G\"F[rF57$$\"1+v$fy=hH\"F[rF57$$\"1QfeqT/)H\"F [rF57$$\"1vVBb&p**H\"F[rF57$$\"18G))R\\*=I\"F[r$\"1+++THN#)eFD7$$\"1]7 `C.#QI\"F[rF`^p7$$\"1D\"GQ4rwI\"F[rF`^p7$FirF`^p7$$\"1+vV`[mV8F[rF`^p7 $F\\sF`^p7$F_sF`^p7$FbsF`^p7$FesF`^p7$FhsF`^p7$F[tF`^p7$F^tF`^p7$FatF` ^p7$FdtF`^p7$FgtF`^p7$FjtF`^p7$F]uF`^p7$F`uF`^p7$FcuF`^p7$FfuF`^p7$Fiu F`^p7$F\\vF`^p7$F_vF`^p7$FbvF`^p7$FevF`^p7$FhvF`^p7$F[wF`^p7$F^wF`^p7$ FawF`^p7$FdwF`^p7$FgwF`^p7$FjwF`^p7$F]xF`^p7$F`xF`^p7$FcxF`^p7$FfxF`^p 7$FixF`^p7$F\\yF`^p7$F_yF`^p7$FbyF`^p7$FeyF`^pFgyFjy-F(6%F*%-alpha~is~ 1.3GF1F^zFdz7&-F(6%F*%-alpha~is~1.4GF1-F:6$7boF=Fa[lF_alFaalF]glFh\\mF j\\mFhbmFjbmFdhmFg]nFi]nF`cnFfhnFhhnF\\^oF\\coF^coF[hoF]hoF\\]p7$FirF5 7$Fj^pF57$F\\sF57$$\"1Dc^or=$Q\"F[rF57$$\"1]7G$\\m0R\"F[rF57$$\"1iSmbh D%R\"F[rF57$$\"1vo/=e%zR\"F[rF57$$\"1\"GQ#\\1z*R\"F[rF57$$\"1)oH/[N;S \"F[r$\"1++++++]iFD7$$\"1%4@;J![.9F[rF_cp7$$\"1+D\"G9D`S\"F[rF_cp7$$\" 1]PM#z$3?9F[rF_cp7$F_sF_cp7$$\"1+DcO3om9F[rF_cp7$FbsF_cp7$FesF_cp7$Fhs F_cp7$F[tF_cp7$F^tF_cp7$FatF_cp7$FdtF_cp7$FgtF_cp7$FjtF_cp7$F]uF_cp7$F `uF_cp7$FcuF_cp7$FfuF_cp7$FiuF_cp7$F\\vF_cp7$F_vF_cp7$FbvF_cp7$FevF_cp 7$FhvF_cp7$F[wF_cp7$F^wF_cp7$FawF_cp7$FdwF_cp7$FgwF_cp7$FjwF_cp7$F]xF_ cp7$F`xF_cp7$FcxF_cp7$FfxF_cp7$FixF_cp7$F\\yF_cp7$F_yF_cp7$FbyF_cp7$Fe yF_cpFgyFjyF^zFdz7&-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj\\mFhbmFjbmFdhmFg] nFi]nF`cnFfhnFhhnF\\^oF\\coF^coF[hoF]hoF\\]pFjapF\\bp7$F_sF57$F\\dpF57 $FbsF57$$\"11Rvxhe+:F[r$\"1+++nmmmmFD7$$\"18yDCJl-:F[rFjfp7$$\"1>T[+r%zy\"F[rF57$$\"1 +D\"GF.ez\"F[rF57$$\"1(oa5Jnxz\"F[rF57$$\"1voH\\8t*z\"F[rF57$$\"1i!RvQ &p,=F[r$\"1+++LLLL$)FD7$$\"1]7yD%fO!=F[rFfeq7$$\"1DcE-ve2=F[rFfeq7$Fat Ffeq7$$\"1+Dc10#>%=F[rFfeq7$FdtFfeq7$FgtFfeq7$FjtFfeq7$F]uFfeq7$F`uFfe q7$FcuFfeq7$FfuFfeq7$FiuFfeq7$F\\vFfeq7$F_vFfeq7$FbvFfeq7$FevFfeq7$Fhv Ffeq7$F[wFfeq7$F^wFfeq7$FawFfeq7$FdwFfeq7$FgwFfeq7$FjwFfeq7$F]xFfeq7$F `xFfeq7$FcxFfeq7$FfxFfeq7$FixFfeq7$F\\yFfeq7$F_yFfeq7$FbyFfeq7$FeyFfeq FgyFjyF^zFdz7&-F:6$7boF=Fa[lF_alFaalF]glFh\\mFj\\mFhbmFjbmFdhmFg]nFi]n F`cnFfhnFhhnF\\^oF\\coF^coF[hoF]hoF\\]pFjapF\\bpFdfpFffpFc[qFf_qFh_qFb dq7$FatF57$F`fqF57$FdtF57$$\"1vV[1`w!)=F[rF57$$\"1]Pfy^?*)=F[rF57$$\"1 Q%[Y6DM*=F[rF57$$\"1DJq]]k(*=F[rF57$$\"1p/t=]v**=F[rF57$$\"18yv')\\'=! >F[r$\"1+++\"4444*FD7$$\"1c^ya\\(R!>F[rFgiq7$$\"1+D\"G#\\31>F[rFgiq7$$ \"1]7.nY'H#>F[rFgiq7$FgtFgiq7$$\"1+]78)y,(>F[rFgiq7$FjtFgiq7$F]uFgiq7$ F`uFgiq7$FcuFgiq7$FfuFgiq7$FiuFgiq7$F\\vFgiq7$F_vFgiq7$FbvFgiq7$FevFgi q7$FhvFgiq7$F[wFgiq7$F^wFgiq7$FawFgiq7$FdwFgiq7$FgwFgiq7$FjwFgiq7$F]xF giq7$F`xFgiq7$FcxFgiq7$FfxFgiq7$FixFgiq7$F\\yFgiq7$F_yFgiq7$FbyFgiq7$F eyFgiqFgyFjy-F(6%F*%-alpha~is~1.9GF1F^zFdz7&-F:6$7boF=Fa[lF_alFaalF]gl Fh\\mFj\\mFhbmFjbmFdhmFg]nFi]nF`cnFfhnFhhnF\\^oF\\coF^coF[hoF]hoF\\]pF japF\\bpFdfpFffpFc[qFf_qFh_qFbdqFbhqFdhq7$F]jqF57$FgtF57$$\"1+v=7;,b>F [rF57$FdjqF57$$\"1]Pf8Cwx>F[rF57$$\"1+D19gM&)>F[rF57$$\"1voH9y8*)>F[rF 57$$\"1]7`9'HH*>F[rF57$$\"1P%[Y^D[*>F[rF57$$\"1Dcw99s'*>F[rF57$$\"17G) [J<')*>F[rF57$Fjt$\"\"\"F57$$\"1++vj;!H.#F[rFc^r7$F]uFc^r7$F`uFc^r7$Fc uFc^r7$FfuFc^r7$FiuFc^r7$F\\vFc^r7$F_vFc^r7$FbvFc^r7$FevFc^r7$FhvFc^r7 $F[wFc^r7$F^wFc^r7$FawFc^r7$FdwFc^r7$FgwFc^r7$FjwFc^r7$F]xFc^r7$F`xFc^ r7$FcxFc^r7$FfxFc^r7$FixFc^r7$F\\yFc^r7$F_yFc^r7$FbyFc^r7$FeyFc^rFgyFj y-F(6%F*%-alpha~is~2.0GF1F^zFdz-%&TITLEG6#Q/Changing~alphaFbz" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 45 "This next bit of code w ill animate a Uniform(" }{XPPEDIT 18 0 "alpha;" "6#%&alphaG" }{TEXT -1 1 "," }{XPPEDIT 18 0 "beta;" "6#%%betaG" }{TEXT -1 17 ") with a dyn amic " }{XPPEDIT 18 0 "beta;" "6#%%betaG" }{TEXT -1 10 ", holding " } {XPPEDIT 18 0 "alpha;" "6#%&alphaG" }{TEXT -1 17 " constant at 0. " } {XPPEDIT 18 0 "beta;" "6#%%betaG" }{TEXT -1 5 " will" }}{PARA 0 "" 0 " " {TEXT -1 39 "vary from 1 to 3 at intervals of 0.1. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "alpha:=0; beta:=1; initial:=1; beta _step:=0.1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG\"\"!" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%betaG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(initialG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% *beta_stepG$\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 " f(x):=piecewise(x>alpha and x-%\"fG6#%\"xG-%*PIECEWISEG6$7$\"\"\"32,$F'!\"\"\"\"! 2,&F'F,F0F,F17$F1%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for n from 0 to 21 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "dens ity[n]:=plot(f(x),x=0..3):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "num:= convert(beta,string):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "tracker[n] :=textplot([2.2,0.8,\"beta is \".num],color=blue);" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 39 "P[n]:=display(\{density[n],tracker[n]\}):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "beta:=initial+n*beta_step:" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 51 "f(x):=piecewise(x>alpha and x " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "display([seq(P[n],n=0..21)],insequence=true, title=\" Changing beta\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6$-%(ANIMATEG687&-%%TEXTG6%7$$\"#A!\"\"$\"\")F-%*beta~is~1G-%'COLOU RG6&%$RGBG\"\"!F5$\"*++++\"!\")-%'CURVESG6$7bo7$F5F57$$\"1+]7.K[V?!#=$ \"\"\"F57$$\"1++D1k'p3%FAFB7$$\"1+]P4'\\/8'FAFB7$$\"1++]7G$R<)FAFB7$$ \"1+](=#**3E7!#fS*\\F`oFB7$$\"1++v= $f%GcF`oFB7$$\"1+++Dy,\"G'F`oFB7$$\"1++]7&)\\\"FfsF57$$\"1+]P>:mk:F fsF57$$\"1+]iv&QAi\"FfsF57$$\"1++vtLU%o\"FfsF57$$\"1+++bjm[FfsF57$$\"1+++:K^+?Ffs F57$$\"1++]7,Hl?FfsF57$$\"1+]P4w)R7#FfsF57$$\"1++]x%f\")=#FfsF57$$\"1+ ]P/-a[AFfsF57$$\"1+](=Yb;J#FfsF57$$\"1++]i@OtBFfsF57$$\"1+]PfL'zV#FfsF 57$$\"1+++!*>=+DFfsF57$$\"1++DE&4Qc#FfsF57$$\"1+]P%>5pi#FfsF57$$\"1+++ bJ*[o#FfsF57$$\"1++Dr\"[8v#FfsF57$$\"1+++Ijy5GFfsF57$$\"1+]P/)fT(GFfsF 57$$\"1+]i0j\"[$HFfsF57$$\"\"$F5F5-F26&F4$\"#5F-F5F5-%+AXESLABELSG6$Q \"x6\"%!G-%%VIEWG6$;F5F[z%(DEFAULTGF&7&-F(6%F*%,beta~is~1.1GF1-F:6$7bo F=7$F?$\"1+++\"4444*F`o7$FEFd[l7$FHFd[l7$FKFd[l7$FNFd[l7$FRFd[l7$FUFd[ l7$FXFd[l7$FenFd[l7$FhnFd[l7$F[oFd[l7$F^oFd[l7$FboFd[l7$FeoFd[l7$FhoFd [l7$F[pFd[l7$F^pFd[l7$FapFd[l7$FdpFd[l7$FgpFd[l7$FjpFd[l7$F]qFd[l7$F`q Fd[l7$FcqFd[l7$FiqFd[l7$FhsFd[l7$F[tFd[l7$F^tFd[l7$$\"1]PfViEw5FfsFd[l 7$$\"1+v=(4AH4\"FfsFd[l7$$\"1>n))yS+&4\"FfsFd[l7$$\"1Qfegg3(4\"FfsFd[l 7$$\"1c^GU!o\"*4\"FfsFd[l7$$\"1vV)R-]75\"FfsF57$$\"17GQ()RT06FfsF57$$ \"1]7y]zd46FfsF57$$\"1D\"yv(e!z6\"FfsF5F`t7$$\"1+vo4.sb6FfsF5FctFftFit F\\uF_uFbuFeuFhuF[vF^vFavFdvFgvFjvF]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF[yF^ yFayFdyFgyFjyF]zFazFgz7&-F:6$7boF=7$F?$\"1+++LLLL$)F`o7$FEFd_l7$FHFd_l 7$FKFd_l7$FNFd_l7$FRFd_l7$FUFd_l7$FXFd_l7$FenFd_l7$FhnFd_l7$F[oFd_l7$F ^oFd_l7$FboFd_l7$FeoFd_l7$FhoFd_l7$F[pFd_l7$F^pFd_l7$FapFd_l7$FdpFd_l7 $FgpFd_l7$FjpFd_l7$F]qFd_l7$F`qFd_l7$FcqFd_l7$FiqFd_l7$FhsFd_l7$F^tFd_ l7$FatFd_l7$F]_lFd_l7$FdtFd_l7$$\"1P4@O2D*=\"FfsFd_l7$$\"1v=UdYH$>\"Ff sFd_l7$$\"1Wt-=mJ&>\"FfsFd_l7$$\"18Gjy&Qt>\"FfsFd_l7$$\"1\"GQ#R0O*>\"F fsFd_l7$$\"1]P%)*\\#Q,7FfsF57$$\"1DcEU.Z47FfsF57$$\"1+vo%=ev@\"FfsF57$ $\"1]7`pQtL7FfsF5Fft7$$\"1++v3dr!G\"FfsF5FitF\\uF_uFbuFeuFhuF[vF^vFavF dvFgvFjvF]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF[yF^yFayFdyFgyFjyF]z-F(6%F*%,b eta~is~1.2GF1FazFgz7&-F(6%F*%,beta~is~1.3GF1-F:6$7boF=7$F?$\"1+++#p2Bp (F`o7$FEF\\dl7$FHF\\dl7$FKF\\dl7$FNF\\dl7$FRF\\dl7$FUF\\dl7$FXF\\dl7$F enF\\dl7$FhnF\\dl7$F[oF\\dl7$F^oF\\dl7$FboF\\dl7$FeoF\\dl7$FhoF\\dl7$F [pF\\dl7$F^pF\\dl7$FapF\\dl7$FdpF\\dl7$FgpF\\dl7$FjpF\\dl7$F]qF\\dl7$F `qF\\dl7$FcqF\\dl7$FiqF\\dl7$FhsF\\dl7$F^tF\\dl7$FatF\\dl7$FdtF\\dl7$F iblF\\dl7$FgtF\\dl7$$\"1+DcJEJl7FfsF\\dl7$F_clF\\dl7$$\"1]PMZsT)G\"Ffs F\\dl7$$\"1+v$fy=hH\"FfsF\\dl7$$\"1QfeqT/)H\"FfsF\\dl7$$\"1vVBb&p**H\" FfsF\\dl7$$\"18G))R\\*=I\"FfsF57$$\"1]7`C.#QI\"FfsF57$$\"1D\"GQ4rwI\"F fsF5Fit7$$\"1+vV`[mV8FfsF5F\\uF_uFbuFeuFhuF[vF^vFavFdvFgvFjvF]wF`wFcwF fwFiwF\\xF_xFbxFexFhxF[yF^yFayFdyFgyFjyF]zFazFgz7&-F(6%F*%,beta~is~1.4 GF1-F:6$7boF=7$F?$\"1+++Vr&G9(F`o7$FEF`hl7$FHF`hl7$FKF`hl7$FNF`hl7$FRF `hl7$FUF`hl7$FXF`hl7$FenF`hl7$FhnF`hl7$F[oF`hl7$F^oF`hl7$FboF`hl7$FeoF `hl7$FhoF`hl7$F[pF`hl7$F^pF`hl7$FapF`hl7$FdpF`hl7$FgpF`hl7$FjpF`hl7$F] qF`hl7$F`qF`hl7$FcqF`hl7$FiqF`hl7$FhsF`hl7$F^tF`hl7$FatF`hl7$FdtF`hl7$ FgtF`hl7$FjtF`hl7$FfglF`hl7$F]uF`hl7$$\"1Dc^or=$Q\"FfsF`hl7$$\"1]7G$\\ m0R\"FfsF`hl7$$\"1iSmbhD%R\"FfsF`hl7$$\"1vo/=e%zR\"FfsF`hl7$$\"1\"GQ# \\1z*R\"FfsF`hl7$$\"1)oH/[N;S\"FfsF57$$\"1%4@;J![.9FfsF57$$\"1+D\"G9D` S\"FfsF57$$\"1]PM#z$3?9FfsF5F_u7$$\"1+DcO3om9FfsF5FbuFeuFhuF[vF^vFavFd vFgvFjvF]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF[yF^yFayFdyFgyFjyF]zFazFgz7&-F: 6$7boF=7$F?$\"1+++nmmmmF`o7$FEFe\\m7$FHFe\\m7$FKFe\\m7$FNFe\\m7$FRFe\\ m7$FUFe\\m7$FXFe\\m7$FenFe\\m7$FhnFe\\m7$F[oFe\\m7$F^oFe\\m7$FboFe\\m7 $FeoFe\\m7$FhoFe\\m7$F[pFe\\m7$F^pFe\\m7$FapFe\\m7$FdpFe\\m7$FgpFe\\m7 $FjpFe\\m7$F]qFe\\m7$F`qFe\\m7$FcqFe\\m7$FiqFe\\m7$FhsFe\\m7$F^tFe\\m7 $FatFe\\m7$FdtFe\\m7$FgtFe\\m7$FjtFe\\m7$F]uFe\\m7$F`uFe\\m7$F^\\mFe\\ m7$FcuFe\\m7$$\"11Rvxhe+:FfsF57$$\"18yDCJl-:FfsF57$$\"1>T[+r%zy\"FfsFejm7$$\"1+D\"GF.ez\"FfsFejm7$$\"1(oa5Jnxz\"FfsF ejm7$$\"1voH\\8t*z\"FfsFejm7$$\"1i!RvQ&p,=FfsF57$$\"1]7yD%fO!=FfsF57$$ \"1DcE-ve2=FfsF5Fav7$$\"1+Dc10#>%=FfsF5FdvFgvFjvF]wF`wFcwFfwFiwF\\xF_x FbxFexFhxF[yF^yFayFdyFgyFjyF]z-F(6%F*%,beta~is~1.8GF1FazFgz7&-F:6$7boF =7$F?$\"1+++&*y:j_F`o7$FEFa_n7$FHFa_n7$FKFa_n7$FNFa_n7$FRFa_n7$FUFa_n7 $FXFa_n7$FenFa_n7$FhnFa_n7$F[oFa_n7$F^oFa_n7$FboFa_n7$FeoFa_n7$FhoFa_n 7$F[pFa_n7$F^pFa_n7$FapFa_n7$FdpFa_n7$FgpFa_n7$FjpFa_n7$F]qFa_n7$F`qFa _n7$FcqFa_n7$FiqFa_n7$FhsFa_n7$F^tFa_n7$FatFa_n7$FdtFa_n7$FgtFa_n7$Fjt Fa_n7$F]uFa_n7$F`uFa_n7$FcuFa_n7$FfuFa_n7$FiuFa_n7$F\\vFa_n7$F_vFa_n7$ FbvFa_n7$Fg^nFa_n7$FevFa_n7$$\"1vV[1`w!)=FfsFa_n7$$\"1]Pfy^?*)=FfsFa_n 7$$\"1Q%[Y6DM*=FfsFa_n7$$\"1DJq]]k(*=FfsFa_n7$$\"1p/t=]v**=FfsFa_n7$$ \"18yv')\\'=!>FfsF57$$\"1c^ya\\(R!>FfsF57$$\"1+D\"G#\\31>FfsF57$$\"1]7 .nY'H#>FfsF5Fgv7$$\"1+]78)y,(>FfsF5FjvF]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF [yF^yFayFdyFgyFjyF]z-F(6%F*%,beta~is~1.9GF1FazFgz7&-F:6$7boF=7$F?$\"1+ ++++++]F`o7$FEFadn7$FHFadn7$FKFadn7$FNFadn7$FRFadn7$FUFadn7$FXFadn7$Fe nFadn7$FhnFadn7$F[oFadn7$F^oFadn7$FboFadn7$FeoFadn7$FhoFadn7$F[pFadn7$ F^pFadn7$FapFadn7$FdpFadn7$FgpFadn7$FjpFadn7$F]qFadn7$F`qFadn7$FcqFadn 7$FiqFadn7$FhsFadn7$F^tFadn7$FatFadn7$FdtFadn7$FgtFadn7$FjtFadn7$F]uFa dn7$F`uFadn7$FcuFadn7$FfuFadn7$FiuFadn7$F\\vFadn7$F_vFadn7$FbvFadn7$Fe vFadn7$FacnFadn7$FhvFadn7$$\"1+v=7;,b>FfsFadn7$FgcnFadn7$$\"1]Pf8Cwx>F fsFadn7$$\"1+D19gM&)>FfsFadn7$$\"1voH9y8*)>FfsFadn7$$\"1]7`9'HH*>FfsFa dn7$$\"1P%[Y^D[*>FfsFadn7$$\"1Dcw99s'*>FfsFadn7$$\"17G)[J<')*>FfsFadnF jv7$$\"1++vj;!H.#FfsF5F]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF[yF^yFayFdyFgyFj yF]z-F(6%F*%,beta~is~2.0GF1FazFgz7&-F:6$7boF=7$F?$\"1+++iZ!>w%F`o7$FEF `in7$FHF`in7$FKF`in7$FNF`in7$FRF`in7$FUF`in7$FXF`in7$FenF`in7$FhnF`in7 $F[oF`in7$F^oF`in7$FboF`in7$FeoF`in7$FhoF`in7$F[pF`in7$F^pF`in7$FapF`i n7$FdpF`in7$FgpF`in7$FjpF`in7$F]qF`in7$F`qF`in7$FcqF`in7$FiqF`in7$FhsF `in7$F^tF`in7$FatF`in7$FdtF`in7$FgtF`in7$FjtF`in7$F]uF`in7$F`uF`in7$Fc uF`in7$FfuF`in7$FiuF`in7$F\\vF`in7$F_vF`in7$FbvF`in7$FevF`in7$FhvF`in7 $F[wF`in7$FfhnF`in7$F^wF`in7$$\"1](=n[k*z?FfsF`in7$$\"1+v$4')QY4#FfsF` in7$$\"1V[rdJZ'4#FfsF`in7$$\"1(=#\\auI)4#FfsF`in7$$\"1J&p7vT,5#FfsF57$ $\"1vo/[g(>5#FfsF57$$\"1i:gTYk0@FfsF57$$\"1]i:NKJ4@FfsF57$$\"1DcEA/l;@ FfsF5F`w7$$\"1+vVVN2c@FfsF5FcwFfwFiwF\\xF_xFbxFexFhxF[yF^yFayFdyFgyFjy F]z-F(6%F*%,beta~is~2.1GF1FazFgz7&-F:6$7boF=7$F?$\"1+++XXXXXF`o7$FEFc^ o7$FHFc^o7$FKFc^o7$FNFc^o7$FRFc^o7$FUFc^o7$FXFc^o7$FenFc^o7$FhnFc^o7$F [oFc^o7$F^oFc^o7$FboFc^o7$FeoFc^o7$FhoFc^o7$F[pFc^o7$F^pFc^o7$FapFc^o7 $FdpFc^o7$FgpFc^o7$FjpFc^o7$F]qFc^o7$F`qFc^o7$FcqFc^o7$FiqFc^o7$FhsFc^ o7$F^tFc^o7$FatFc^o7$FdtFc^o7$FgtFc^o7$FjtFc^o7$F]uFc^o7$F`uFc^o7$FcuF c^o7$FfuFc^o7$FiuFc^o7$F\\vFc^o7$F_vFc^o7$FbvFc^o7$FevFc^o7$FhvFc^o7$F [wFc^o7$F^wFc^o7$FawFc^o7$Fi]oFc^o7$FdwFc^o7$$\"1(oHHFL>>#FfsFc^o7$$\" 1v$f$oqq&>#FfsFc^o7$$\"1>U2mRf(>#FfsFc^o7$$\"1j!*yj3[*>#FfsFc^o7$$\"11 R]hxO,AFfsF57$$\"1](=#fYD.AFfsF57$$\"1D\"y+D-3@#FfsF57$$\"1+v$4%)\\$=A FfsF57$$\"1]ilA]WLAFfsF5Ffw7$$\"1+]7Ly4!G#FfsF5FiwF\\xF_xFbxFexFhxF[yF ^yFayFdyFgyFjyF]z-F(6%F*%,beta~is~2.2GF1FazFgz7&-F(6%F*%,beta~is~2.3GF 1-F:6$7boF=7$F?$\"1+++(3EyM%F`o7$FEF[do7$FHF[do7$FKF[do7$FNF[do7$FRF[d o7$FUF[do7$FXF[do7$FenF[do7$FhnF[do7$F[oF[do7$F^oF[do7$FboF[do7$FeoF[d o7$FhoF[do7$F[pF[do7$F^pF[do7$FapF[do7$FdpF[do7$FgpF[do7$FjpF[do7$F]qF [do7$F`qF[do7$FcqF[do7$FiqF[do7$FhsF[do7$F^tF[do7$FatF[do7$FdtF[do7$Fg tF[do7$FjtF[do7$F]uF[do7$F`uF[do7$FcuF[do7$FfuF[do7$FiuF[do7$F\\vF[do7 $F_vF[do7$FbvF[do7$FevF[do7$FhvF[do7$F[wF[do7$F^wF[do7$FawF[do7$FdwF[d o7$FhboF[do7$FgwF[do7$$\"1++v=!>VE#FfsF[do7$F^coF[do7$$\"1+DJSs)zG#Ffs F[do7$$\"1++]Zm(eH#FfsF[do7$$\"1voH***[yH#FfsF[do7$$\"1]P4^8#)*H#FfsF[ do7$$\"1D1*Gq$z,BFfsF57$$\"1+voagw.BFfsF57$$\"1]7Ge2r2BFfsF5Fiw7$$\"1+ v=7)3DM#FfsF5F\\xF_xFbxFexFhxF[yF^yFayFdyFgyFjyF]zFazFgz7&-F:6$7boF=7$ F?$\"1+++nmmmTF`o7$FEF\\io7$FHF\\io7$FKF\\io7$FNF\\io7$FRF\\io7$FUF\\i o7$FXF\\io7$FenF\\io7$FhnF\\io7$F[oF\\io7$F^oF\\io7$FboF\\io7$FeoF\\io 7$FhoF\\io7$F[pF\\io7$F^pF\\io7$FapF\\io7$FdpF\\io7$FgpF\\io7$FjpF\\io 7$F]qF\\io7$F`qF\\io7$FcqF\\io7$FiqF\\io7$FhsF\\io7$F^tF\\io7$FatF\\io 7$FdtF\\io7$FgtF\\io7$FjtF\\io7$F]uF\\io7$F`uF\\io7$FcuF\\io7$FfuF\\io 7$FiuF\\io7$F\\vF\\io7$F_vF\\io7$FbvF\\io7$FevF\\io7$FhvF\\io7$F[wF\\i o7$F^wF\\io7$FawF\\io7$FdwF\\io7$FgwF\\io7$FjwF\\io7$FehoF\\io7$F]xF\\ io7$$\"1v$4@JP9Q#FfsF\\io7$$\"1](= `#FfsF5FexFhxF[yF^yFayFdyFgyFjyF]zFazFgz7&-F(6%F*%,beta~is~2.6GF1-F:6$ 7boF=7$F?$\"1+++YQ:YQF`o7$FEF^dp7$FHF^dp7$FKF^dp7$FNF^dp7$FRF^dp7$FUF^ dp7$FXF^dp7$FenF^dp7$FhnF^dp7$F[oF^dp7$F^oF^dp7$FboF^dp7$FeoF^dp7$FhoF ^dp7$F[pF^dp7$F^pF^dp7$FapF^dp7$FdpF^dp7$FgpF^dp7$FjpF^dp7$F]qF^dp7$F` qF^dp7$FcqF^dp7$FiqF^dp7$FhsF^dp7$F^tF^dp7$FatF^dp7$FdtF^dp7$FgtF^dp7$ FjtF^dp7$F]uF^dp7$F`uF^dp7$FcuF^dp7$FfuF^dp7$FiuF^dp7$F\\vF^dp7$F_vF^d p7$FbvF^dp7$FevF^dp7$FhvF^dp7$F[wF^dp7$F^wF^dp7$FawF^dp7$FdwF^dp7$FgwF ^dp7$FjwF^dp7$F]xF^dp7$F`xF^dp7$FcxF^dp7$FdcpF^dp7$FfxF^dp7$$\"1]7G$p% ezDFfsF^dp7$$\"1+DJg)f`f#FfsF^dp7$$\"119>c#\\zav7g#FfsF57$$\"1D\"GQWZKg#FfsF57$$\"1QfeN7>2EFfsF57$$ \"1]PMF]86EFfsF57$$\"1v$f3hA!>EFfsF5Fhx7$$\"1+vou;!fl#FfsF5F[yF^yFayFd yFgyFjyF]zFazFgz7&-F:6$7boF=7$F?$\"1+++/Pq.PF`o7$FEFfip7$FHFfip7$FKFfi p7$FNFfip7$FRFfip7$FUFfip7$FXFfip7$FenFfip7$FhnFfip7$F[oFfip7$F^oFfip7 $FboFfip7$FeoFfip7$FhoFfip7$F[pFfip7$F^pFfip7$FapFfip7$FdpFfip7$FgpFfi p7$FjpFfip7$F]qFfip7$F`qFfip7$FcqFfip7$FiqFfip7$FhsFfip7$F^tFfip7$FatF fip7$FdtFfip7$FgtFfip7$FjtFfip7$F]uFfip7$F`uFfip7$FcuFfip7$FfuFfip7$Fi uFfip7$F\\vFfip7$F_vFfip7$FbvFfip7$FevFfip7$FhvFfip7$F[wFfip7$F^wFfip7 $FawFfip7$FdwFfip7$FgwFfip7$FjwFfip7$F]xFfip7$F`xFfip7$FcxFfip7$FfxFfi p7$FixFfip7$F_ipFfip7$F\\yFfip7$$\"1Dc^$fY!*o#FfsFfip7$$\"1]7.K+?$p#Ff sFfip7$$\"1j!*G^nF&p#FfsFfip7$$\"1voaqMN(p#FfsFfip7$$\"1)o/)*=I%*p#Ffs Ffip7$$\"1+D14p],FFfsF57$$\"1]P4'y8)4FFfsF57$$\"1+]7j17=FFfsF57$$\"1+v =HFfsF5Fgy7$$\"1+D\"G:3u'HFfsF5FjyF]z-F(6%F*%,beta~is~ 2.9GF1FazFgz7&-F(6%F*%,beta~is~3.0GF1-F:6$7aoF=7$F?$\"1+++LLLLLF`o7$FE Fb[r7$FHFb[r7$FKFb[r7$FNFb[r7$FRFb[r7$FUFb[r7$FXFb[r7$FenFb[r7$FhnFb[r 7$F[oFb[r7$F^oFb[r7$FboFb[r7$FeoFb[r7$FhoFb[r7$F[pFb[r7$F^pFb[r7$FapFb [r7$FdpFb[r7$FgpFb[r7$FjpFb[r7$F]qFb[r7$F`qFb[r7$FcqFb[r7$FiqFb[r7$Fhs Fb[r7$F^tFb[r7$FatFb[r7$FdtFb[r7$FgtFb[r7$FjtFb[r7$F]uFb[r7$F`uFb[r7$F cuFb[r7$FfuFb[r7$FiuFb[r7$F\\vFb[r7$F_vFb[r7$FbvFb[r7$FevFb[r7$FhvFb[r 7$F[wFb[r7$F^wFb[r7$FawFb[r7$FdwFb[r7$FgwFb[r7$FjwFb[r7$F]xFb[r7$F`xFb [r7$FcxFb[r7$FfxFb[r7$FixFb[r7$F\\yFb[r7$F_yFb[r7$FbyFb[r7$FeyFb[r7$F_ jqFb[r7$FhyFb[r7$$\"1](=#HA6^HFfsFb[r7$FejqFb[r7$$\"1v$4Y6cb(HFfsFb[r7 $$\"1]iSwSq$)HFfsFb[r7$$\"1)o/t0yx)HFfsFb[r7$$\"1DJ?Q?&=*HFfsFb[r7$$\" 1WBlG!*)Q*HFfsFb[r7$$\"1i:5>g#f*HFfsFb[r7$$\"1\"y]&4I'z*HFfsFb[rFjyF]z FazFgz-%&TITLEG6#Q.Changing~betaFez" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "Can you \+ anticipate what happens if " }{XPPEDIT 18 0 "alpha;" "6#%&alphaG" } {TEXT -1 5 " and " }{XPPEDIT 18 0 "beta;" "6#%%betaG" }{TEXT -1 294 " \+ both increase at the same rate? In the following animation, they both increase at a step size of 0.1 After you examine this animation, fee l free to change the code so that they increase at different rates. I f you'd like, you can change it so one is decreasing while the other i s increasing." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "alpha:=0; \+ ainitial:=0; alpha_step:=0.1; beta:=1; binitial:=1; beta_step:=0.1;" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ainitialG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% +alpha_stepG$\"\"\"!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%betaG\" \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)binitialG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*beta_stepG$\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "f(x):=piecewise(x>alpha and x-%\"fG6#%\"xG-%*PIECEWI SEG6$7$\"\"\"32,$F'!\"\"\"\"!2,&F'F,F0F,F17$F1%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for n from 0 to 21 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "numa:=convert(alpha,string):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "tracka[n]:=textplot([2.2,0.8,\"alpha is \".numa] ,color=blue);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "numb:=convert(beta ,string):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "trackb[n]:=textplot([2 .2,0.5,\"beta is \".numb],color=blue);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "density[n]:=plot(f(x),x=0..3):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "P[n]:=display(\{density[n],tracka[n],trackb[n]\}):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "alpha:=ainitial+n*alpha_step:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "beta:=binitial+n*beta_step:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "f(x):=piecewise(x>alpha and x " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "display([seq(P[n], n=0..21)],insequence=true,title= \"Changing alpha and beta, with beta - alpha fixed.\");" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6$-%(ANIMATEG687'- %'CURVESG6$7bo7$\"\"!F,7$$\"1+]7.K[V?!#=$\"\"\"F,7$$\"1++D1k'p3%F0F17$ $\"1+]P4'\\/8'F0F17$$\"1++]7G$R<)F0F17$$\"1+](=#**3E7!#fS*\\FUF17$$\"1++v=$f%GcFUF17$$\"1+++Dy,\"G'FUF17$$\"1+ +]7&)\\\"Fe rF,7$$\"1+]P>:mk:FerF,7$$\"1+]iv&QAi\"FerF,7$$\"1++vtLU%o\"FerF,7$$\"1 +++bjm[FerF ,7$$\"1+++:K^+?FerF,7$$\"1++]7,Hl?FerF,7$$\"1+]P4w)R7#FerF,7$$\"1++]x% f\")=#FerF,7$$\"1+]P/-a[AFerF,7$$\"1+](=Yb;J#FerF,7$$\"1++]i@OtBFerF,7 $$\"1+]PfL'zV#FerF,7$$\"1+++!*>=+DFerF,7$$\"1++DE&4Qc#FerF,7$$\"1+]P%> 5pi#FerF,7$$\"1+++bJ*[o#FerF,7$$\"1++Dr\"[8v#FerF,7$$\"1+++Ijy5GFerF,7 $$\"1+]P/)fT(GFerF,7$$\"1+]i0j\"[$HFerF,7$$\"\"$F,F,-%'COLOURG6&%$RGBG $\"#5!\"\"F,F,-%%TEXTG6%7$$\"#AFby$\"\"&Fby%*beta~is~1G-F]y6&F_yF,F,$ \"*++++\"!\")-Fdy6%7$Fgy$\"\")Fby%+alpha~is~0GF\\z-%+AXESLABELSG6$Q\"x 6\"%!G-%%VIEWG6$;F,Fjx%(DEFAULTGF&7'-Fdy6%Ffy%,beta~is~1.1GF\\z-Fdy6%F cz%,alpha~is~.1GF\\z-F(6$7coF+7$FGF,7$FMF,7$$\"1,](oHl:'zF?F,7$FPF,7$$ \"1v$4Ys'yh&*F?F,7$$\"1\\(oa5*eR(*F?F,7$$\"1C\"Gj[\"R<**F?F,7$$\"1](=n Q>&45FUF17$$\"1D1*G')z]/\"FUF17$$\"1+D1R.k!3\"FUF17$$\"1]iS\"Hh<:\"FUF 1FR7$$\"1+]iSS\"Ga\"FUF1FVFYFfnFinF\\oF_oFboFeoFhoF[pF^pFapFgp7$FgrF17 $FjrF17$F]sF17$$\"1]PfViEw5FerF17$$\"1+v=(4AH4\"FerF17$$\"1>n))yS+&4\" FerF17$$\"1Qfegg3(4\"FerF17$$\"1c^GU!o\"*4\"FerF17$$\"1vV)R-]75\"FerF, 7$$\"17GQ()RT06FerF,7$$\"1]7y]zd46FerF,7$$\"1D\"yv(e!z6\"FerF,F_s7$$\" 1+vo4.sb6FerF,FbsFesFhsF[tF^tFatFdtFgtFjtF]uF`uFcuFfuFiuF\\vF_vFbvFevF hvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFgzF][l7'-Fdy6%Ffy%,beta~is~1.2 GF\\z-Fdy6%Fcz%,alpha~is~.2GF\\z-F(6$7coF+F]\\l7$FSF,7$Fh]lF,7$FWF,7$$ \"1+Dc,C+.>FUF,7$$\"1+]il*eK%>FUF,7$$\"1]ilZsQj>FUF,7$$\"1+voHb^$)>FUF ,7$$\"1](=<\"Qk.?FUF17$$\"1++v$4sP-#FUF17$$\"1+](=A&G/@FUF17$$\"1+++]$ )z%=#FUF17$$\"1++D1Y#eM#FUF1FY7$$\"1+]i:FPFGFUF1FfnFinF\\oF_oFboFeoFho F[pF^pFapFgpFj]lF\\^l7$F`sF17$Fi_lF17$FcsF17$$\"1P4@O2D*=\"FerF17$$\"1 v=UdYH$>\"FerF17$$\"1Wt-=mJ&>\"FerF17$$\"18Gjy&Qt>\"FerF17$$\"1\"GQ#R0 O*>\"FerF17$$\"1]P%)*\\#Q,7FerF,7$$\"1DcEU.Z47FerF,7$$\"1+vo%=ev@\"Fer F,7$$\"1]7`pQtL7FerF,Fes7$$\"1++v3dr!G\"FerF,FhsF[tF^tFatFdtFgtFjtF]uF `uFcuFfuFiuF\\vF_vFbvFevFhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFgzF][ l7'-Fdy6%Fcz%,alpha~is~.3GF\\z-Fdy6%Ffy%,beta~is~1.3GF\\z-F(6$7coF+F] \\lFe`lFg`l7$F^blF,7$FZF,7$$\"1+D1*y6rm#FUF,7$FdblF,7$$\"1]i!*yJ]2HFUF ,7$$\"1+v=UOj()HFUF,7$$\"18y+eim2IFUF17$$\"1D\"GQ())pFIFUF17$$\"1Q%['* [Jx/$FUF17$$\"1](oa5kx1$FUF17$$\"1v$4rLHy5$FUF1Ffn7$$\"1++Dc$f]W$FUF1F inF\\oF_oFboFeoFhoF[pF^pFapFgpFj]lF\\^lFfblFhbl7$F_dlF17$FfsF17$$\"1+D cJEJl7FerF17$FedlF17$$\"1]PMZsT)G\"FerF17$$\"1+v$fy=hH\"FerF17$$\"1Qfe qT/)H\"FerF17$$\"1vVBb&p**H\"FerF17$$\"18G))R\\*=I\"FerF,7$$\"1]7`C.#Q I\"FerF,7$$\"1D\"GQ4rwI\"FerF,Fhs7$$\"1+vV`[mV8FerF,F[tF^tFatFdtFgtFjt F]uF`uFcuFfuFiuF\\vF_vFbvFevFhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFg zF][l7'-Fdy6%Fcz%,alpha~is~.4GF\\z-Fdy6%Ffy%,beta~is~1.4GF\\z-F(6$7coF +F]\\lFe`lFg`lFbel7$FgnF,7$F]glF,7$FjnF,7$$\"1+++v$[\">QFUF,7$$\"1++D1 E2'*QFUF,7$$\"1**\\(=sMX$RFUF,7$$\"1++]Po*H(RFUF,7$$\"1+DJ&*yA#*RFUF,7 $$\"1+]7`*e9,%FUF17$$\"1+v$4,!pISFUF17$$\"1++vo5#*\\SFUF17$$\"1++DJ&pP ?%FUF1F\\o7$$\"1++v$fQen%FUF1F_oFboFeoFhoF[pF^pFapFgpFj]lF\\^lFfblFhbl F`gl7$FisF17$F[ilF17$F\\tF17$$\"1Dc^or=$Q\"FerF17$$\"1]7G$\\m0R\"FerF1 7$$\"1iSmbhD%R\"FerF17$$\"1vo/=e%zR\"FerF17$$\"1\"GQ#\\1z*R\"FerF17$$ \"1)oH/[N;S\"FerF,7$$\"1%4@;J![.9FerF,7$$\"1+D\"G9D`S\"FerF,7$$\"1]PM# z$3?9FerF,F^t7$$\"1+DcO3om9FerF,FatFdtFgtFjtF]uF`uFcuFfuFiuF\\vF_vFbvF evFhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFgzF][l7'-F(6$7coF+F]\\lFe`l Fg`lFbelFgilFiil7$F]oF,7$Ff[mF,7$F`oF,7$$\"1]il(>%)Q,&FUF17$$\"1+Dc,#4 P.&FUF17$$\"1](oa?MN0&FUF17$$\"1+]P4#fL2&FUF17$$\"1,v=<#4I6&FUF17$$\"1 +++D#fE:&FUF17$$\"1+]iS#f>B&FUF17$$\"1,+Dc#f7J&FUF17$$\"1,+](Gf)paFUF1 Fbo7$$\"1+](=dQZ&fFUF1FeoFhoF[pF^pFapFgpFj]lF\\^lFfblFhblF`glFh[mFj[m7 $F_tF17$Fg]mF17$FbtF17$$\"11Rvxhe+:FerF,7$$\"18yDCJl-:FerF,7$$\"1>D58vfFUF,7$$\"1Dc^yM_&*fFUF,7$$\"1Qf$=$f\"f,'FUF17 $$\"1]i:&Q3j.'FUF17$$\"1woz\"H$4xgFUF17$$\"1,vV)>yy6'FUF17$$\"1^(=<,[% *>'FUF1Feo7$$\"1++voZSolFUF1FhoF[pF^pFapFgpFj]lF\\^lFfblFhblF`glFh[mFj [mF^`mF``m7$FgamF17$FetF17$$\"1+vV$yb!z:FerF17$F]bmF17$$\"18y]I$\\_f\" FerF17$$\"1Dc^8'[qf\"FerF17$$\"1PM_'*y%))f\"FerF17$$\"1]7`zrk+;FerF,7$ $\"1voaXdC/;FerF,7$$\"1+Dc6V%yg\"FerF,7$$\"1]PfV9/:;FerF,Fgt7$$\"1+vou 4L`;FerF,FjtF]uF`uFcuFfuFiuF\\vF_vFbvFevFhvF[wF^wFawFdwFgwFjwF]xF`xFcx FfxFixF\\yFgzF][l7'-Fdy6%Ffy%,beta~is~1.7GF\\z-Fdy6%Fcz%,alpha~is~.7GF \\z-F(6$7coF+F]\\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cm7$FfoF,7$F[emF,7$Fio F,7$$\"1^iS;HB'*oFUF,7$$\"1+DJ?TnOpFUF,7$$\"1DcEAZ*o&pFUF,7$$\"1](=UK: r(pFUF,7$$\"1v=T[+6)FUF1F^p7$$\"1+++v!GcY)FUF1FapFgpFj]lF\\^lFfblFhblF`glFh[mFj[mF^ `mF``mF^emFfimFhim7$F_[nF17$F^uF17$$\"1+v$4myVw\"FerF17$Fe[nF17$$\"1]P %)>r%zy\"FerF17$$\"1+D\"GF.ez\"FerF17$$\"1(oa5Jnxz\"FerF17$$\"1voH\\8t *z\"FerF17$$\"1i!RvQ&p,=FerF,7$$\"1]7yD%fO!=FerF,7$$\"1DcE-ve2=FerF,F` u7$$\"1+Dc10#>%=FerF,FcuFfuFiuF\\vF_vFbvFevFhvF[wF^wFawFdwFgwFjwF]xF`x FcxFfxFixF\\y-Fdy6%Ffy%,beta~is~1.8GF\\z-Fdy6%Fcz%,alpha~is~.8GF\\zFgz F][l7'-Fdy6%Fcz%,alpha~is~.9GF\\z-F(6$7coF+F]\\lFe`lFg`lFbelFgilFiilF] ^mF_^mF`cmFegmFggmF\\\\n7$F_pF,7$Fg]nF,7$FbpF,7$$\"1^Pfe8w\\))FUF,7$$ \"1+v=#pL3#*)FUF,7$$\"1uV)*e)pj&*)FUF,7$$\"1]7yDg!>**)FUF,7$$\"1)oz\"4 Tn4!*FUF17$$\"1E\"yD>Uu-*FUF17$$\"1jl(fF5_/*FUF1Fdp7$$\"1,DcEI70#*FUF1 FgpF]qFj]lF\\^lFfblFhblF`glFh[mFj[mF^`mF``mF^emFfimFhimFj]n7$FauF17$Fe _nF17$FduF17$$\"1vV[1`w!)=FerF17$$\"1]Pfy^?*)=FerF17$$\"1Q%[Y6DM*=FerF 17$$\"1DJq]]k(*=FerF17$$\"1p/t=]v**=FerF17$$\"18yv')\\'=!>FerF,7$$\"1c ^ya\\(R!>FerF,7$$\"1+D\"G#\\31>FerF,7$$\"1]7.nY'H#>FerF,Ffu7$$\"1+]78) y,(>FerF,FiuF\\vF_vFbvFevFhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\y-Fdy6 %Ffy%,beta~is~1.9GF\\zFgzF][l7'-Fdy6%Ffy%,beta~is~2.0GF\\z-Fdy6%Fcz%-a lpha~is~1.0GF\\z-F(6$7coF+F]\\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cmFegmFgg mF\\\\nFd`nFf`n7$FepF,7$FhpF,7$F[qF,7$F^qF,7$FaqF,7$FdqF,7$FgqF,7$FjqF ,7$F]rF,7$F`rF,7$FcrF1Fj]lF[^lF\\^lFfblFhblF`glFh[mFj[mF^`mF``mF^emFfi mFhimFj]nF_bnFabn7$FhcnF17$FguF17$$\"1+v=7;,b>FerF17$F^dnF17$$\"1]Pf8C wx>FerF17$$\"1+D19gM&)>FerF17$$\"1voH9y8*)>FerF17$$\"1]7`9'HH*>FerF17$ $\"1P%[Y^D[*>FerF17$$\"1Dcw99s'*>FerF17$$\"17G)[J<')*>FerF1Fiu7$$\"1++ vj;!H.#FerF,F\\vF_vFbvFevFhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFgzF] [l7'-Fdy6%Ffy%,beta~is~2.1GF\\z-Fdy6%Fcz%-alpha~is~1.1GF\\z-F(6$7coF+F ]\\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cmFegmFggmF\\\\nFd`nFf`nF^enFfrFirF \\s7$F^^lF,7$Fa^lF,7$Fd^lF,7$Fg^lF,7$Fj^lF,7$F]_lF17$F`_lF17$Fc_lF17$F f_lF1FfblFgblFhblF`glFh[mFj[mF^`mF``mF^emFfimFhimFj]nF_bnFabnFien7$Fju F17$FdgnF17$F]vF17$$\"1](=n[k*z?FerF17$$\"1+v$4')QY4#FerF17$$\"1V[rdJZ '4#FerF17$$\"1(=#\\auI)4#FerF17$$\"1J&p7vT,5#FerF,7$$\"1vo/[g(>5#FerF, 7$$\"1i:gTYk0@FerF,7$$\"1]i:NKJ4@FerF,7$$\"1DcEA/l;@FerF,F_v7$$\"1+vVV N2c@FerF,FbvFevFhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFgzF][l7'-Fdy6% Ffy%,beta~is~2.2GF\\z-Fdy6%Fcz%-alpha~is~1.2GF\\z-F(6$7coF+F]\\lFe`lFg `lFbelFgilFiilF]^mF_^mF`cmFegmFggmF\\\\nFd`nFf`nF^enFfrF\\sF_sFh_lFbs7 $FjblF,7$F]clF,7$F`clF,7$FcclF,7$FfclF,7$FiclF17$F\\dlF1F_gl7$FbdlF1F` glFdglFh[mFj[mF^`mF``mF^emFfimFhimFj]nF_bnFabnFienFihnF[in7$F`vF17$Fhj nF17$FcvF17$$\"1(oHHFL>>#FerF17$$\"1v$f$oqq&>#FerF17$$\"1>U2mRf(>#FerF 17$$\"1j!*yj3[*>#FerF17$$\"11R]hxO,AFerF,7$$\"1](=#fYD.AFerF,7$$\"1D\" y+D-3@#FerF,7$$\"1+v$4%)\\$=AFerF,7$$\"1]ilA]WLAFerF,Fev7$$\"1+]7Ly4!G #FerF,FhvF[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\yFgzF][l7'-Fdy6%Ffy%,beta ~is~2.3GF\\z-F(6$7coF+F]\\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cmFegmFggmF\\ \\nFd`nFf`nF^enFfrF\\sF_sFbsF^dlFes7$FbglF,Fddl7$FfglF,7$FiglF,7$F\\hl F,7$F_hlF,7$FbhlF17$FehlF17$FhhlF1Fh[mFi[mFj[mF^`mF``mF^emFfimFhimFj]n F_bnFabnFienFihnF[inF\\\\oF^\\o7$Fe]oF17$FfvF17$$\"1++v=!>VE#FerF17$F[ ^oF17$$\"1+DJSs)zG#FerF17$$\"1++]Zm(eH#FerF17$$\"1voH***[yH#FerF17$$\" 1]P4^8#)*H#FerF17$$\"1D1*Gq$z,BFerF,7$$\"1+voagw.BFerF,7$$\"1]7Ge2r2BF erF,Fhv7$$\"1+v=7)3DM#FerF,F[wF^wFawFdwFgwFjwF]xF`xFcxFfxFixF\\y-Fdy6% Fcz%-alpha~is~1.3GF\\zFgzF][l7'-Fdy6%Ffy%,beta~is~2.4GF\\z-F(6$7coF+F] \\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cmFegmFggmF\\\\nFd`nFf`nF^enFfrF\\sF_ sFbsFesFhsFjhlF[t7$F\\\\mF,7$F_\\mF,7$Fb\\mF,7$Fe\\mF,7$Fh\\mF,7$F[]mF 17$F^]mF17$Fa]mF17$Fd]mF1F^`mF_`mF``mF^emFfimFhimFj]nF_bnFabnFienFihnF [inF\\\\oF^\\oF]_o7$FivF17$Fh`oF17$F\\wF17$$\"1v$4@JP9Q#FerF17$$\"1](= `#FerF,FdwFgw FjwF]xF`xFcxFfxFixF\\y-Fdy6%Fcz%-alpha~is~1.5GF\\z-Fdy6%Ffy%,beta~is~2 .5GF\\zFgzF][l7'-F(6$7coF+F]\\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cmFegmFgg mF\\\\nFd`nFf`nF^enFfrF\\sF_sFbsFesFhsF[tF^tFatFfamFdt7$F`emF,F\\bm7$F demF,7$FgemF,7$FjemF,7$F]fmF17$F`fmF17$FcfmF17$FffmF1FfimFgimFhimFj]nF _bnFabnFienFihnF[inF\\\\oF^\\oF]_oF]boF_boF^eo7$FbwF17$FifoF17$FewF17$ $\"1]7G$p%ezDFerF17$$\"1+DJg)f`f#FerF17$$\"119>c#\\zav7g#FerF,7$$\"1D\"GQWZKg#FerF,7$$\"1QfeN7>2EFerF,7 $$\"1]PMF]86EFerF,7$$\"1v$f3hA!>EFerF,Fgw7$$\"1+vou;!fl#FerF,FjwF]xF`x FcxFfxFixF\\y-Fdy6%Fcz%-alpha~is~1.6GF\\z-Fdy6%Ffy%,beta~is~2.6GF\\zFg zF][l7'-F(6$7coF+F]\\lFe`lFg`lFbelFgilFiilF]^mF_^mF`cmFegmFggmF\\\\nFd `nFf`nF^enFfrF\\sF_sFbsFesFhsF[tF^tFatFdtFgtFhfmFjt7$FjimF,7$F]jmF,7$F `jmF,7$FcjmF,7$FfjmF,7$FijmF17$F\\[nF1Fi]n7$Fb[nF1Fj]nF^^nF_bnFabnFien FihnF[inF\\\\oF^\\oF]_oF]boF_boF^eoF]hoF_ho7$FhwF17$F\\joF17$F[xF17$$ \"1Dc^$fY!*o#FerF17$$\"1]7.K+?$p#FerF17$$\"1j!*G^nF&p#FerF17$$\"1voaqM N(p#FerF17$$\"1)o/)*=I%*p#FerF17$$\"1+D14p],FFerF,7$$\"1]P4'y8)4FFerF, 7$$\"1+]7j17=FFerF,7$$\"1+v=HFerF,Ffx7$$\"1+D\"G:3u'HFerF,FixF\\yFgzF][l7'-Fdy6%Ffy%,beta~is~3.0 GF\\z-Fdy6%Fcz%-alpha~is~2.0GF\\z-F(6$7boF+F]\\lFe`lFg`lFbelFgilFiilF] ^mF_^mF`cmFegmFggmF\\\\nFd`nFf`nF^enFfrF\\sF_sFbsFesFhsF[tF^tFatFdtFgt FjtF]uF`uFcuFgcnFfu7$F[fnF,F]dn7$F_fnF,7$FbfnF,7$FefnF,7$FhfnF,7$F[gnF ,7$F^gnF,7$FagnF,FihnFjhnF[inF\\\\oF^\\oF]_oF]boF_boF^eoF]hoF_hoF`[pFb [pFj^pFiapF[bp7$FbcpF17$FgxF17$$\"1](=#HA6^HFerF17$FhcpF17$$\"1v$4Y6cb (HFerF17$$\"1]iSwSq$)HFerF17$$\"1)o/t0yx)HFerF17$$\"1DJ?Q?&=*HFerF17$$ \"1WBlG!*)Q*HFerF17$$\"1i:5>g#f*HFerF17$$\"1\"y]&4I'z*HFerF1FixF\\yFgz F][l-%&TITLEG6#QRChanging~alpha~and~beta,~with~beta~-~alpha~fixed.F[[l " 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 31 "Sample Probability Calculations" }} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 270 31 "Sample Probability Calculations" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 107 "The cumulative distribution function (CDF) may be use d to compute probabilities for uniform distributions. " }{TEXT 256 0 " " }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 184 "The next plot \+ depicts the CDFs for a Uniform (0,1), Uniform(0,2), Uniform(0,3), Unif orm(1,2), and Uniform(0.5,1). Can you identify which is which? What \+ happens to the Uniform CDF as " }{XPPEDIT 18 0 "alpha;" "6#%&alphaG" } {TEXT -1 5 " and " }{XPPEDIT 18 0 "beta;" "6#%%betaG" }{TEXT -1 8 " ch ange?" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart: with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "F[1](x):=piecewise(x<=0,0,x>0 and x<1,x,x>=1,1):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "F[2](x):=piecewise(x<=0,0,x> 0 and x<2,x/2,x>=2,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "F [3](x):=piecewise(x<=0,0,x>0 and x<3,x/3,x>=3,1):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 50 "F[4](x):=piecewise(x<=1,0,x>1 and x<2,x-1,x> =2,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "F[5](x):=piecewis e(x<=0.5,0,x>0.5 and x<1,2*x-1,x>=1,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "plot([F[1](x),F[2](x),F[3](x),F[4](x),F[5](x)],x=0..3 );" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG 6$7U7$\"\"!F(7$$\"1+++]i9Rl!#7$$\"1++v$>fS*\\F0FA7$$\"1++v=$f%GcF0FD7$$\"1+++Dy,\"G'F0FG7$$\" 1++]7&)\\\"FhnFin7$$\"1+]P>:mk:FhnF in7$$\"1+]iv&QAi\"FhnFin7$$\"1++vtLU%o\"FhnFin7$$\"1+++bjm[FhnFin7$$\"1+++:K^ +?FhnFin7$$\"1++]7,Hl?FhnFin7$$\"1+]P4w)R7#FhnFin7$$\"1++]x%f\")=#FhnF in7$$\"1+]P/-a[AFhnFin7$$\"1+](=Yb;J#FhnFin7$$\"1++]i@OtBFhnFin7$$\"1+ ]PfL'zV#FhnFin7$$\"1+++!*>=+DFhnFin7$$\"1++DE&4Qc#FhnFin7$$\"1+]P%>5pi #FhnFin7$$\"1+++bJ*[o#FhnFin7$$\"1++Dr\"[8v#FhnFin7$$\"1+++Ijy5GFhnFin 7$$\"1+]P/)fT(GFhnFin7$$\"1+]i0j\"[$HFhnFin7$$\"\"$F(Fin-%'COLOURG6&%$ RGBG$\"#5!\"\"F(F(-F$6$7UF'7$F*$\"1+++DJdpKF,7$F.$\"1++v=7T9hF,7$F2$\" 1++](=HPJ*F,7$F5$\"1++DJaU`7F07$F8$\"1+]P%GZRd\"F07$F;$\"1+](=276(=F07 $F>$\"1+](o**3)y@F07$FA$\"1+](ofHq\\#F07$FD$\"1+]Pf'HU\"GF07$FG$\"1++] 7*309$F07$FJ$\"1++Dce*yU$F07$FM$\"1++]([D9v$F07$FP$\"1++]iNGwSF07$FS$ \"1++]7XM*Q%F07$FV$\"1+](o%QjtYF07$Ffn$\"1++]i8o6]F07$F_o$\"1+++]>0)H& F07$Fbo$\"1+](=-p6j&F07$Feo$\"1+++vS.EfF07$Fho$\"1+](=xZ&\\iF07$F[p$\" 1+]i:$4wb'F07$F^p$\"1++v=#R!zoF07$Fap$\"1+]P4A@urF07$Fdp$\"1++Dchf#\\( F07$Fgp$\"1+](of2L#yF07$Fjp$\"1+]7yG>6\")F07$F]q$\"1++voo6A%)F07$F`q$ \"1*****\\xJLu)F07$Fcq$\"1++v$*ydd!*F07$Ffq$\"1+](=Fhn$\"1+]ilS*3&)*F0F[r7$$\"1++vj;!H.#FhnFinF^rF arFdrFgrFjrF]sF`sFcsFfsFisF\\tF_tFbtFetFhtF[u-F_u6&FauF(FbuF(-F$6$7SF' 7$F*$\"1nmm;arz@F,7$F.$\"1LL$e9ui2%F,7$F2$\"1nmm\"z_\"4iF,7$F5$\"1mmmT &phN)F,7$F8$\"1LLe*=)H\\5F07$F;$\"1nm\"z/3uC\"F07$F>$\"1++DJ$RDX\"F07$ FA$\"1nm\"zR'ok;F07$FD$\"1++D1J:w=F07$FG$\"1LLL3En$4#F07$FJ$\"1nm;/RE& G#F07$FM$\"1+++D.&4]#F07$FP$\"1+++vB_Y2aF07$F]q$\"1mm;zXu9cF07$F`q$\"1+++]y))GeF07$Fcq$ \"1****\\i_QQgF07$Ffq$\"1***\\7y%3TiF07$Fiq$\"1****\\P![hY'F07$F\\r$\" 1LLL$Qx$omF07$F_r$\"1+++v.I%)oF07$Fbr$\"1mm\"zpe*zqF07$Fer$\"1+++D\\'Q H(F07$Fhr$\"1KLe9S8&\\(F07$F[s$\"1***\\i?=bq(F07$F^s$\"1LLL3s?6zF07$Fa s$\"1++DJXaE\")F07$Fds$\"1nmmm*RRL)F07$Fgs$\"1mm;a<.Y&)F07$Fjs$\"1LLe9 tOc()F07$F]t$\"1+++]Qk\\*)F07$F`t$\"1LL$3dg6<*F07$Fct$\"1mmmmxGp$*F07$ Fft$\"1++D\"oK0e*F07$Fit$\"1++v=5s#y*F0F[u-F_u6&FauFbuFbuF(-F$6$7WF'7$ F*F(7$F.F(7$F2F(7$F5F(7$F8F(7$F;F(7$F>F(7$FAF(7$FDF(7$FGF(7$FJF(7$FMF( 7$FPF(7$FSF(7$FVF(7$FYF(7$Ffn$\"19+++DFOB!#=7$F\\o$\"1,++DJL(4$F,7$F_o $\"1,+++!R5'fF,7$Fbo$\"1++vV!QBE\"F07$Feo$\"1******\\\"o?&=F07$Fho$\"1 ,+vVb4*\\#F07$F[p$\"1,+DJ'=_6$F07$F^p$\"1,+]P%y!ePF07$Fap$\"1,+v=WU[VF 07$Fdp$\"1++]7B>&)\\F07$Fgp$\"1++v$>:mk&F07$Fjp$\"1++DcdQAiF07$F]q$\"1 ,+]PPBWoF07$F`q$\"1******\\Nm'[(F07$Fcq$\"1****\\(yb^6)F07$Ffq$\"1++vV VDB()F07$Fiq$\"1++]7TW)R*F07$Ff[l$\"1++DJ\")y,(*F0F[rFj[lF^rFarFdrFgrF jrF]sF`sFcsFfsFisF\\tF_tFbtFetFhtF[u-F_u6&FauF(F(Fbu-F$6$7gnF'FdelFeel FfelFgelFhelFielFjel7$$\"1++v$fQen%F0F(F[fl7$$\"1,+Dc#f7J&F0$\"15++D^= DiF,7$FD$\"1++]P'=pD\"F07$$\"1+](=dQZ&fF0$\"1++vVrZ4>F07$FG$\"1,++]c.i DF07$$\"1++voZSolF0$\"1++]P&4o8$F07$FJ$\"1+++DMe6PF07$$\"1++vV8KzrF0$ \"1,+](oU'eVF07$FM$\"1,++]>q0]F07$$\"1+++]!4x#yF0$\"1++++\"=al&F07$FP$ \"1+++]U80jF07$$\"1+++v!GcY)F0$\"1+++]hDJpF07$FS$\"1,++]!ytb(F07$$\"1+ ]Pf$yH1*F0$\"1++v=n&f7)F07$FV$\"1++](QNXp)F07$FY$\"1,+v=/jq$*F0FenF[oF ^oFaoFdoFgoFjoF]pF`pFcpFfpFipF\\qF_qFbqFeqFhqF[rF^rFarFdrFgrFjrF]sF`sF csFfsFisF\\tF_tFbtFetFhtF[u-F_u6&FauFbuF(Fbu-%+AXESLABELSG6$Q\"x6\"%!G -%%VIEWG6$;F(F\\u%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "alpha:=0; be ta:=1:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "f(x):=piecewise(x>alpha and x-%\"fG6#%\"xG-%*P IECEWISEG6$7$\"\"\"32,$F'!\"\"\"\"!2,&F'F,F0F,F17$F1%*otherwiseG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "a:=plot(f(x),x=alpha..beta,c olor=black,title=\"Uniform(0,1) PDF\"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "b:=plot(f(x),x=alpha..0.4,color=yellow,filled=true): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display([a,b]);" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7ao7 $\"\"!F(7$$\"1LL3x1h6o!#>$\"\"\"F(7$$\"1nmTN@Ki8!#=F-7$$\"1+]7.K[V?F2F -7$$\"1LL$3FWYs#F2F-7$$\"1++D1k'p3%F2F-7$$\"1mmmT&)G\\aF2F-7$$\"1++]7G $R<)F2F-7$$\"1LLL3x&)*3\"!#Y2aFenF-7$$\"1mm;zXu9cFenF-7$$\"1+++]y))Ge FenF-7$$\"1****\\i_QQgFenF-7$$\"1***\\7y%3TiFenF-7$$\"1****\\P![hY'Fen F-7$$\"1LLL$Qx$omFenF-7$$\"1+++v.I%)oFenF-7$$\"1mm\"zpe*zqFenF-7$$\"1+ ++D\\'QH(FenF-7$$\"1KLe9S8&\\(FenF-7$$\"1***\\i?=bq(FenF-7$$\"1LLL3s?6 zFenF-7$$\"1++DJXaE\")FenF-7$$\"1nmmm*RRL)FenF-7$$\"1mm;a<.Y&)FenF-7$$ \"1LLe9tOc()FenF-7$$\"1+++]Qk\\*)FenF-7$$\"1LL$3dg6<*FenF-7$$\"1mmmmxG p$*FenF-7$$\"1++D\"oK0e*FenF-7$$\"1+++]oi\"o*FenF-7$$\"1++v=5s#y*FenF- 7$$\"1+D1k2/P)*FenF-7$$\"1+]P40O\"*)*FenF-7$$\"1^7.#Q?&=**FenF-7$$\"1+ voa-oX**FenF-7$$\"1Cc,\">g#f**FenF-7$$\"1\\PMF,%G(**FenF-7$$\"17y]&4I' z**FenF-7$$\"1v=nj+U')**FenF-7$$\"1Pf$=.5K***FenF-7$F-F(-%'COLOURG6&%$ RGBGF(F(F(-%)POLYGONSG6in7&F'F'7$$F8F,F-7$F\\yF(7&F]yF[y7$$F>F,F-7$F`y F(7&FayF_y7$$\"1****\\7G$R<)F,F-7$FdyF(7&FfyFcy7$$FDF2F-7$FiyF(7&FjyFh y7$$FHF2F-7$F]zF(7&F^zF\\z7$$\"1mmm;arz@F2F-7$FazF(7&FczF`z7$$\"1+++DJ dpKF2F-7$FfzF(7&FhzFez7$$\"1LLLL3VfVF2F-7$F[[lF(7&F][lFjz7$$\"1****** \\i9RlF2F-7$F`[lF(7&Fb[lF_[l7$$\"1mmmm;')=()F2F-7$Fe[lF(7&Fg[lFd[l7$$ \"1++]7z>^7FEF-7$Fj[lF(7&F\\\\lFi[l7$$\"1LLLe'40j\"FEF-7$F_\\lF(7&Fa\\ lF^\\l7$$\"1nmm;6m$[#FEF-7$Fd\\lF(7&Ff\\lFc\\l7$$\"1nmm;yYULFEF-7$Fi\\ lF(7&F[]lFh\\l7$$\"1LLLeF>(>%FEF-7$F^]lF(7&F`]lF]]l7$$\"1nmm\">K'*)\\F EF-7$Fc]lF(7&Fe]lFb]l7$$\"1+++Dt:5eFEF-7$Fh]lF(7&Fj]lFg]l7$$\"1mmm\"fX (emFEF-7$F]^lF(7&F_^lF\\^l7$$\"1+++DCh/vFEF-7$Fb^lF(7&Fd^lFa^l7$$\"1ML LL/pu$)FEF-7$Fg^lF(7&Fi^lFf^l7$$\"1nmm;c0T\"*FEF-7$F\\_lF(7&F^_lF[_l7$ $\"1+++I,Q+5FenF-7$Fa_lF(7&Fc_lF`_l7$$\"1+++]*3q3\"FenF-7$Ff_lF(7&Fh_l Fe_l7$$\"1+++q=\\q6FenF-7$F[`lF(7&F]`lFj_l7$$\"1nm;fBIY7FenF-7$F``lF(7 &Fb`lF_`l7$$\"1LLLj$[kL\"FenF-7$Fe`lF(7&Fg`lFd`l7$$\"1LLL`Q\"GT\"FenF- 7$Fj`lF(7&F\\alFi`l7$$\"1++]s]k,:FenF-7$F_alF(7&FaalF^al7$$\"1LLL`dF!e \"FenF-7$FdalF(7&FfalFcal7$$\"1++]sgam;FenF-7$FialF(7&F[blFhal7$$\"1++ ]FenF-7$FhblF(7&FjblFgbl7$$\"1nmmTc-)*>FenF-7$F]clF(7&F_cl F\\cl7$$\"1nm;f`@'3#FenF-7$FbclF(7&FdclFacl7$$\"1++]nZ)H;#FenF-7$FgclF (7&FiclFfcl7$$\"1nmmJy*eC#FenF-7$F\\dlF(7&F^dlF[dl7$$\"1+++S^bJBFenF-7 $FadlF(7&FcdlF`dl7$$\"1+++0TN:CFenF-7$FfdlF(7&FhdlFedl7$$\"1++]7RV'\\# FenF-7$F[elF(7&F]elFjdl7$$\"1+++:#fke#FenF-7$F`elF(7&FbelF_el7$$\"1LLL `4NnEFenF-7$FeelF(7&FgelFdel7$$\"1+++],s`FFenF-7$FjelF(7&F\\flFiel7$$ \"1mm;zM)>$GFenF-7$F_flF(7&FaflF^fl7$$\"1+++qfa " 0 "" {MPLTEXT 1 0 28 "UniformCDF(alpha..beta,0.4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"%!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 54 "Areas can also be found using the integra tion command." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "evalf(int(f(x),x=alpha..0.4));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"%!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "a:=plot(f(x),x=alpha..beta,color=black,title=\"Uniform(0,1) PDF \"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "b:=plot(f(x),x=0.4. .0.6,color=yellow,filled=true):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display([a,b]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7ao7$\"\"!F(7$$\"1LL3x1h6o!#>$\"\"\"F(7$$\" 1nmTN@Ki8!#=F-7$$\"1+]7.K[V?F2F-7$$\"1LL$3FWYs#F2F-7$$\"1++D1k'p3%F2F- 7$$\"1mmmT&)G\\aF2F-7$$\"1++]7G$R<)F2F-7$$\"1LLL3x&)*3\"!#Y2aFenF-7$$ \"1mm;zXu9cFenF-7$$\"1+++]y))GeFenF-7$$\"1****\\i_QQgFenF-7$$\"1***\\7 y%3TiFenF-7$$\"1****\\P![hY'FenF-7$$\"1LLL$Qx$omFenF-7$$\"1+++v.I%)oFe nF-7$$\"1mm\"zpe*zqFenF-7$$\"1+++D\\'QH(FenF-7$$\"1KLe9S8&\\(FenF-7$$ \"1***\\i?=bq(FenF-7$$\"1LLL3s?6zFenF-7$$\"1++DJXaE\")FenF-7$$\"1nmmm* RRL)FenF-7$$\"1mm;a<.Y&)FenF-7$$\"1LLe9tOc()FenF-7$$\"1+++]Qk\\*)FenF- 7$$\"1LL$3dg6<*FenF-7$$\"1mmmmxGp$*FenF-7$$\"1++D\"oK0e*FenF-7$$\"1+++ ]oi\"o*FenF-7$$\"1++v=5s#y*FenF-7$$\"1+D1k2/P)*FenF-7$$\"1+]P40O\"*)*F enF-7$$\"1^7.#Q?&=**FenF-7$$\"1+voa-oX**FenF-7$$\"1Cc,\">g#f**FenF-7$$ \"1\\PMF,%G(**FenF-7$$\"17y]&4I'z**FenF-7$$\"1v=nj+U')**FenF-7$$\"1Pf$ =.5K***FenF-7$F-F(-%'COLOURG6&%$RGBGF(F(F(-%)POLYGONSG6U7&7$$\"1++++++ +SFenF(7$F\\yF-7$$\"1MLL3VfVSFenF-7$F`yF(7&FbyF_y7$$\"1nm\"H[D:3%FenF- 7$FeyF(7&FgyFdy7$$\"1ML$e0$=CTFenF-7$FjyF(7&F\\zFiy7$$\"1LL$3RBr;%FenF -7$F_zF(7&FazF^z7$$\"1nm\"zjf)4UFenF-7$FdzF(7&FfzFcz7$$\"1LLe4;[\\UFen F-7$FizF(7&F[[lFhz7$$\"1++Dmy]!H%FenF-7$F^[lF(7&F`[lF][l7$$\"1LLezs$HL %FenF-7$Fc[lF(7&Fe[lFb[l7$$\"1++D@1BvVFenF-7$Fh[lF(7&Fj[lFg[l7$$\"1nmm @Xt=WFenF-7$F]\\lF(7&F_\\lF\\\\l7$$\"1LL$3y_qX%FenF-7$Fb\\lF(7&Fd\\lFa \\l7$$\"1+++l+>+XFenF-7$Fg\\lF(7&Fi\\lFf\\l7$$\"1+++vW]VXFenF-7$F\\]lF (7&F^]lF[]l7$$\"1+++NfC&e%FenF-7$Fa]lF(7&Fc]lF`]l7$$\"1MLez6:BYFenF-7$ Ff]lF(7&Fh]lFe]l7$$\"1nmm\"=C#oYFenF-7$F[^lF(7&F]^lFj]l7$$\"1nmmEpS1ZF enF-7$F`^lF(7&Fb^lF_^l7$$\"1++DOD#3v%FenF-7$Fe^lF(7&Fg^lFd^l7$$\"1nmmw y8!z%FenF-7$Fj^lF(7&F\\_lFi^l7$$\"1++DOIFL[FenF-7$F__lF(7&Fa_lF^_l7$$ \"1++v3zMu[FenF-7$Fd_lF(7&Ff_lFc_l7$$\"1nm;H_?<\\FenF-7$Fi_lF(7&F[`lFh _l7$$\"1nm\"zihl&\\FenF-7$F^`lF(7&F``lF]`l7$$\"1LL$3#G,**\\FenF-7$Fc`l F(7&Fe`lFb`l7$$\"1LLezw5V]FenF-7$Fh`lF(7&Fj`lFg`l7$$\"1++v$Q#\\\"3&Fen F-7$F]alF(7&F_alF\\al7$$\"1LL$e\"*[H7&FenF-7$FbalF(7&FdalFaal7$$\"1+++ qvxl^FenF-7$FgalF(7&FialFfal7$$\"1****\\_qn2_FenF-7$F\\blF(7&F^blF[bl7 $$\"1++Dcp@[_FenF-7$FablF(7&FcblF`bl7$$\"1++]2'HKH&FenF-7$FfblF(7&Fhbl Febl7$$\"1mmmwanL`FenF-7$F[clF(7&F]clFjbl7$$\"1,++v+'oP&FenF-7$F`clF(7 &FbclF_cl7$$\"1LLeR<*fT&FenF-7$FeclF(7&FgclFdcl7$$\"1+++&)HxeaFenF-7$F jclF(7&F\\dlFicl7$$\"1nm\"H!o-*\\&FenF-7$F_dlF(7&FadlF^dl7$$\"1++DTO5T bFenF-7$FddlF(7&FfdlFcdl7$$\"1nmmT9C#e&FenF-7$FidlF(7&F[elFhdl7$$\"1** *\\i!*3`i&FenF-7$F^elF(7&F`elF]el7$$\"1LLL$*zymcFenF-7$FcelF(7&FeelFbe l7$$\"1LL$3N1#4dFenF-7$FhelF(7&FjelFgel7$$\"1mm\"HYt7v&FenF-7$F]flF(7& F_flF\\fl7$$\"1+++q(G**y&FenF-7$FbflF(7&FdflFafl7$$\"1mm;9@BMeFenF-7$F gflF(7&FiflFffl7$$\"1LLL`v&Q(eFenF-7$F\\glF(7&F^glF[gl7$$\"1++DOl5;fFe nF-7$FaglF(7&FcglF`gl7$$\"1++v.UacfFenF-7$FfglF(7&FhglFegl7$$\"1++++++ +gFenF-7$F[hlF(7\"-%&STYLEG6#%,PATCHNOGRIDG-Fdx6&Ffx$\"*++++\"!\")Fehl F(-%+AXESLABELSG6$Q\"x6\"%!G-%&TITLEG6#Q1Uniform(0,1)~PDFF\\il-%%VIEWG 6$;F(F-%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 71 "Find the value of the yellow shaded area, the area between 0.4 and 0.6." }}{PARA 0 "" 0 "" {TEXT -1 97 "Using the CDF, we find the area \+ to the left of 0.6 and then subtract the area to the left of 0.4." }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "area1:=UniformCDF(alpha..beta,0.6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&area1G$\"\"'!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "area2:=UniformCDF(alpha..beta,0.4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&area2G$\"\"%!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "area_between:=area1-area2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-area_betweenG$\"\"#!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 81 "Using the integration com mand, we simply integrate Uni(0,1) PDF from 0.4 to 0.6.." }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "eval f(int(f(x),x=0.4..0.6));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"#!\" \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "a:=plot(f(x),x=alpha. .beta,color=black,title=\"Uniform(0,1) PDF\",labels=[\" \",\" \"]):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "b:=plot(f(x),x=0.75..beta, color=yellow,filled=true,labels=[\" \",\" \"]):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 40 "c:=textplot([0.75,-0.1,\"x\"],color=blue):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "d:=textplot([0.8,0.2,\"0.25 \"]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display([a,b,c,d]) ;" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 18 "Find the value of " }{TEXT 266 1 "x" }{TEXT -1 3 ". " } {TEXT 267 2 "x " }{TEXT -1 65 "is known as the third quartile for the \+ Uniform(0,1) distribution." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 397 330 330 {PLOTDATA 2 "6)-%'CURVESG6$7ao7$\"\"! F(7$$\"1LL3x1h6o!#>$\"\"\"F(7$$\"1nmTN@Ki8!#=F-7$$\"1+]7.K[V?F2F-7$$\" 1LL$3FWYs#F2F-7$$\"1++D1k'p3%F2F-7$$\"1mmmT&)G\\aF2F-7$$\"1++]7G$R<)F2 F-7$$\"1LLL3x&)*3\"!#Y2aFenF-7$$\"1mm;zXu9cFenF-7$$\"1+++]y))GeFenF-7 $$\"1****\\i_QQgFenF-7$$\"1***\\7y%3TiFenF-7$$\"1****\\P![hY'FenF-7$$ \"1LLL$Qx$omFenF-7$$\"1+++v.I%)oFenF-7$$\"1mm\"zpe*zqFenF-7$$\"1+++D\\ 'QH(FenF-7$$\"1KLe9S8&\\(FenF-7$$\"1***\\i?=bq(FenF-7$$\"1LLL3s?6zFenF -7$$\"1++DJXaE\")FenF-7$$\"1nmmm*RRL)FenF-7$$\"1mm;a<.Y&)FenF-7$$\"1LL e9tOc()FenF-7$$\"1+++]Qk\\*)FenF-7$$\"1LL$3dg6<*FenF-7$$\"1mmmmxGp$*Fe nF-7$$\"1++D\"oK0e*FenF-7$$\"1+++]oi\"o*FenF-7$$\"1++v=5s#y*FenF-7$$\" 1+D1k2/P)*FenF-7$$\"1+]P40O\"*)*FenF-7$$\"1^7.#Q?&=**FenF-7$$\"1+voa-o X**FenF-7$$\"1Cc,\">g#f**FenF-7$$\"1\\PMF,%G(**FenF-7$$\"17y]&4I'z**Fe nF-7$$\"1v=nj+U')**FenF-7$$\"1Pf$=.5K***FenF-7$F-F(-%'COLOURG6&%$RGBGF (F(F(-%)POLYGONSG6in7&7$$\"1+++++++vFenF(7$F\\yF-7$$\"1nmT&)G\\avFenF- 7$F`yF(7&FbyF_y7$$\"1Lek`o!>g(FenF-7$FeyF(7&FgyFdy7$$\"1m;z>)G_l(FenF- 7$FjyF(7&F\\zFiy7$$\"1m;aQU!*3xFenF-7$F_zF(7&FazF^z7$$\"1MeRZXKixFenF- 7$FdzF(7&FfzFcz7$$\"1n\"z>,_=\"yFenF-7$FizF(7&F[[lFhz7$$\"1*\\7G$[8jyF enF-7$F^[lF(7&F`[lF][l7$$\"1n\"z%*frh\"zFenF-7$Fc[lF(7&Fe[lFb[l7$$\"1+ Dcw#Q!pzFenF-7$Fh[lF(7&Fj[lFg[l7$$\"1ML3_\"=M-)FenF-7$F]\\lF(7&F_\\lF \\\\l7$$\"1m;/wfJr!)FenF-7$Fb\\lF(7&Fd\\lFa\\l7$$\"1++D\"eP_7)FenF-7$F g\\lF(7&Fi\\lFf\\l7$$\"1++v$f!Qz\")FenF-7$F\\]lF(7&F^]lF[]l7$$\"1++v=u bJ#)FenF-7$Fa]lF(7&Fc]lF`]l7$$\"1m\"zW(*Q*y#)FenF-7$Ff]lF(7&Fh]lFe]l7$ $\"1ML3F-GN$)FenF-7$F[^lF(7&F]^lFj]l7$$\"1LLLe'3IQ)FenF-7$F`^lF(7&Fb^l F_^l7$$\"1+DJq\"G&Q%)FenF-7$Fe^lF(7&Fg^lFd^l7$$\"1ML$eMsw[)FenF-7$Fj^l F(7&F\\_lFi^l7$$\"1,DJ&H\"fT&)FenF-7$F__lF(7&Fa_lF^_l7$$\"1+v$f)[$Hf)F enF-7$Fd_lF(7&Ff_lFc_l7$$\"1M$ek`1lk)FenF-7$Fi_lF(7&F[`lFh_l7$$\"1Me*[ .-dp)FenF-7$F^`lF(7&F``lF]`l7$$\"1n;/Egw[()FenF-7$Fc`lF(7&Fe`lFb`l7$$ \"1m\"z%*f%)Q!))FenF-7$Fh`lF(7&Fj`lFg`l7$$\"1+voza'=&))FenF-7$F]alF(7& F_alF\\al7$$\"1n;zWho.*)FenF-7$FbalF(7&FdalFaal7$$\"1****\\i>Ad*)FenF- 7$FgalF(7&FialFfal7$$\"1**\\i:jf4!*FenF-7$F\\blF(7&F^blF[bl7$$\"1*\\7` >r-1*FenF-7$FablF(7&FcblF`bl7$$\"1+]P4q`;\"*FenF-7$FfblF(7&FhblFebl7$$ \"1LL$eM%4n\"*FenF-7$F[clF(7&F]clFjbl7$$\"1++v$4v5A*FenF-7$F`clF(7&Fbc lF_cl7$$\"1n\"zWn*)*p#*FenF-7$FeclF(7&FgclFdcl7$$\"1***\\7BmMK*FenF-7$ FjclF(7&F\\dlFicl7$$\"1Lek.Nyt$*FenF-7$F_dlF(7&FadlF^dl7$$\"1+Dc^&zjU* FenF-7$FddlF(7&FfdlFcdl7$$\"1LL3-=!yZ*FenF-7$FidlF(7&F[elFhdl7$$\"1+D \"G8O;`*FenF-7$F^elF(7&F`elF]el7$$\"1mmm\"*\\[$e*FenF-7$FcelF(7&FeelFb el7$$\"1m;aQz]O'*FenF-7$FhelF(7&FjelFgel7$$\"1LekG=4*o*FenF-7$F]flF(7& F_flF\\fl7$$\"1****\\i4TP(*FenF-7$FbflF(7&FdflFafl7$$\"1L$3F9!z#z*FenF -7$FgflF(7&FiflFffl7$$\"1mmmT>KU)*FenF-7$F\\glF(7&F^glF[gl7$$\"1+DJqJ8 &*)*FenF-7$FaglF(7&FcglF`gl7$$\"1,+]7nS?**FenF-7$FfglF(7&FhglFeglF`w7$ FawF(7&FjglF`wFcw7$FdwF(7&F\\hlFcwFfw7$FgwF(7&F^hlFfwFiw7$FjwF(7&F`hlF iwF\\x7$F]xF(7&FbhlF\\x7$$\"11RvZ]\")*)**FenF-7$FehlF(7&FghlFdhlF_x7$F `xF(7&FihlF_x7$$\"1_p(Q_2\\***FenF-7$F\\ilF(7&F^ilF[il7$$\"1pz\"f,0m** *FenF-7$FailF(7&FcilF`il7$$\"1&)*ez]-$)***FenF-7$FfilF(7&FhilFeilFbxFb x7\"-%&STYLEG6#%,PATCHNOGRIDG-Fdx6&Ffx$\"*++++\"!\")FajlF(-%%TEXTG6%7$ $\"#v!\"#$!\"\"F\\[m%\"xG-Fdx6&FfxF(F(Fajl-Fejl6$7$$\"\")F\\[m$\"\"#F \\[m%%0.25G-%+AXESLABELSG6$Q\"~6\"F[\\m-%&TITLEG6#Q1Uniform(0,1)~PDF6 \"-%%VIEWG6$;F(F-%(DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 82 "Now we know the area under the curve to the left is 0.7 5 and we want to solve for " }{TEXT 268 1 "x" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "f solve(UniformCDF(alpha..beta,x)=0.75,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+++++v!#5" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 30 "Propertie s of the Distribution" }}{EXCHG {PARA 258 "" 0 "" {TEXT -1 0 "" } {TEXT 263 32 "Calculation of Mean and Variance" }}{PARA 0 "" 0 "" {TEXT -1 81 "To calculate the mean of the Uniform distribution, we ca n simply integrate over " }{TEXT 264 1 "x" }{TEXT -1 65 "*(Uniform PDF ), per the definition of mathematical expectation. " }}{PARA 0 "" 0 " " {MPLTEXT 0 21 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "resta rt;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "with(plots, display) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "f(x):=UniformPDF(alpha ..beta,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"fG6#%\"xG*&\"\"\"F) ,&%%betaG\"\"\"%&alphaG!\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "EX:=simplify(int(x*f(x),x=alpha..beta));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#EXG,&%%betaG#\"\"\"\"\"#%&alphaGF'" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 14 "No tice that E(" }{TEXT 271 1 "X" }{TEXT -1 35 ") is midway between alpha and beta." }}{PARA 0 "" 0 "" {MPLTEXT 0 21 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 16 "Calculating Var(" } {TEXT 257 1 "X" }{TEXT -1 36 "), we will employ the formula: Var(" } {TEXT 258 1 "X" }{TEXT -1 7 ") = E( " }{XPPEDIT 18 0 "X^2;" "6#*$%\"XG \"\"#" }{TEXT -1 5 " ) - " }{XPPEDIT 18 0 "( E(X) )^2" "6#*$-%\"EG6#% \"XG\"\"#" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 38 "E_X_SQ:=int((x^2)*f(x),x=alpha..beta);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%'E_X_SQG,$*&,&*$)%%betaG\"\"$\"\"\" \"\"\"*$)%&alphaGF+F,!\"\"F,,&F*F-F0F1!\"\"#F-F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "VarX:=simplify(E_X_SQ-EX^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%VarXG,(*$)%%betaG\"\"#\"\"\"#\"\"\"\"#7*&F(F,%& alphaGF,#!\"\"\"\"'*$)F/F)F*F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 0 "" 0 "" {TEXT -1 16 "Notice that Var(" }{TEXT 272 1 "X" } {TEXT -1 16 ") simplifies to " }{XPPEDIT 18 0 "(beta-alpha)^2/12" "6#* &,&%%betaG\"\"\"%&alphaG!\"\"\"\"#\"#7F(" }{TEXT -1 1 "." }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 10 "Simulati on" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 281 "We will now simulate some data from a Uniform distribution in ord er to compare the sampling distribution to the theoretical distributio n. The next bit of code will simulate a random sample of size 500 fro m a Uniform(0,1) distribution, but you are invited to change the param eters." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart: with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "alpha:=0: beta:=1: n:=500:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "sample:=UniformS(alpha..beta, n):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 114 "Remember that when you plot histograms, the number of bins that you select can make a huge difference in the plot." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "num_bins:=20:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "a:=Histogram(sample,0..1,num_bins): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "b:=plot(UniformPDF(alph a..beta,x),x=alpha..beta,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "display([a,b],title=\"Simulated vs. Theoretical\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6%7 \\p7$\"\"!F(7$F($\"1+++++++#*!#;7$$\"1+++++++]!#F(F@7$F>$\"1+++++++'*F,7$$\"1+++++++?F,FB7$FEF(FG7$FE$\"1+++++ ++))F,7$$\"1+++++++DF,FI7$FLF(FN7$FLFB7$$\"1+++++++IF,FB7$FQF(FS7$FQ$ \"1++++++![\"F57$$\"1+++++++NF,FU7$FXF(FZ7$FX$\"1+++++++wF,7$$\"1+++++ ++SF,Ffn7$FinF(F[o7$FinFB7$$\"1+++++++XF,FB7$F^oF(F`o7$F^oF*7$$F/F,F*7 $FcoF(FdoFbo7$$\"1+++++++bF,F*7$FfoF(FhoFeo7$$\"1+++++++gF,F*7$FjoF(F \\p7$Fjo$\"1+++++++7F57$$\"1+++++++lF,F^p7$FapF(Fcp7$Fap$\"1++++++g6F5 7$$\"1+++++++qF,Fep7$FhpF(Fjp7$Fhp$\"1+++++++kF,7$$\"1+++++++vF,F\\q7$ F_qF(Faq7$F_qFB7$$\"1+++++++!)F,FB7$FdqF(Ffq7$Fdq$\"1++++++?6F57$$\"1+ ++++++&)F,Fhq7$F[rF(F]r7$F[r$\"\"\"F(7$$\"1+++++++!*F,F_r7$FbrF(Fdr7$F brFI7$$\"1+++++++&*F,FI7$FgrF(Fir7$FgrF_r7$F_rF_r7$F_rF(-%'COLOURG6&%$ RGBG$\"*++++\"!\")F(F(-%*LINESTYLEG6#\"\"$-F$6$7S7$F(F_r7$$\"1nmm;arz@ F0F_r7$$\"1LL$e9ui2%F0F_r7$$\"1nmm\"z_\"4iF0F_r7$$\"1mmmT&phN)F0F_r7$$ \"1LLe*=)H\\5F,F_r7$$\"1nm\"z/3uC\"F,F_r7$$\"1++DJ$RDX\"F,F_r7$$\"1nm \"zR'ok;F,F_r7$$\"1++D1J:w=F,F_r7$$\"1LLL3En$4#F,F_r7$$\"1nm;/RE&G#F,F _r7$$\"1+++D.&4]#F,F_r7$$\"1+++vB_Y2aF,F_r7$$\"1mm;zXu9cF,F_r7$$\"1+++]y))GeF,F_r7$$ \"1****\\i_QQgF,F_r7$$\"1***\\7y%3TiF,F_r7$$\"1****\\P![hY'F,F_r7$$\"1 LLL$Qx$omF,F_r7$$\"1+++v.I%)oF,F_r7$$\"1mm\"zpe*zqF,F_r7$$\"1+++D\\'QH (F,F_r7$$\"1KLe9S8&\\(F,F_r7$$\"1***\\i?=bq(F,F_r7$$\"1LLL3s?6zF,F_r7$ $\"1++DJXaE\")F,F_r7$$\"1nmmm*RRL)F,F_r7$$\"1mm;a<.Y&)F,F_r7$$\"1LLe9t Oc()F,F_r7$$\"1+++]Qk\\*)F,F_r7$$\"1LL$3dg6<*F,F_r7$$\"1mmmmxGp$*F,F_r 7$$\"1++D\"oK0e*F,F_r7$$\"1++v=5s#y*F,F_rF[s-F^s6&F`sF(F(F(-%&TITLEG6# Q:Simulated~vs.~Theoretical6\"-%+AXESLABELSG6$%!GFc]l-%%VIEWG6$;F(F_r% (DEFAULTG" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 63 "No w let's compare the simulated mean to the theoretical mean. " }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "theo_mean:=int(UniformPDF(alpha..beta,x)*x,x=alpha..beta);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%*theo_meanG#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "sim_mean:=Mean(sample);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)sim_meanG$\"+9^T:\\!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "relative_error:=(sim_mean-theo_mean)/sim_ mean;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%/relative_errorG$!++'33s\"! #6" }}}}}{MARK "3" 0 }{VIEWOPTS 1 1 0 1 1 1803 }