%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:849
File Name:BLUMEN01
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindMan
\ClrGraph:\BG-None
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\CoordOff:\AxesOn
\LabelOff
\ViewWindow 0,10,10,0,8,8
"START"
"T=":?\->T
"A MOMENT, PLEASE"
\Seq(X,X,1,80,1)\->\List 1
\Seq(0,X,1,80,1)\->\List 2
0\->M
\Lbl M
M+1\->M
10*\Ran#\->A
8*\Ran#\->B
\Plot A,B
(10*\Int (B)+\Int (A)+1)\->N
\List 2[N]+1\->\List 2[N]
\If M<T
\Then \GotoM
\IfEnd
\StoPict 2\Disp0\->N
\Lbl P
N+1\->N
\F-Line 0,N,10,N
\If N<8
\Then \GotoP
\IfEnd
0\->N
\Lbl Q
N+1\->N
\F-Line N,0,N,8
\If N<10
\Then \GotoQ
\IfEnd\Disp\ClrGraph
\Max(\List 2)+1\->P
\Seq(X-1,X,1,P,1)\->\List 3
\Seq(0,X,1,P,1)\->\List 4
0\->N
\Lbl S
N+1\->N
\List 2[N]+1\->Q
\List 4[Q]+1\->\List 4[Q]
\If N<80
\Then \GotoS
\IfEnd
\Max(\List 4)+5\->\Ymax
\Max(\List 3)+1\->\Xmax
\ViewWindow \(-)0.5,\Xmax,1,0,\Ymax,5
\StoV-Win 1
\RclV-Win 1
\(-)0.5\->\@7F97
1\->\@7F98
\S-Gph1 \DrawOn,\Hist,\List 3,\List 4,\Blue 
\DrawStat\Disp\StoPict 2
\S-Gph1 \DrawOff
T/80\->Q
\Sum ((\List 3-Q)\x^2*\List 4)/79\->S
\sqrtS\->S
"80*\e^x(\(-)(X-Q)\x^2/(2*S\x^2))/(S*\sqrt(2*\Pi))"\->\Y 1
\BG-Pict 2
\Graph Y=\Y 1
\StoPict 5\Disp\FuncOff
\CoordOff
\Max(\List 3)\->N
Q/N\->P
\Dim \List 3\->\Dim \List 5
\(-)1\->K
\Lbl K
K+1\->K
80*(N\nCrK)*P^K*(1-P)^(N-K)\->\List 5[K+1]
\If K<N
\Then \GotoK
\IfEnd
\S-Gph1 \DrawOff
\RclV-Win 1
\S-Gph2 \DrawOn,\xyLine,\List 3,\List 5,1,\Square,\Green 
\DrawStat
\StoPict 3
\ClrGraph
\AxesOff
\RclPict 2
\RclPict 3\Disp\StoPict 3
\Dim \List 3\->\Dim \List 6
\(-)1\->L
\Lbl L
L+1\->L
80*\e^x(\(-)Q)*Q^L/L!\->\List 6[L+1]
\If L<N
\Then \GotoL
\IfEnd
\AxesOn
\S-Gph2 \DrawOff
\RclV-Win 1
\S-Gph3 \DrawOn,\xyLine,\List 3,\List 6,1,\Cross,\Orange 
\DrawStat
\StoPict 4
\ClrGraph
\AxesOff
\RclPict 3
\RclPict 4\Disp\RclPict 5\Disp\Stop

%End