\start83\
\comment=Program file dated 08/31/97, 12:50
\name=BIN
\file=C:\WINLINK\BIN.TXT
ClrHome
ClrList L\1\,L\2\,L\3\,L\4\
Fix 4:FnOff :PlotsOff 
Menu("BINOMIAL PROB.","SINGLE P(R)",A,"SUM OF MANY",B,"DISTRIBUTION",C)
Lbl A
Prompt P
If P<0 or P>1
Goto 7
Prompt N,R
If fPart(N)\!=\0 or fPart(R)\!=\0 or N<0 or R<0
Goto 8
N nCr R*P^R*(1-P)^(N-R)\->\K
Disp ""
Disp "P(R OUT OF N)=",K
Return
 
Lbl C
Prompt P
If P<0 or P>1
Goto 7
Prompt N
If fPart(N)\!=\0 or N<0
Goto 8
For(R,0,N)
N nCr R*P^R*(1-P)^(N-R)\->\L\3\(R+1)
End
For(H,1,N+1)
H-1\->\L\4\(H)
End
round(L\3\,3)\->\L\3\
Plot1(Scatter,L\4\,L\3\,\box\)
\(-)\3*N/91\->\Xmin
94*N/91\->\Xmax
1\->\Xscl
\(-)\.2*max(L\3\)\->\Ymin
1.2*max(L\3\)\->\Ymax
1\->\Yscl
DispGraph
Trace
Stop
 
Lbl 7
Disp ""
Disp "   P MUST BE"
Disp "BETWEEN 0 AND 1"
Disp ""
Stop
 
Lbl 8
Disp ""
Disp " N AND R MUST BE"
Disp "  INTEGERS \>=\0"
Stop
 
Lbl 9
Disp ""
Disp "R MUST BE 0\<=\R\<=\N"
Disp ""
Stop
 
Lbl B
Prompt P
If P<0 or P>1
Goto 7
Prompt N
If fPart(N)\!=\0 or N<0
Goto 8
Input "LOWER R = ",A
If A<0 or A>N
Goto 9
If fPart(A)\!=\0
Goto 8
Input "UPPER R = ",B
If fPart(B)\!=\0
Goto 8
If B<0 or B>N
Goto 9
For(I,1,N+1)
0\->\L\2\(I)
End
For(R,A,B)
N nCr R*P^R*(1-P)^(N-R)\->\L\2\(R+1)
End
For(J,A,B)
L\2\(J+1)\->\L\1\(J-A+1)
End
sum(L\1\)\->\S
Disp "THE SUM IS ",S
Float
Disp "L\1\:",L\1\

\stop83\