{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 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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }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 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "n := 3; # number of \+
levers" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "qstar := [stats[random,uniform](n)]
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&qstarG7%$\"+0\\zrz!#5$\"+;%fp
\"R!#6$\"+nr0V))F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "qt :=
 [seq(.5,i=1..n)]; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qtG7%$\"\"&!
\"\"F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "pickLever := pr
oc(qt,e)  local x, lever, i;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "   \+
 x := stats[random,uniform](1);  print(x); # pick a random number" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "    if x < e then  " }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 74 "       lever := stats[random,discreteuniform[1
,3]](1); # randomly pick one" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "    \+
else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "       lever = 1; print(qt
);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "       for i from 2 to n do" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "          if qt[i] > qt[lever] th
en " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "              lever = i;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "          fi;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "       od;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "    f
i;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "    lever;" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 5 " end;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*pickLeverGR6$%#qtG%\"eG6%%\"xG%&lev
erG%\"iG6\"F-C&>8$-&%&statsG6$%'randomG%(uniformG6#\"\"\"-%&printG6#F0
@%2F09%>8%-&F36$F5&%0discreteuniformG6$F8\"\"$F7C%/F@F8-F:6#9$?(8&\"\"
#F8%\"nG%%trueG@$2&FL6#F@&FL6#FN/F@FNF@F-F-F-" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 16 "pickLever(qt,0);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#$\"+`RJSk!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%$\"\"&!\"\"F$F
$" }}{PARA 8 "" 1 "" {TEXT -1 45 "Error, (in pickLever) cannot evaluat
e boolean" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 \+
0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }