Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd02s.sav
There are no other files named bmd02s.sav in the archive.
h'&P:5-6Wx-&H;x. 3@/+A(50H1BMD02S - CONTINGENCY TABLE ANALYSIS - VERSION OF ,18HJUNE 15, 1966 ,/ 41H HEALTH SCIENCES COMPUTING FACILITY, UCLA // 23H PROBLEM IDENTIFICATION 3X,A6) $h D $/ D $ D D $d D-\5n4
$ D $ D D "RB
!"##$-t-u-t-u$% +V(2A6,I3,I5,2I3,I2,3A3,I2,A2,29X,I2) 5dX $ D3D 2F!7+u3D 2F!7+k %&+` D "cb
&
% +k(21H0CONTROL CARD ERROR, A6,40H CARD EXPECTED, FIRST 6 CHARACTERS WERE A6) "$. 4Du+s "nb +s(28H0INTERVAL CARDS OUT OF ORDER ) +k X@t-\: "0b
! "$."&.$5D
"|b +(5H0TAPEI3,65HMAY NOT BE USED AS AN ALTERNATE INPUT TAPE FOR THIS PROGRAM ) +k "b# +
(I4,' INTERVAL CARDS IS ILLEGAL') +k"$.4D X@ / 4D $3D + X@@@' $/%"&.%$5$! "b + (56H0NUMBER OF FORMAT CARDS INCORRECTLY SPECIFIED, 1 ASSUMED) $ D% $ $D%-\844
"$ D("$ D(@@)&"."$"5$| : Z)@@he3:"9*& #4$4D : Z* "6B
%*
+, : Z) ?1:92 * +9(A6,F4.0,A6,I2,13F4.0) 3D%2F&+_ @4D>"$.,4dV+E @? D, ,D,"`, : Z) ,h> Dh?3:,9B+V $2$,+H "Hb +P(58H NO OF INTERVALS SPECIFIED BY INTERVAL CARD CANNOT EXCEED '23') $3$,+k "`B : Z) ?3:,9S :' '(+@* @- "/-"&.-$5$^ D + - & Fe+a(15F4.0) -\:4-* "@@ @-"(.-5Di $.(/-4Dl+m -5Dm - ' F ' ) FV - D( - D( ' - F5 : Z):) /)5d| "vb +{(11H0MORE THAN I4,23H INTERVALS NOT ALLOWED ) +" ) ) ? Fn )3:,9q *3:#9. ) D.!$ D. : Z*:) ) . Fn!$D.1:9 : Z) he5d:' ' ) F5 '(/ ' . FV ) ' F )3:"9". '.V5$ ' . FW+ ' ) FW"$.2$'+("$. D0 "b0 +"(10H0MORE THAN I4, 10H VARIABLES ) D "$b +'(19H0PROGRAM TERMINATED) +k ' D0 $&$&0 D1 : Z)@@h+3:09, "2B : Z) *C3:%9/ +4(18A4) "8b : Z) *C3:%95 +<(' VARIABLE FORMAT IS'/(1X,18A4)) # D1-\954141 @2@@, : Z2 X@C "*DQ"QB : Z) ?3:"9D 2 : Z) $.hV D3 hW D3 3/3 D-\9#44$ .@3 h5 D* 3 Z) * ?hn4$U3:39P 3 D):, )/3 , D&C , &C5DZ ):+ )3:09H 23:29@ "#b
: Z) &C3:,9^ "2.D1 15d=
-\844
@@) $ D4 : Z) h5 D- -/ D4-\:44 @-\:4- @h,D3:09g "qb +w(//3(32H VARIABLE NO. OF REJECTS 8X)//) $3d0+ "b : Z) ,D (
+3:09z $2d0+ 0&$ D5-\:404 0/ D5 "b : Z* * Z) ,D (
+.5 5/Z7 5"4d *3:59 +(3(F6.1,1X,A6,I8,19X)) 0/54D :5 "b 5 Z) ,D (
+3:09 + (80X,F6.1,1X,A6,I8,11X) @@6@@)+8(' COMPRESSED OUTPUT'/'1',16X,'VARIABLES',11X,'NUMBER',2X,'OF',4X,'CHI SQUARE',3X,'DEGREES OF',3X,'CHI SQUARE/D.F.',3X,'CONTINGENCY',5X,'-2 LOG (MAXIMUM'/36X,'EMPTY CELLS',18X,'FREEDOM',23X,'COEFFICIENT',3X,'LIKELIHOOD RATIO)') 2D$+<@@-u "!b @@):) "CB
%.6:Z*%3:69@t+E(A6,F4.0,I2,15F4.0)3D%2F&7+I&+))Fs@.@--\:4-. "@@@44-.)DW0)/W"(.W$5$` "Xb.) +(' ROW VARIABLE ',F5.0,' ON TABLES CARD ',I3,' IS ILLEGAL') D +k : Z* h%@ @--\:4-h% "@@ @4:) 4 -. ) D; 0 )/;"(.;$5$y "pb *%) +w(' COLUMN VARIABLE ',F5.0,' ON TABLES CARD ',I3,' IS ILLEGAL') D +k *3:69a $ ).s D7 7 Z* h; D2 6 Dh${ 2"V.W D. ..6 &/. F-\9#44$ . D6".65d
: Z) &C3:29 +$(20G) : Z) hW D: $.hs D3 ht D3"3.34$> : Z) h&C D6 64d: )/: D: 3 Z, h; D; :.; D; ; &C D< <4d9 < ,.${ D< $$< 6.: ,3:39/ ).0 2/Z7 0"4d* )3:99$"9.D1 15d-\844
: Z) hW D: $.hs D3 ht D3 $ :.V D= :"V.W D. $/. D-\9#44$ .. F="3.34$q 3 Z) h; D; $.h${ D> $ ;.V D> ;"V.W D. $/. D-\9#44$ .. F? &$> $XDk : $,DXDk ; $,DXDl = $nXDm > $nXDn :( $ XDn ;( (XHo-\14k4k4l4=4?4m4n4
n4
o43:39R )3:99C 74dI@@) 8 Z*:) ) h; F;3:89u $ D7@@6 $ D) 9 W DX+| "b" +(1X,I4,' VARIABLES IS ILLEGAL. MUST BE LESS THAN ' ,I4)+k "b- +(1X,I5,' IS ILLEGAL INDEX OF VARIABLE TO BE CATEGORIZED ASSPECIFIED ON INTERVL CARD')+k-\:+ +0BMD02S p
DATAh0c=t!8PROBLMZ1/FINISHZ1-INTRVL1TABLES1NO1%p. K(-u-\:44141$4141$41 $t D1& -u4D. "-}b +.(20H1ORIGINAL CATEGORIES ) @@1&1'1, 1( D1- : Z1- .1" Dh4 .1! Dh43:1$9."$.1 D1."$.1! D1. : Z1-@@h3V3:1.9.
1.
"
1.
$0XD.-\954.41 @0 1/$1 $1.
1.
"
1.
0
1/.D03a 1/$1 $1.
1.
"
1.
0.Dh3V3:1.9. 1/ 3a.D1/ 1/3:1.9.`1/ @10 $.1. D10@@11 $.1. D11 1* D12@F12 -u4D.p ".8b
121
1" : Z1- 43:119.5 +.@(/1X,A6,9H VARIABLE F6.1,1X,A6,16H BOUNDARY POINTS 10F7.2/(45X,10F7.2)) 1*12 ".8b
121
1# : Z1- 43:109.D ".Hb +.K(16H0FREQUENCY TABLE ) 1/5d.S ".Nb +.S(/ 6X, 'THERE ARE NO CASES IN THE TABLE') +/` ".Wb : Z1-3:1.9.U +.Y(/3X,23I5) ".Zb +.[(/) : Z1- ".nb1- : Z1/ $1 1-$1. 1."
1.
(3:1.9.^
1-(3V 1- 3:1.9.\ ".mb : Z1- 3a3:1.9.i1/ +.n(3X,23I5) +.p(I3,23I5) @@13 104d.s-\9c41010"@13 104d.t : Z1/ h3a` @h4 h44d.{ 1/ $4XD.z-\9c4.z4@13 1/3:1.9.u"1 D13 : Z1- h3V` @h4& h4&4d/ 1- $4&XD/-\9c4/4&@13 : Z1/ $1 1-$1. 1."
1.
(` @14 145d/:11+/-\9c41414@13"`13 1/ 4 1-4& 1414F13 1/3:1.9/ 1-3:1.9.~ 1013 D14"$.1."&.1.$ D15 154d/+ 140$gO 150fgOG4$/+-\:415 14 D13 1014 14 F1%-\9E41% @15!$D13"`13 -u4D/K+/-@@14@@13@@15+/( "/1b14151315 +/>(10X,'CHI-SQUARE',11X,F10.4/6X,'DEGREES OF FREEDOM',9X,I9/8X,'CHI-SQUARE/D.F.',7X,F10.4/5X,'CONTINGENCY COEFFICIENT',4X,F10.4) "/@b13 +/I(30H -2 LOG(MLR) F10.4,4X,34H (MLR = MAXIMUM LIKELIHOOD RATIO) ) -u3D1++0A+/\ "/Sb
1,1-1
1"1
1#111415131513 +/Y(A6,A4,1X,2(F6.1,1X,A6),I6,F15.4,6X,I6,F16.4,F17.4,F18.4) 1(1, 1) D1-+/_ 1+3D-u+0 1+3D-t+/u"1&5$/a+/`+1 $ D1& 1/$-t D16 1XD/e-\5J4/e41.41.43V43b416444441$ 1.4d/` -u4D., "/mb-t +/u(52H1COLLAPSED CATEGORIES (EXPECTED NUMBERS GREATER THAN I3,1H)) +., : Z1- : Z1/ h45D/{ $$1/.1-@@1++0 1/$1 1-$1.
1.
"
1.
$0XD0-\:40 1/4 z $$1/.1- @1%@1% @1+ 1/3:1.9/w 105D0
1-@@3J+0 1- 4&10$z$@ @3J 1-3:1.9/v : Z1/ h45D0 1/@@3?+0 1/ 44$z$@ @3? 1/3:1.90 "1b $ D16+0f : Z1- : Z1/ 1- 4&5D0! $$1/.1-@@1++0, 1/$1 1-$1.
1.
"
1.
$0XD0'-\:40' 1-4& z $$1/.1- @1%@1% @1+ 1/3:1.90 1- 4&5D01 1-@@3J+04 1- 4&4&$z$@ @3J 1-3:1.90 : Z1/ 105D09 1/@@3?+0= 1/ 410$z$@ @3? 1/3:1.906 $ D16 "1b +0f : Z1- : Z1/ 105D0G $$1/.1-@@1++0R 1/$1 1-$1.
1.
"
1.
3$0XD0M-\:40M10SzAR$$1/.1-@1%@1%1@1+11/3:1.90C105D0V1-@@3J+0Y1-4&10$z$@@3J-1-3:1.90B1:Z1/105D0^'1/@@3?+0bI1/ 410$z$@ @3?U1/3:1.90[4"0}b5$5D165".Wb5:Z1-3:1.90g^".Zb5:Z1-4".nb1-5:Z1/4$$.1-1+3:1.90n51-3J51-93:1.90l".mb4:4Z1-3?3:1.90v1&6b160b7+0{4/4/]4/\+1(//40HZTABLE PERCENTAGES(TENTHS3OF5A9PERCENT))$+1(//41HCOLUMNPERCENTAGES4(TENTHSDOF`APERCENT))+14D4V 5^ D5a>5a 5a.5Z 4D4Y 5a5d4"5Y.5`4d4i+5"5Y.5`5d4d 5a.5Z 5`.5Z/5$4i 5a.5Z 5^.5Z.D 5a.5Z@@+4m 5^.5Z 5`.5Z.D 5^.5Z@@ $ D5]+47 5` D5`:5` 5`.5Z 4D4p 5` D5a>5a 5a.5Z 4D4s 5a5d4y"5Y.5`4d5+5"5Y.5`5d4~ 5a.5Z 5`.5Z/5$5 5a.5Z 5`.5Z.D 5a.5Z@@+4E 5`.5Z 5`.5Z.D 5`.5Z@@+4E : Z5@@h5b3:5Y95 @@5` : Z5a : Z5 5a$5U $5U.
5X.
"
5V.
50.Dh5b3:5Y955` 5`.5Z 5a.5Z ' F 5`.5[ 5a.5[ F : Z5 5`$5U $5U. 5X."
5V.
h5b L(@@h5b3:5Y95 5a3:5Y95 5` D5b : Z5_@@h5b3:5b95'@@5` : Z5a : Z5_ $5U 5a$5U.
5X.
"
5V.
0.Dh5b3:5b95+ 5a.5Z 4d5B:5` 5`.5Z 5a.5Z ' F 5`.5\ 5a.5\ F : Z5_ $5U 5`$5U. 5X."
5V.
h5b L(@@h5b3:5b95; 5a3:5Y95* 5Y.5Y/5`/5b5D5G@@5Y+5Q 5` D5Y 5b D5Y+5Q4 Z5W \5W 5X, p,!p,!p, p, p,!p, p, p,!p+42 5W 5W\ 5\/ ,Ap,Ap-|p 5m4O@6U+5q4@@6UO"$ D6V $:INX|H5t+6
66@6U J6
6J6Z6+6 J6z6+6R
z@+6 #p &>
3L6+67@6 /&5f5}7 +6 @@ 6: 6 L 6
PL6+6Rd.R6d$2N+5:6:
R5n+6
R5p3@6V,~-|pkN
y1kN
y CB`x6x6H6QZ60B+6 d
:`6V+6 +5xx6V4}X6W \7< @7<<7D0<0|+1\+6e,>p6VZp6V+p@h7@p7@(7"@07+@x7@7@87-@(7@P7&@P7&@h7@6m@ 6m@7@7s(7[(/<0"`S<pX<0 p3@7E+6k*|6g-<7Qwx6jZ`6W+7! @w+6i<7E p7 p+7,>,>,> &w p,7,&.<7@p+7 p,7"7F 74.< p`7F w,&,&5 6r.< pd7G:." Q,& p,&>`96}.<96s@@,^,^,^+7d @@& 0b.".")B}5@7,~m<!<P\78<7E p[pl<0@X+7Zp.</ pQ \79+7@@79!<P\787@7;+7 <7; \79@@7;!<P\78XX\78 7G7@7:D<7@7:A< \78 <78[`x 7<,x,^x 7<+6W 6WQ< \78:6W \79<7H p74|7H < \78@@79+7@@78 Q< \78<7H p74|7I+777J 7L \78 @7+XQ< \78 7L \79+7~x7+[`x 7<,x+72Z \78@@78@@79<7E \79+777: 7:X\6W@@7:@@7:+7P74~07<>x! Z @
&7MU`eB+7C@)@G
"+7?
&7Q+8Z6$1,>:.@
p.46$v71.
.479.78SEQIN}07J@7ISEQOUT@7K@7+
%5 Source level error at user's loc
`Z(X^. >S.~(3~+7V ~+7aZ. \x <x*<x .->:ez+7]!" b+ "7^ b+Z. h+ggM?} 7a
&7c b+7Q,
?NO CORE AVAILABLE - CAN NOT PROCEED
}07g!*8**,^,~*x,> J8
*8**8
pZ@7}@@7~@@7~ 8>`|+7qPw,~ "p h a`~+7wh ``~+7x$8?!7yd8?/"+7rP,~@@@ @@0@x@@@`y 8
edX91,>:,>Zp @7}\`7} <7},,^,~SMI 1,>:,7j 8A B7}+8!_MI 1,>:,7j 8B B7}+8!I5R1,>:,7j 8D B7}*\8,7ApX"8D B7}/& pd"~l" B7}*\8,/& pd"~l"$ B7}*\8,/& pd"~l"
B7}*\8,Sp*\8,/&Xp B8@@8 8E B7}*\8,/& pd"~l" B7}RF7} <7},+7hEV4i91,>:+89S,i@1,>:+89_,i@1,>:+89K>21,>:+89K>401,>:+89[<I71,>:
&8F w @)@.
"5B8;
&8L,~`.
.4SEQINvh8@^8@SEQOUT^8ARANDOM^8CSEQINOUT8
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1,>:O@9
+8QgR~@1,>:@@9
,>,>@6 w+8]"90B+8Y!"A`X#p5@8V/#p!"X#p+8]\p+8]a.9'1,>:,>,>O@9
+8],>
6+ _4`8f"`Q@,> <9
,,^,> <9,
,^*b8c+8p,> <9,,^7@9
+8k,> <9,
,^+8m,> <9,
,^Z5"8p,> <9,
,^,7@9
,
,> <9,,^,,> <9,,^,> <9,
,^(@qd1@,,
1@#+80@*+8q,> <9,,^+8q,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP h9
.pX`9p9X`99p 9 p9p 9
p9p p9X`99X~P99p xy9C6 1,>:,9+,~[B1,>:,9+,~[B1,>:,9+@,~C61,>:,9+`,~,>e|Pw+9-3!p p*|9-a|+91 ph" ab~+9-,^,~C6Md 1,>:,9=,~[&r1,>:,9=,~[&r1,>:,9=@,~C6Md1,>:,9=`,~,>e|Pw+9@2ap p*|9?a|+9D ph" ab~+9?,^,~gG@1,>:7cp+9T )@/ @( X@9P(B{4 9QB? B9W"P" 9WB 9W@,~B@ B9W""X+9M4B9V+P7c0
9X#p+9G ,~~X9Wattempt to take SQRT of negative argC2|t(1,>: p4@9s @9b,> <9|,9c,^9b,~{e^b}9bC2|p1,>: p5`9g4@9s+P7c09|#p3@9v+9u)r. !@9z! n@9z(|h"9w 9w B9{ 9x9x9y9{9z9y,~+D7c0
9t 9z,~ ,~ 0_i/X3 6P'M 5( bB W
R `@89{x9bATTEMPT TO TAKE LOG OF NEGATIVE ARG}X:M2|1,>: p+:M3!d`,~CQ`1,>: D:$:/$ D:"%p #p."Q @@: @.< $p.D: p/p$ *b: :7@:( D @ :,~}p:0
p[> 1,>: p&p ,~KbN@1,>:,
,~:Y\:Q<X\:*+!$hX$h@@h*% ":% BhL " BhM+xeX2GiSHYC aSiSH~:%INXGYC GSHiSHaSaSI'IR
IR
IR
0IR
@IR
PIR
`IR
p[R
[R
[R
M?L@INXINXINXINXINXI2I2 I20I2@Gx:4iSH+