Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50144/dbinom.sav
There are no other files named dbinom.sav in the archive.
X&YPMM\(h x0/p i Dm i Dm j Dn "Tb  "^b  "`B~no -\
4n @o oo5d<-\	}-\
b4j4n @l-\
q4l4k @n-\
`4k4o @l-\
o4l4l @o@@p@@p : Zq-\#4mo5 J:p q m Fq+L:p q n Fq q3:n9E "abpp : Zq q3:n9P +4+^(' GENERATE A RANDOM SAMPLE OF HEADS AND TAILS'/' FROM A BINOMIAL DISTRIBUTION WITH GIVEN P')  +`(/' GIVE N AND P',$)+a(I,F)+g(' SAMPLE HAS',I3,' HEADS AND',I3,' TAILS'/(10X,20A2)) -\	} +0Js0QH    T    2z8] KIp#O@1+&h%@@1-'-|p~p' p7@   * B0 "+ B*$0 0 B*d  Ap7@1+'(@|@@+'#sJo81,>,>,>,>,>,> 	F1P 00P 0 *[|4dC S /@
5hM,>,> 
~ ,V,^,^0@+@_1@  @=d;4HC  @8(B  /05PF,^x+G,^,^:~,^,^,^,^,> x1H B,^,~,>,> 
~ ,V,^,^7@Y+@_=hM +;H,>,>,> 	F[~4da 1F &0F &2d+g0F+\0d $,c0F+a[~0$ $/$ x B0d,c,^,^,^,~  )@1   ,=dc,~/  ,=dh +Z  xQ .6* x@f@l |`hd(*57@?4J,V>1`1 +l"/ ab +vab.4+3$&.`b:af~+3,>&&0(:.4l" ,^+3lb+*
l(d"!+36 +  @
1@+1@+0@1@;8+@_ab*
4L#`b"`[ab$5./&`b+
65&#` $}+ $`F

X(:5F+0`b"`+#U,`b@@+0@"1@"+}1@+&1@+'1@+)1@++1@++4*7@
_+#+@_,V=*! ,:} Q,}X,*,/6,~ab+34*  +tmb+34*+ mX"`b+.l"+34(/4*+ lb+.mb*
."l"d"!7@Y+@_+p$2Zp60m,> "xQ".*"x z^@@4@J5`>"`l2@d`+J ( $2 
U+B2 
U+G $(+@+D:=hB4DF
U;"`6 .(/(@d ~((  @("5HM ( "ar+T5&Pl2+T 
/
4,O1h+/( l2  42V.+W6`.0d $4J_6 .
+ 5j_8 
ar+_42_4f_="_l2 " $52c4pd.:/5"d "+d6`. ,7@ ,.
.
52i.,7 /
/  5hm4(q5Dsar@. . +r?l+o,=ln`r@  ,5Ds  ,+t,
=ds  ,52w50{ +z4B5&{".6`   ,8$z<"},
="|52  ",  /5&"`  ,&&,>&& . ,,^. ,ar +	 "  ,=bQ"|X" N~*"/,^,~%*.*  
:`+,~ Lf3(zpR
$o46qC[V3Lf2$6$H2  
U3  
X 
X 
U,>,>,>"3@f7@O4B.,V<1`1 +#l$/ $&.+@_+0@1@+(0@1@+*5"10@+@_+.0@7 4"&  +!4$,`@l$+"6 +1:8d& @
`d"` :~,^,^,^,~$~,>,>,>,>(K7@ ( &5 9l$"`+ I& ."8,>5`9   /H5fA6 5$D#`Q`/ +D<FC,=fB7   ,4bF,^,=bE,^,^,^,^,~U & ."+:$}42Q 	C @	D7 
,
ar+Q 	H F8 	I F8&	\.&	! Q` @	ZQ6`[X1@X+Y>[7@  }. V	 V	Z;ZX@	 V	f	]O@	X*@xYd2X2@bQ*  D	Y26	+ud h &&& W+`lr+f 	Y H	Y/$$".+n*d2 "+,>,>ar0x+per+o 	Y B	Z+p V	Z V	 "9,*X2=x|mr48u6`+|,*,0ZQ0 /	]l2 	Zd2`r+U7 T+?  	* 	+~>`+~/	]+] x9]l2d2+,*,0+] "Bd2l2d24B]Z	/$X$$52<Duar+
1@,,=b+],V+@_<Duar+1@  1F,`=b+] 
0F+ L,~,^+]d252  ,=b+],V7@Y+@_=b+]d2dr"`X
+]d2l2 +]d2O@W+],# 
@@d2+_&	^7 :X	~,~,*+]l*+!l*+!l*+!d2dr +
`j+-aR,~A"?!``j?(G
er+y+>,>! 	* ,^Z1&.&	 F	&	\ F	F1&+;1F+:Z0@+=l2!0XZ1@+
`r+]7 ,~aj+B 	F1Fl*,#,> 	42H,H+J @`j B,^=lyd*,~  ,H+F6@]+M+
X+;,>S 	* ,^l2&	\ F	FS:"`1F(1Fl2XZP	+;`r:*pTd2+z[
[[ [*[4[>[4R4sN8%N9g`@&l`*vH_k h(d_jq&'(!!!! !(),~6 W7`Q+6@Y+p@8?`8+0@,~@@Y  @8XQ6 
+u6 V,
 8/ D.@7 + !8/ 	IX@zZ.@z.	^* XzP8 @)@'	XQ.@@@	J 	*!8  C @8 	[ @8:
,~6@U+	`,>,7 
,
,^.@+w1@+qQ q`P@8  @8O@Y,~@8>`81@7,~7 W  `8,,>,l`L,
2`L,
G`L,
+aL@`L,
6@@Y,^,~,>,>7 U+&:`	+$7 V+	a6 W+$   1B+#1B+$1B+#X"k4"$0b+$Z++$,l,l,l,^,^,~@87 Y+)?`8O@Y+$7BQ+	c@@Y+u	x+p,	
u`.er+4 	F3`8+4 @8 	G @852:7 U+	e6`1D6`	+8  ,  ,O@	,~7 U+@1D6`8+>@@Yer@,V,i@@YO@	,~O@	 	f1@,~+@_+AS 	* Z1@+
:@	,0@@\@@]6 
+M ^$$ q 
 D7 ,,n@@
 	 @	@@
_@@Q 	f* Y!>	*> 	7B]+T@@]+7B\+@@\+6@Y+w7`8,\ 8:	1@+n1`
  ?`8l2@,~7 U+g,u,`	H`8,>,l`L +x`L,
6Z
8 
7`L,
2`L,
G`L@,
.,^,~6@TO@TX^T,~6@Y,~+@_? 8,\ 80@1@+n+jO@Y7 
:
?`8+s84@p0@1@+p7BX+w.8*	H@@	H 8*	I @	I  ,~6 [+	g,n "GBh>!$" :2B+|+M!>	*> 	+v  @	* 	i0@+
J,
F,
z,	Z`+1`1`,
N/ ` B 	[*"	 	 @  @	$+$!1C+.2L#$'(646 
+ 6@
+O@
+!@@
@@Y!2+$6 
+# 
 D
@@O@Yl2 :Q^4@'1`3 	j,
 @[4 0,>& (@GG a@`(@(@
 @ @ @	E,^
	kaJ,:`jm2aj@`jO@W`jO@V`j  	k (f P4FC. 	l(@3D+[>=f7+C [0`,
"&
:7d.$
" 
3D	l+$7J,
DD
	m2J	m 
 J	E
	k,~`r,
D &.fP.0f,;S( D X, Z	D @O 	E DOf	n7 WX2R`N`j,) HahO,
 D	C,h [6  D	E7`,5 D^6D
&,
7 
,X`r@+A+h $l$hf	n+@.	o+@,~+[7`,5OD^6r+D	E`@	C7Y,+x (7`:6@ @+x,> ^$$0d
+q6Bo+
 	o& (@GG	\(@ @R!"H: BR0d+w6Bp+
,^,C7`X+7 
,
`r+)`r+
ar +
7 W+K&	p/&7 U+Q4fKZNQ52K,e &	I F	W 	[ F	X &C F	XX.	WO@\6 U+K+Q BR6Bo BR6Bp BS+w7@Z @Z3@Z,~ @ZF@Y,~ 8 @	H 8 @	I,~ar ,~ 	p0@,~  `Q@8 8$  @8,~ 	q$ . 	Q`P.	qY@6 X@,~!2@(	\.(	 	r  @@R4H%)FhF+ !2@+l2O@X 	E D[ 	D+?!2+%!2+%"	\ #	,

+y6 
+- 
 @
@@
 2+%6 
+1 
 @
@@
 	r+%2	\lS`+%Q2  .n,9+Q2 :Q .p,9+@+O@UXB8Q `XT @8>8,~
ENCODE - DECODE ERROR!

&<@@T+{,n! H: @R,C+M7 
+N R(42J,r R @@ 	sf	s+@+[,~: @@>@@S 	tf	s+@,
',~ar +V7 ,~,>,>S,D,^S,^6 
,~l2,Dd2,~6 +Dd2,>,>S,D,^S,^l2,D,~@@R+@+],~ 	t HR!(H: HR+@+a,~@@R+@,
",~Rl t+@,~,> 	D  G@h,^,~,> 	D  B@h+g,>[	D@@h+gRG	u+@,~7 
+j*(	q@@ ^*  7@@Pl p+@+j6 
+xRX
l x+@Rl l+@*(	q: ^*6 
+har +hRX
l z+@:
7 
,~7 U+hO@U 8/
 @8Z8.
X@8+h6 
+ar ,
Rl n+@,e+jRX
l z+@,~6 
ar +y6 W`r+yaj+	u ? @
Z?Z?~//  @
7`8,Z8[Z8.DXHS?~X8.	v*( 
 @8Z8.
X@8ar+	w(	q  ^ @
,n,
+Rl `+@,~RG	y+@,~RG	y+@,~Rl |+@+ ,~,>,>,>@@ :
&&	z(F3F+15F. >0Z
"++4H
+2$	z(DXDN $GDN,^,^,^,~3$	{,
D3D	{ $3D	{ $3D	| $6 ,~ $,~ (n&	l4F?>0hf+<,
 & FP &f/H,~{X	Z 	H	J.~$?{0` | 	J,g+$   ,l +$7`8,g+$O@Y,~<8
Q7@\+
@@]+M6$.B}I4:iSH
x eX2pINX.N. ^$%808.HR@@R,`RM?L@
@,}+y (,c,n+	`@
xhh}~KbN@~	},



	

-$
JDIRT.-$
JDOUBT-$
JOCTI.-$
JOCTO.-$
JLINT.-$
JLOUT.-$
JNMLST}
-$
JDEFINE-$
JTFMT.-$
JBINWR-$
JTPFCNINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INZINZINZ INZ0INZ@I2I2 I20I2@I2PeX2GiSHYC aSiSH0
E@@
" 
I+
H@@
& 
J* 
5,~$(
#$h
'~`
J
T 09Lf3T=8)z8]U<c\|i,SY{z 0!!y#SD&wka-Qa^':s\-6p
\O@
_-|pp
]@@
_-|px
_C6 h
`,
i-|p[Bh
b,
i-|p[BX
d,
i-\
n-|pC6
g,
i-\

n-|p p9
k3!  ph" ab~9
j @
n,~x
nC6Md h
o,
y-|p[&rh
q,
y-|p[&rX
s,
y-\
~-|pC6Md
v,
y-\

~-|p p9
{2a  ph" ab~9
z @
~,~x
~M2|@
Ap&p6@hpXh"6-|pS;p+SO#p%*(.7!p"`-|p"ZB*X"+l	b@@j,~Z.)Vw(Y+bXo7klTXkUj7!k7pU8,>8p1x?180+qA8+`#+++,+2+'+++++2,>xj,6k,1l+@:kA8)Xkkj,9k+@k.8A8Xl,^k,>tU87 k8x,>+' j,l+@+>+;+9+7+>+>+9 +d8~l8+? +d8pl8+?8oxt.8dl8+?R+d8~l8*j+@j Xj:+ +h8Z`x~+G`X X+`x[p+G+u j++ iax :jax@+uX8`x 8`x  8Q`S!XS `V Xi,>Ui 8)X.8Xi`Z+O,^-\
WARNING! FORMATTED READ FOLLOWED BY WRITE MAY FAIL.
oH}
&w,~,>,
v,^,
i-"
n&p	We6@`+
]$+
	Z	Z	/>$&0f$ &$ 	,
i=f
,
U,	}-"
nt@L5>p`+
\,
v 81$00$+
,> $/,
i,^.$ ,
i-"
n&p
7aW 
ze&tp`+
],
k,
a x/& ,
a-"
n]? ;C&dVK-"
mI5r;-XRd
,
n'
6Y<-"
m[?PQp*.j1KL)8kI2@-"
mM&dPC6(0,
`-"
n]? w.j1J
+
_-"
m]<+wZ5|@M&dP`,
`-"
n>p	m&P`+
_,
k,
a-"
n>*:J+zK$Y-"
miPK~)i>x
t_K wVu+
_,
k(Rn H
y,
d-"
n.j1J.,Wd}``+
_-"
mK: sR	 _8+
_-"
mS2dYpX9SR	!+
_-"
mS2dYpXlwKRL0CB(xKJJ7\0H8J
+
_-"
m]l[gP>7i@	9e?-"
meX2DXzi RM?PSK@K$-"
ma+y>p0+
_,>,
k,^ ,
d-"
n:~@_$Y-"
mS2dYpX.99W-p`> 
Y,
Y-"
nCP\rd
 
x,
Y+
,
g-"
nY@_K&(7$mph.992|0` 
x> &.$,
i=f
Z+
l 	C,
a,
g+
7R 	C,
a+
	7R,	C 
i`bp+
b+
l,
i`b`+
e+
l $,
i $u $4D
j
",~,
g $,
i $+
i,
kQ"A@1D+
	1D+
u1D+$t1D+
i+
n,
l+-"
mS2dYpX9C$\A,~$
INPUTOUTPT	b	B0b+
g,p,-|pQ"A`4D
g,
i+
6+ -"
n
/	1kRM{@i&lVB "	b/
nR~H6dKJ6Jh 	b	/
n
us@\YKAeJ~ sB(P !(xZ 
i[-"
n:x	<K.J7\.,WeLI:K$Y,~."&"tQDx&",>4B
n6McA,^,
i[x&" &,
nN,3@,~+&&"QDx?`6@,
ix~x,>OPC=XXXXXXFLOATING UNDERFLOW	PC=XXXXXXINTEGER OVERFLOW	PC=XXXXXXp
g+
nVp\x
+h