Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50144/dbinom.sav
There are no other files named dbinom.sav in the archive.
X &YPM M\( h x0 / p i D m i D m j D n " Tb " ^b " `B~ n o -\
4 n @ o o o5d <-\ }-\
b4 j4 n @ l-\
q4 l4 k @ n-\
`4 k4 o @ l-\
o4 l4 l @ o@@ p@@ p : Z q-\ #4 m o5 J: p q m F q+ L: p q n F q q3: n9 E " ab p p : Z q q3: n9 P + 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)) -\ } + 0 Js0QH T 2 z8] KIp#O@ 1+ &h%@@ 1- '-|p ~p' p 7@ * B 0 " + B *$ 0 0 B *d Ap 7@ 1+ '(@|@ @+ '#sJo81,> ,> ,> ,> ,> ,> F1P 0 0P 0 * [|4d C S / @
5h M,> ,>
~ , V,^ ,^ 0@ +@ _1@ @ =d ;4H C @ 8( B /0 5P F,^x + G,^ ,^ : ~,^ ,^ ,^ ,^ ,> x 1H B ,^ ,~ ,> ,>
~ , V,^ ,^ 7@ Y+@ _=h M + ;H ,> ,> ,> F[~4d a 1F & 0F & 2d + g0F + \0d $ , c0F + a[~0$ $ /$ x B 0d , c,^ ,^ ,^ ,~ )@ 1 , =d c,~ / , =d h + Z x Q . 6* x @f @l |`h d( * 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* + m X" `b + .l" + 34( /4* + lb + .mb *
." l" d" !7@ Y+@ _+ p $ 2 Zp6 0 m,> "x Q" . *"x z^ @@ 4@ J5` >"` l2 @ d` + J ( $ 2
U+ B2
U+ G $ ( +@+ D : =h B4D F
U; "` 6 . ( /( @d ~ ( ( @ ( " 5H M ( " ar + T5& Pl2 + T
/
4, O1h + /( l2 42 V. + W6` . 0d $ 4J _6 .
+ 5j _8
ar + _42 _4f _=" _l2 " $ 52 c4p d. : / 5" d " + d6` . , 7@ , .
.
52 i., 7 /
/ 5h m4( q5D sar @ . . + r?l + o, =l n`r @ , 5D s , + t,
=d s , 52 w50 { + z4B 5& {" . 6` , 8$ z<" },
=" |52 ", / 5& "` , && ,> && . , ,^ . , ar + " , =b Q"|X" N~*" / ,^ ,~ %* .*
:` + ,~ Lf3 (zpR
$o 46q C [ V 3Lf2 $ 6$ H 2
U3
X
X
U,> ,> ,> " 3@f 7@ O 4B ., V< 1` 1 + #l$ / $& . +@ _+ 0@ 1@ + (0@ 1@ + *5" 10@ +@ _+ .0@ 7 4" & + !4$ ,`@ l$ + "6 + 1: 8 d& @
`d "` : ~,^ ,^ ,^ ,~ $ ~,> ,> ,> ,> ( K7@ ( & 5 9l$ "` + I& ." 8 ,> 5` 9 /H 5f A6 5$ D#` Q` / + D<F C, =f B7 , 4b F,^ , =b E,^ ,^ ,^ ,^ ,~ U & ." + :$ }42 Q C @ D7
,
ar + Q H F8 I F8 & \.& ! Q` @ Z Q6 `[ X 1@X + Y> [ 7@ }. V V Z; Z X@ V f ]O@ X* @x Yd2 X2 @b Q* D Y 26 + ud h && & W+`lr + f Y H Y/$ $" . + n* d2 " + ,> ,> ar 0x + per + o Y B Z+ p V Z V " 9 , *X2 =x |mr 48 u6`+ |, *, 0Z Q0 / ]l2 Zd2 `r + U7 T+ ? * + ~>`+ ~/ ]+ ] x 9 ]l2 d2 + , *, 0+ ] " Bd2 l2 d2 4B ]Z /$X $$ 52 <D uar +
1@ , , =b + ], V+@ _<D u ar + 1@ 1F , ` =b + ]
0F + L ,~ ,^ + ]d2 52 , =b + ], V7@ Y+@ _=b + ]d2 dr "` X
+ ]d2 l2 + ]d2 O@ W+ ], #
@@ d2 + _& ^7 : X ~,~ , *+ ]l* + !l* + !l* + !d2 dr +
`j + -aR,~ A" ?!` `j ?( G
er + y+ >,> ! * ,^ Z 1& .& F & \ F F1& + ;1F + :Z 0@ + =l2 !0X Z 1@ +
`r + ]7 ,~ aj + B F1F l* , #,> 42 H, H + J @ `j B ,^ =l yd* ,~ , H + F6@ ]+ M+
X + ;,> S * ,^ l2 & \ F FS : "` 1F ( 1F l2 X ZP + ;`r : *p Td2 + z[
[[ [*[4[>[ 4 R4 sN8% N9g` @& l` * vH_ k h ( d _ j q & ' ( ! ! ! ! ! ( ) , ~6 W7` Q+ 6@ Y+ p@8 ?`8 + 0@ ,~ @@ Y @8 X Q6
+ u6 V,
8 / D.@ 7 + !8 / IX@ zZ .@ z. ^* X zP 8 @ )@' X Q.@ @@ J *!8 C @8 [ @8 :
,~ 6@ U+ `,> , 7
,
,^ .@ + w1@ + qQ q`P@8 @8 O@ Y,~ @8 >`8 1@ 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,^ ,^ ,~ @8 7 Y+ )?`8 O@ Y+ $7B Q+ c@@ Y+ u x+ p,
u`. er + 4 F3`8 + 4 @8 G @8 52 :7 U+ e6` 1D 6` + 8 , , O@ ,~ 7 U+ @1D 6`8 + >@@ Yer @ , V, i@@ YO@ ,~ O@ f1@ ,~ +@ _+ AS * Z 1@ +
:@ , 0@@ \@@ ]6
+ M ^$$ q
D 7 , , n@@
@ @@
_@@ Q f* Y!> *> 7B ]+ T@@ ]+ 7B \+ @@ \+ 6@ Y+ w7`8 , \ 8 : 1@ + n1`
?`8 l2 @ ,~ 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 , \ 8 0@ 1@ + n+ jO@ Y7
:
?`8 + s 8 4@ p0@ 1@ + p7B X+ w. 8 * H@@ H 8 * I @ I ,~ 6 [+ g, n " GBh > !$ " : 2B + |+ M!> *> + v @ * i0@ +
J,
F,
z, Z` + 1` 1` ,
N/ ` B [*" @ @ $ +$ ! 1 C + . 2 L # $ ' ( 6 46
+ 6@
+ O@
+ !@@
@@ Y!2 + $6
+ #
D
@@ O@ Yl2 : Q^ 4@ '1` 3 j,
@ [4 0,> & (@ G G a@ `(@ (@
@ @ @ E,^
kaJ , :`j m2 aj @ `j O@ W`j O@ V`j k ( f P4F C. l(@ 3D + [> =f 7+ C [0` ,
"&
: 7d .$
"
3D l+ $7J ,
DD
m2J m
J E
k,~ `r ,
D & .f P. 0f , ;S ( D X , Z D @ O E D Of n7 WX2 R` N`j , ) H ahO,
D C, h [6 D E7` , 5 D ^6D
&,
7
, X`r @+ A+ h $ l$ h f n+@ . o+@ ,~ + [7` , 5OD ^6r +D E`@ C7 Y, + x ( 7` : 6@ @+ x,> ^$$ 0d
+ q6Bo+
o& (@ G G \(@ @ R!"H: B R0d + w6Bp+
,^ , C7` X+ 7
,
`r + )`r +
ar +
7 W+ K& p/& 7 U+ Q4f KZN Q52 K, e & I F W [ F X & C F XX. WO@ \6 U+ K+ Q B R6Bo B R6Bp B S+ 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 %)F h F + !2 @+ l2 O@ X E D [ D+ ?!2 + %!2 + %" \ # ,
+ y6
+ -
@
@@
2 + %6
+ 1
@
@@
r+ %2 \l S` + %Q2 . n, 9+ Q2 : Q . p, 9+@ + O@ UXB8 Q `X T @8 > 8 ,~
ENCODE - DECODE ERROR!
& <@@ T+ {, n! H: @ R, C+ M7
+ N R( 42 J, r R @@ sf s+@ + [,~ : @@> @@ S tf s+@ ,
',~ ar + V7 ,~ ,> ,> S, D,^ S,^ 6
,~ l2 , Dd2 ,~ 6 + Dd2 ,> ,> S, D,^ S,^ l2 , D,~ @@ R+@ + ],~ t H R!(H: H R+@ + a,~ @@ R+@ ,
",~ R l t+@ ,~ ,> D G@h ,^ ,~ ,> D B@h + g,> [ D@@h + gR G u+@ ,~ 7
+ j* ( q@@ ^* 7 @@ P l p +@ + j6
+ xR X
l x +@ R l l +@ * ( q: ^* 6
+ har + hR X
l z +@ :
7
,~ 7 U+ hO@ U 8 /
@8 Z 8 .
X@8 + h6
+ ar ,
R l n +@ , e+ jR X
l z +@ ,~ 6
ar + y6 W`r + yaj + u ? @
Z ?Z?~/ / @
7`8 , Z8 [ Z8 .D XH S?~X8 . v*(
@8 Z 8 .
X@8 ar + w( q ^ @
, n,
+ R l `+@ ,~ R G y+@ ,~ R G y+@ ,~ R l | +@ + ,~ ,> ,> ,> @@ :
&& z(F 3F + 15F . > 0Z
"+ +4H
+ 2$ z(D XD N $ GD N,^ ,^ ,^ ,~ 3$ {,
D3D { $ 3D { $ 3D | $ 6 ,~ $ ,~ ( n& l4F ?> 0h f+ <,
& F P & f/H ,~ {X Z H J. ~$?{ 0` | J, g+ $ , l + $7`8 , g+ $O@ Y,~ <8
Q7@ \+
@@ ]+ M6$ . B}I4:iSH
x eX2 p INX . N. ^$%8 08 . H R@ @ R, ` RM?L@
@ , }+ y ( , c, n+ ` @
xh h }~KbN@ ~ },
-$
JDIRT.-$
JDOUBT-$
JOCTI.-$
JOCTO.-$
JLINT.-$
JLOUT.-$
JNMLST}
-$
JDEFINE -$
JTFMT.-$
JBINWR-$
JTPFCN INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INZ INZ INZ INZ0 INZ@ I2 I2 I20 I2@ I2P eX2G iSH YC aS iSH 0
E@@
"
I+
H@@
&
J*
5,~ $(
#$h
'~`
J
T 0 9Lf3 T=8) z8]U<c\|i,SY{z 0 ! !y #SD &wka -Qa^':s\-6p
\O@
_-|p p
]@@
_-|p x
_C6 h
`,
i-|p [B h
b,
i-|p [B X
d,
i-\
n-|p C6
g,
i-\
n-|p p 9
k3! p h" ab~ 9
j @
n,~ x
nC6Md h
o,
y-|p [&r h
q,
y-|p [&r X
s,
y-\
~-|p C6Md
v,
y-\
~-|p p 9
{2a p h" ab~ 9
z @
~,~ x
~M2| @
Ap &p 6@ hpX h"6 -|p S; p + SO #p % * ( .7!p "` -|p " ZB *X" + l b @@ j,~ Z.)Vw( Y +bX o7 k lTX kU j7! k7 pU8,> 8 p1x ?18 0+ qA8 + ` #+ ++ ,+ 2+ '+ ++ ++ 2,>x j,6 k,1 l+ @: kA8 )X kk j,9 k+ @ k.8 A8 X l,^ k,> tU87 k8x ,> + ' j, l+ @+ >+ ;+ 9+ 7+ >+ >+ 9 +d8~ l8 + ? +d8pl8 + ?8 ox t.8 d l8 + ?R +d8~l8 * j+@ j X j: + +h8Z `x~ + G`X X +`x[p+ G+ u j+ + iax : jax @ + uX8 `x 8 `x 8 Q` S!X S ` V X i,> U i 8 )X .8 X i`Z+ O,^ -\
WARNING! FORMATTED READ FOLLOWED BY WRITE MAY FAIL.
oH }
& w,~ ,> ,
v,^ ,
i-"
n&p We6@`+
]$ +
Z Z / > $& 0f $ & $ ,
i=f
,
U, }-"
n t@L5>p `+
\,
v 8 1$ 00$ +
,> $ /,
i,^ .$ ,
i-"
n&p
7aW
ze&tp`+
],
k,
a x /& ,
a-"
n]? ;C&dVK -"
mI5r;-XRd
,
n'
6Y<-"
m[?PQp*.j1KL)8k I2@ -"
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+
7 R C,
a+
7 R, 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+ -"
mS2dYpX 9C$\A,~ $
INPUTOUTPT b B 0b +
g,p , -|p Q"A` 4D
g,
i+
6 + -"
n
/ 1kRM{@i&lVB " b /
n R~H6d KJ6Jh 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=XXXXXX FLOATING UNDERFLOW PC=XXXXXX INTEGER OVERFLOW PC=XXXXXX p
g+
nVp\ x
+ h