{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 "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 2 2 2 
2 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 0" -1 256 1 
{CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 }1 1 0 0 
0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Co
urier" 1 14 0 0 0 1 2 2 2 2 2 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 2 2 
2 2 2 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "restart:\nread `a:st
atvr4.m`;\nwith(plots):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "Elliot
 Tanis\nSeptember 4, 2000\nFigure 1.1-1  (F1_1-2.mws)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "X := [1$i=1 .. 284, 2$j = 1 .. 208,
 3$m = 1 .. 108];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "nops(X)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "F := Freq(X, 1 .. 3); \+
# Finds frequencies of outcomes in X" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "RelF := F/100;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 67 "Histogram(X, 0.5 .. 3.5, 3); # Plots a relative frequency hist
ogram" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 46 "    Figure 1.1-2: Rela
tive frequency histogram" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 27 "read `a:HistogramFill.txt`;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 62 "HistogramFill(X, 0.5 .. 3.5, 3); # A modificat
ion of Histogram" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "f := [1
,3/6, 2,2/6, 3,1/6]; # Defines p.m.f." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 54 "ProbHist(f); #Constructs a probability histogram for \+
f" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "read `a:ProbHistB.txt`
: #Draws the probability histogram Bold Blue\nProbHistB(f);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 364 "P1 := HistogramFill(X, 0.5 \+
.. 3.5, 3):\nP2 := ProbHistB(f):\nP3 := plot([0,0], x = 0 .. 4, xtickm
arks=[1,2,3], labels=[``,``]):\ntxt1 := textplot([3.8,0.017, `x`], fon
t=[TIMES,BOLD,12]):\ntxt2 := textplot([0.55, 0.53, `h(x)`], font=[TIME
S,BOLD,12]):\ntxt3 := textplot([0.25, 0.53, `f(x), `], font=[TIMES,BOL
D,12]):\ndisplay(\{P1, P2, P3, txt1, txt2, txt3\}); # Adds labels" }}}
{EXCHG {PARA 258 "" 0 "" {TEXT -1 0 "" }{TEXT 256 76 "Figure 1.1-2 Rel
ative frequency histogram (shaded) and probability histogram" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 }
{VIEWOPTS 1 1 0 1 1 1803 }