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) 5d X $ D 3D 2F !7 + u 3D 2F !7 + k % &+ ` D " cb
&
% + k(21H0CONTROL CARD ERROR, A6,40H CARD EXPECTED, FIRST 6 CHARACTERS WERE A6) "$ . 4D u+ 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 %-\ 84 4
"$ D ("$ D (@@ ) &" . "$ "5$ | : Z )@@he3: "9 * & #4$ 4D : Z * " 6B
% *
+ , : Z ) ?1: 9 2 * + 9(A6,F4.0,A6,I2,13F4.0) 3D %2F &+ _ @4D >"$ . ,4d V+ E @ ? D , ,D ,"` , : Z ) ,h> Dh?3: ,9 B+ V $ 2$ ,+ H " Hb + P(58H NO OF INTERVALS SPECIFIED BY INTERVAL CARD CANNOT EXCEED '23') $ 3$ ,+ k " `B : Z ) ?3: ,9 S : ' '( +@ * @ - "/ -"& . -$ 5$ ^ D + - & Fe+ a(15F4.0) -\ :4 - * "@ @ @ -" (. -5D i $ . (/ -4D l+ m -5D m - ' F ' ) FV - D ( - D ( ' - F5 : Z ): ) / )5d | " vb + {(11H0MORE THAN I4,23H INTERVALS NOT ALLOWED ) + " ) ) ? Fn )3: ,9 q *3: #9 . ) D .!$ D . : Z *: ) ) . Fn!$ D .1: 9 : Z ) he5d : ' ' ) F5 '( / ' . FV ) ' F )3: "9 " . '.V5$ ' . FW+ ' ) FW"$ . 2$ '+ ("$ . D 0 " b 0 + "(10H0MORE THAN I4, 10H VARIABLES ) D " $b + '(19H0PROGRAM TERMINATED) + k ' D 0 $ & $ & 0 D 1 : Z )@@h+3: 09 , " 2B : Z ) *C3: %9 / + 4(18A4) " 8b : Z ) *C3: %9 5 + <(' VARIABLE FORMAT IS'/(1X,18A4)) # D 1-\ 954 14 1 @ 2@@ , : Z 2 X@ C " *DQ" QB : Z ) ?3: "9 D 2 : Z ) $ .hV D 3 hW D 3 3/ 3 D -\ 9#4 4 $ .@ 3 h5 D * 3 Z ) * ?hn4$ U3: 39 P 3 D ): , )/ 3 , D&C , &C5D Z ): + )3: 09 H 23: 29 @ " #b
: Z ) &C3: ,9 ^ " 2.D 1 15d =
-\ 84 4
@@ ) $ D 4 : Z ) h5 D - -/ D 4-\ :4 4 @ -\ :4 - @h,D3: 09 g " qb + w(//3(32H VARIABLE NO. OF REJECTS 8X)//) $ 3d 0+ " b : Z ) ,D (
+3: 09 z $ 2d 0+ 0&$ D 5-\ :4 04 0/ D 5 " b : Z * * Z ) ,D (
+. 5 5/Z 7 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 - . "@ @ @ 4 4 -. )DW 0 )/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: 69 a $ ).s D 7 7 Z * h; D 2 6 Dh${ 2"V.W D . .. 6 & / . F -\ 9#4 4 $ . D 6" . 65d
: Z ) &C3: 29 + $(20G) : Z ) hW D : $ .hs D 3 ht D 3" 3. 34$ > : Z ) h&C D 6 64d : )/ : D : 3 Z , h; D ; :. ; D ; ; &C D < <4d 9 < ,.${ D < $ $ < 6. : ,3: 39 / ). 0 2/Z 7 0" 4d * )3: 99 $" 9.D 1 15d -\ 84 4
: Z ) hW D : $ .hs D 3 ht D 3 $ :.V D = :"V.W D . $ / . D -\ 9#4 4 $ .. F =" 3. 34$ q 3 Z ) h; D ; $ .h${ D > $ ;.V D > ;"V.W D . $ / . D -\ 9#4 4 $ .. F ? & $ > $XD k : $,DXD k ; $,DXD l = $nXD m > $nXD n :( $ XD n ;( (XH o-\ 14 k4 k4 l4 =4 ?4 m4 n4
n4
o4 3: 39 R )3: 99 C 74d I@@ ) 8 Z *: ) ) h; F;3: 89 u $ D 7@@ 6 $ D ) 9 W D X+ | " 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
DATA h0c=t! 8PROBLMZ 1/FINISHZ 1-INTRVL 1 TABLES 1NO 1%p. K(-u-\ :4 4 1 4 1$4 14 1$4 1 $ t D 1& -u4D . " -}b + . (20H1ORIGINAL CATEGORIES ) @@ 1& 1' 1, 1( D 1- : Z 1- . 1" Dh4 . 1! Dh43: 1$9 ."$ . 1 D 1."$ . 1! D 1. : Z 1-@@h3V3: 1.9 .
1 .
"
1 .
$0 XD .-\ 954 .4 1 @0 1/$ 1 $ 1.
1 .
"
1 .
0
1/.D03a 1/$ 1 $ 1.
1 .
"
1 .
0 .Dh3V3: 1.9 . 1/ 3a.D 1/ 1/3: 1.9 .` 1/ @ 10 $ . 1. D 10@@ 11 $ . 1. D 11 1* D 12@F 12 -u4D .p " .8b
12 1
1" : Z 1- 43: 119 .5 + .@(/1X,A6,9H VARIABLE F6.1,1X,A6,16H BOUNDARY POINTS 10F7.2/(45X,10F7.2)) 1* 12 " .8b
12 1
1# : Z 1- 43: 109 .D " .Hb + .K(16H0FREQUENCY TABLE ) 1/5d .S " .Nb + .S(/ 6X, 'THERE ARE NO CASES IN THE TABLE') + /` " .Wb : Z 1- 3: 1.9 .U + .Y(/3X,23I5) " .Zb + .[(/) : Z 1- " .nb 1- : Z 1/ $ 1 1-$ 1. 1 . "
1 .
( 3: 1.9 .^
1- (3V 1- 3: 1.9 .\ " .mb : Z 1- 3a3: 1.9 .i 1/ + .n(3X,23I5) + .p(I3,23I5) @@ 13 104d .s-\ 9c4 10 10"@ 13 104d .t : Z 1/ h3a` @h4 h44d .{ 1/ $4XD .z-\ 9c4 .z 4@ 13 1/3: 1.9 .u" 1 D 13 : Z 1- h3V` @h4& h4&4d / 1- $4&XD /-\ 9c4 / 4&@ 13 : Z 1/ $ 1 1-$ 1. 1 . "
1 .
( ` @ 14 145d /: 11+ /-\ 9c4 14 14@ 13"` 13 1/ 4 1- 4& 14 14 F 13 1/3: 1.9 / 1-3: 1.9 .~ 10 13 D 14"$ . 1."& . 1.$ D 15 154d /+ 140$ g O 150f g O G 4$ /+-\ :4 15 14 D 13 10 14 14 F 1%-\ 9E4 1% @ 15!$ D 13"` 13 -u4D /K+ /-@@ 14@@ 13@@ 15+ /( " /1b 14 15 13 15 + />(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) " /@b 13 + /I(30H -2 LOG(MLR) F10.4,4X,34H (MLR = MAXIMUM LIKELIHOOD RATIO) ) -u3D 1++ 0A+ /\ " /Sb
1, 1- 1
1" 1
1# 11 14 15 13 15 13 + /Y(A6,A4,1X,2(F6.1,1X,A6),I6,F15.4,6X,I6,F16.4,F17.4,F18.4) 1( 1, 1) D 1-+ /_ 1+3D -u+ 0 1+3D -t+ /u" 1&5$ /a+ /`+ 1 $ D 1& 1/$ -t D 16 1 XD /e-\ 5J4 /e4 1.4 1.4 3V4 3b4 164 44 44 1$ 1.4d /` -u4D ., " /mb -t + /u(52H1COLLAPSED CATEGORIES (EXPECTED NUMBERS GREATER THAN I3,1H)) + ., : Z 1- : Z 1/ h45D /{ $ $ 1/. 1-@@1++ 0 1/$ 1 1-$ 1.
1 .
"
1 .
$0 XD 0-\ :4 0 1/ 4 z $ $ 1/. 1- @ 1%@ 1% @1+ 1/3: 1.9 /w 105D 0
1-@@3J+ 0 1- 4& 10 $z$ @ @3J 1-3: 1.9 /v : Z 1/ h45D 0 1/@@3?+ 0 1/ 4 4 $z$ @ @3? 1/3: 1.9 0 " 1b $ D 16+ 0f : Z 1- : Z 1/ 1- 4&5D 0! $ $ 1/. 1-@@1++ 0, 1/$ 1 1-$ 1.
1 .
"
1 .
$0 XD 0'-\ :4 0' 1- 4& z $ $ 1/. 1- @ 1%@ 1% @1+ 1/3: 1.9 0 1- 4&5D 01 1-@@3J+ 04 1- 4& 4& $z$ @ @3J 1-3: 1.9 0 : Z 1/ 105D 09 1/@@3?+ 0= 1/ 4 10 $z$ @ @3? 1/3: 1.9 06 $ D 16 " 1b + 0f : Z 1- : Z 1/ 105D 0G $ $ 1/. 1-@@1++ 0R 1/$ 1 1-$ 1.
1 .
"
1 .
3$0 XD 0M-\ :4 0M 10 SzA R$ $ 1/. 1- @ 1%@ 1%1@1+1 1/3: 1.9 0C 105D 0V 1-@@3J+ 0Y 1- 4& 10 $z$ @ @3J- 1-3: 1.9 0B1: Z 1/ 105D 0^' 1/@@3?+ 0bI 1/ 4 10 $z$ @ @3?U 1/3: 1.9 0[4" 0}b 5$ 5D 165" .Wb 5: Z 1- 3: 1.9 0g^ " .Zb 5: Z 1-4" .nb 1-5: Z 1/4$ $ . 1- 1+3: 1.9 0n5 1- 3J5 1-9 3: 1.9 0l " .mb 4: 4Z 1- 3?3: 1.9 0v 1& 6b 160b 7 +0{4 / 4 /]4 /\+ 1(//40HZTABLE PERCENTAGES (TENTHS3OF5A9PERCENT))$ + 1(//41HCOLUMNPERCENTAGES4(TENTHSDOF`A PERCENT)) + 1 4D 4V 5^ D 5a> 5a 5a. 5Z 4D 4Y 5a5d 4" 5Y. 5`4d 4i+ 5" 5Y. 5`5d 4d 5a. 5Z 5`. 5Z/ 5$ 4i 5a. 5Z 5^. 5Z.D 5a. 5Z@@+ 4m 5^. 5Z 5`. 5Z.D 5^. 5Z@@ $ D 5]+ 47 5` D 5`: 5` 5`. 5Z 4D 4p 5` D 5a> 5a 5a. 5Z 4D 4s 5a5d 4y" 5Y. 5`4d 5+ 5" 5Y. 5`5d 4~ 5a. 5Z 5`. 5Z/ 5$ 5 5a. 5Z 5`. 5Z.D 5a. 5Z@@+ 4E 5`. 5Z 5`. 5Z.D 5`. 5Z@@+ 4E : Z 5@@h5b3: 5Y9 5 @@ 5` : Z 5a : Z 5 5a$ 5U $ 5U.
5X.
"
5V.
50 .Dh5b3: 5Y9 5 5` 5`. 5Z 5a. 5Z ' F 5`. 5[ 5a. 5[ F : Z 5 5`$ 5U $ 5U. 5X. "
5V.
h5b L( @@h5b3: 5Y9 5 5a3: 5Y9 5 5` D 5b : Z 5_@@h5b3: 5b9 5'@@ 5` : Z 5a : Z 5_ $ 5U 5a$ 5U.
5X.
"
5V.
0 .Dh5b3: 5b9 5+ 5a. 5Z 4d 5B: 5` 5`. 5Z 5a. 5Z ' F 5`. 5\ 5a. 5\ F : Z 5_ $ 5U 5`$ 5U. 5X. "
5V.
h5b L( @@h5b3: 5b9 5; 5a3: 5Y9 5* 5Y. 5Y/ 5`/ 5b5D 5G@@ 5Y+ 5Q 5` D 5Y 5b D 5Y+ 5Q4 Z 5W \ 5W 5X, p ,!p ,!p , p , p ,!p , p , p ,!p + 42 5W 5W\ 5\/ ,Ap ,Ap -|p 5m 4 O@ 6U+ 5q4 @@ 6UO "$ D 6V $ : INX |H5t+ 6
66@ 6U J 6
6J 6Z 6+ 6 J 6z 6+ 6R
z@ + 6 #p & >
3L6+ 67@6 /& 5f 5}7 + 6 @@ 6: 6 L 6
PL6+ 6R d. R6d$ 2N + 5: 6:
R 5n+ 6
R 5p3@ 6V,~ -|p kN
y1kN
y CB` x6x 6H6QZ 60B + 6 d
:` 6V+ 6 + 5xx6V4 }X6W \ 7< @ 7<< 7D0< 0| + 1\ + 6e,>p6VZ p6V+ p @ h7@ p7@(7"@07+@ x7@ 7@87-@(7@ P7&@ P7&@ h7@6m@ 6m@7@7s(7[ (/< 0"` S<p X< 0 p 3@ 7E+ 6k*| 6g-< 7Qwx6jZ` 6W+ 7! @w+ 6i< 7E p 7 p + 7,> ,> ,> &w p , 7,& .< 7@p + 7 p , 7" 7F 74.< p ` 7F w,& ,& 5 6r.< p d 7G: ." Q ,& p ,& >` 9 6}.< 9 6s@@ ,^ ,^ ,^ + 7d @ @ & 0b ." ." )B}5@ 7,~ m< !< P\ 78< 7E p [ p l< 0@X + 7Z p .< / p Q \ 79+ 7@@ 79!< P\ 787@ 7;+ 7 < 7; \ 79@@ 7;!< P\ 78X X\ 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+ 77 7J 7L \ 78 @ 7+X Q< \ 78 7L \ 79+ 7~x7+[`x 7<, x + 72Z \ 78@@ 78@@ 79< 7E \ 79+ 77 7: 7:X\ 6W@@ 7:@@ 7:+ 7P74 ~07<>x ! Z @
& 7MU` eB + 7C@ )@ G
" + 7?
& 7Q+ 8Z6$ 1 ,> :. @
p .4 6$ v71.
.4 79. 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 + gg M?} 7a
& 7c b + 7Q,
?NO CORE AVAILABLE - CAN NOT PROCEED
}07g!* 8** ,^ ,~ * x ,> J 8
* 8** 8
p Z@ 7}@@ 7~@@ 7~ 8>`|+ 7qP w,~ "p h a`~ + 7wh ``~ + 7x$ 8?!7yd 8?/"+ 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,7Ap X" 8D B7}/& p d"~ l" B7}*\ 8,/& p d"~ l" $ B7}*\ 8,/& p d"~ l"
B7}*\ 8,Sp *\ 8,/&Xp B 8@@ 8 8E B7}*\ 8,/& p d"~ l" B7}RF 7} < 7}, + 7hEV4i91 ,> :+ 89S ,i@1 ,> :+ 89_ ,i@1 ,> :+ 89K>2 1 ,> :+ 89K>40 1 ,> :+ 89[<I71 ,> :
& 8F w @ )@ .
" 5B 8;
& 8L,~ ` .
.4 SEQINvh8@ ^ 8@SEQOUT ^ 8ARANDOM ^ 8CSEQINOUT 8
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> :O@ 9
+ 8QgR~@1 ,> :@@ 9
,> ,> @ 6 w+ 8]" 9 0B + 8Y!"A`X#p 5@ 8V/#p !" X#p + 8]\p + 8]a.9'1 ,> :,> ,> O@ 9
+ 8],>
6 + _ 4` 8f"` Q@ ,> < 9
, ,^ ,> < 9,
,^ *b 8c+ 8p,> < 9, ,^ 7@ 9
+ 8k,> < 9,
,^ + 8m,> < 9,
,^ Z 5" 8p,> < 9,
,^ , 7@ 9
,
,> < 9, ,^ , ,> < 9, ,^ ,> < 9 ,
,^ (@qd 1@ ,,
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
.p X `9 p9X `9 9 p 9 p9p 9
p9p p9X `9 9 X ~P9 9 p x y9 C6 1 ,> :, 9+,~ [B 1 ,> :, 9+,~ [B 1 ,> :, 9+@ ,~ C6 1 ,> :, 9+` ,~ ,> e|P w+ 9-3!p p *| 9-a|+ 91 p h" ab~ + 9-,^ ,~ C6Md 1 ,> :, 9=,~ [&r 1 ,> :, 9=,~ [&r 1 ,> :, 9=@ ,~ C6Md 1 ,> :, 9=` ,~ ,> e|P w+ 9@2ap p *| 9?a|+ 9D p h" ab~ + 9?,^ ,~ gG@ 1 ,> :7cp + 9T )@ / @( X@ 9P(B{4 9QB ? B 9W "P" 9W B 9W @ ,~ B @ B 9W ""X+ 9M4B 9V+P 7c0
9X#p + 9G ,~ ~X9Wattempt to take SQRT of negative arg C2|t(1 ,> : p 4@ 9s @ 9b,> < 9|, 9c,^ 9b,~ {e^b}9bC2|p 1 ,> : p 5` 9g4@ 9s+P 7c09|#p 3@ 9v+ 9u) r. !@ 9z! n@ 9z(|h" 9w 9w B 9{ 9x 9x 9y 9{ 9z 9y,~ +D 7c0
9t 9z,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 89{x 9bATTEMPT 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\ : * + !$h X$h @@h *% " :% Bh L " Bh M+ x eX2G iSH YC aS iSH ~:%INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G x:4iSH +