Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0137/bmd/bmd02s.exe
There is 1 other file named bmd02s.exe in the archive. Click here to see a list.
?p	0 0@0 0 `0
?hX*1?x " 
 
<++A2	``9f*1A@2(FINISH    PROBLM    INTRVL              NO   TABLES    (50H1BMD02S - CONTINGENCY TABLE ANALYSIS - VERSION OF ,18HJUNE 15, 1966     ,/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA//23H PROBLEM IDENTIFICATION3X,A6)(2A6,I3,I5,2I3,I2,3A3,I2,A2,29X,I2)(21H0CONTROL CARD ERROR, A6,40H CARD EXPECTED, FIRST 6 CHARACTERS WERE A6)(28H0INTERVAL CARDS OUT OF ORDER)(5H0TAPEI3,65HMAY NOT BE USED AS AN ALTERNATE INPUT TAPE FOR THIS PROGRAM      )(I4,' INTERVAL CARDS IS ILLEGAL')(56H0NUMBER OF FORMAT CARDS INCORRECTLY SPECIFIED, 1 ASSUMED)(A6,F4.0,A6,I2,13F4.0)(58H NO OF INTERVALS SPECIFIED BY INTERVAL CARD CANNOT EXCEED '23')(15F4.0)(11H0MORE THAN I4,23H INTERVALS NOT ALLOWED )(10H0MORE THANI4,10H VARIABLES)(19H0PROGRAM TERMINATED)(18A4)(' VARIABLE FORMAT IS'/(1X,18A4))(//3(32H   VARIABLE    NO. OF REJECTS   8X)//)(3(F6.1,1X,A6,I8,19X))(80X,F6.1,1X,A6,I8,11X)(' 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)')(A6,F4.0,I2,15F4.0)(' ROW VARIABLE ',F5.0,' ON TABLES CARD ',I3,' IS ILLEGAL')(' COLUMN VARIABLE ',F5.0,' ON TABLES CARD ',I3,' IS ILLEGAL')(20G)(1X,I4,' VARIABLES IS ILLEGAL. MUST BE LESS THAN ',I4)(1X,I5,' IS ILLEGAL INDEX OF VARIABLE TO BE CATEGORIZED ASSPECIFIED ON INTERVL CARD')0c=t
0BMD02S    DATA DATA DATA + -<7- $h Ds &/ Fs & F DR $d D&; <-t,7, $ D; $ D  Dr <-u, <-x,
6`+*? $ D}3D62F77+*O3DL2FL7+*II6|+*G  Dr <., <.,
 $2Dr+*M+*N <.,,+*I <., <-i,8' <.
, <.
"&."$.$5D*Y <., <.,
+*I <., <.,
+*I $3D+*[ <., 3Dr+*_ r1D+*_ <.,@d@ &/K"$.K$5$*e <.,, $ DK $	$DK <-s,7k"$ D="$ D2@d!6|"s.>$>5$-c"> $@hA.$8&*n<|7$+*V4D+3" $ Fq D8 <. , <.#,
 *,_DAZD!g !g <.&,
:!g; A+*w,I3D<2F<+*F7@T++ $2$3++++ TS D;";*+F; &/3 $ R; HS.$8&+++ 31d++
 <.',,0d+*I <.*,"3.& $ F= D!g !g <.-,
:!g; =++,:@(!e6DJ D!d"!d.>/$$5$+  Dr+-e !d & FA"dJ$	 $D D!f !d2D=++" $.22D!f+*K++%6@!f+*K !d @ F'l @ ! F !d F= !f H2 F&;"3 $ D!g:!3$R++. <./, <.2,
++K ! !g  S HL:!g8&+*:8; q+*t ! D"8!$ D? *,:! ? HL!(H?*d+5"> $6`A++?:@ D&; 
@(
Q06 
"8 J F'l.$8(+9 @ 2$"8++D @ "8 F++E @ ! F"$.s2$@++N"$.s D~ <.3, <.6,
  Dr <.8,,+*I @ D"9 &&;$;&"9 F>""9 $@h.$8&+R <.;,"K $ F  D!g !g <.>,
:!g;  ++W, <.?,"K $ F  D!g !g <.B,
:!g;  ++],   D 2d> > D)@f3") $ F  D5 <.D,"> $ F  D!g !g <.G,
:!g;  ++i,""9 $ F3 D!g .& F ~  Hr/r1& &$&.Fr &; F8  ~/&/r  ~ D! ! 8  S3(L++|:!8&+w  ~ D!:3 !/ ~ F":6@":+, !g::!g; 3++o:5;  ++f <.H,"3 $ FS D!g !g <.K,
:!g; S+,,").d5d+b <.M, <-q,7h@d!g R D6""9 $ &; H!d"
 'l.
 JPj*	 h H.$8&, <.O,, "90$+,  <.R,""9 $ F) D!g !g !g( <.U,
:!g; )+,, "91$+,=&$ D "9&& "."9 F!f <.X," $ H'l D8"!f.8&/& 8 F'l D!g !g !g( <.[,
 .d!g; 'l+,,:8; 'l+,(, "93D!f+,=:!f <.],"&/"9.!f !f F'k D!g !g !g( <.`,
:!g; 'k+,8,@d D! :2D+,A@d1 <.c,,@d!g:!g <.f, <.i,
" $ F&: D8 8 <.k,
:8; &:+,F,)3DI2FI7+,M|+*F !g ! F3F? F!d"f?&	 &F FP !d. 'l F2"2."9 2/&$5&,[ <.m, <.p,
  Dr+*I" $ D8 8H H!d"h(	 (H HP:
! 
!d.0'l H(!"
(!.
"9 (!/($5(,k <.r, 8 <.u,
  Dr+*I:88&,] !g 3.$ D)"&/!.) ) D8 8 ! H5 
 J  
 /
  J"8"
"8.,1, ,$,.
"8.l2l&;+,}:88&,p>65d,B@d !g ! F4+- 8 D8 ! F  !g/$ D4 $ D !g D~" $ F6 D!g"&; $ ($.!g@j l.$8&-:!g; 6+-   D 2d> > DH$"9 D) <.w,") $ F4 D!g !g <.z,
:!g; 4+-,"~ $ F4 D!g 2 FP 3.& F ~ 4 Hr2fr+--").P&"9/& P F3 D! ": F4f-+ !/P D"&. ~/r  ~ ! H5. H@ 
 ": J74j-*  .7 H5$(.:
 l.$8&-$ "9.d!; 3+-:!g; 4+-"H.d5d- <-p,7k"~ $ F D!g 2 FP 3.( H ~ 
4 Jr 
.* J6 
/
 J"8"
"8.,1, ,$,.
"8 L12hr+-W"&. ~/r  ~ F D! ! F5  .( HK 
.* JH 
/
 L"8""8..1. .$.."8 N'k$( ( l H*' P (  H*' & F*( 6 &L F*( *(L J*) P( (6 H*) 5( (6 H** <-j,2V:!; +-A:!g; +-37`+*:@d!"&.8/  8:! 
! J !.$8&-\ * J)@d J!g ~ 2 D3+,n <.{, <.~,
+*I </, </,
+*I <-i,
0*'	*'	*(1'k	*(	*)*)**p*+*0p*+*/p*+*.x*-X)/0}0G$>$ $$R$0(1(0(1$(:$KX)20|0IX):`rX)0GX)=$X)E$``rX)IX)O0I(J0!e$3(SX)RX)Y(SX)Z$RX)^$~X)bX)d(!gX)e(!gX!gQ(SX
*$":`
X)iX)n(0 6$X)n(0 6$X)p(0 6$X)sX*
0I(?$(X*
(?$!gX*($!gX
*$":X*$>$sX*$!dPSED YES   ORIGI    COLUMN    NAL  ROW   COLLA    (20H1ORIGINAL CATEGORIES)(/1X,A6,9H VARIABLEF6.1,1X,A6,16H BOUNDARY POINTS10F7.2/(45X,10F7.2))(16H0FREQUENCY TABLE)(/6X,'THERE ARE NO CASES IN THE TABLE')(/3X,23I5)(/)(3X,23I5)(I3,23I5)(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)(30H         -2 LOG(MLR)          F10.4,4X,34H (MLR = MAXIMUM LIKELIHOOD RATIO) )(A6,A4,1X,2(F6.1,1X,A6),I6,F15.4,6X,I6,F16.4,F17.4,F18.4)(52H1COLLAPSED CATEGORIES (EXPECTED NUMBERS GREATER THANI3,1H))(//40H TABLE PERCENTAGES (TENTHS OF A PERCENT))(//41H COLUMN PERCENTAGES (TENTHS OF A PERCENT))(//38H ROW PERCENTAGES (TENTHS OF A PERCENT))G"H \2S !p @/ p @1$ p @16 p @/ p @1u !p @/ !p @/p/p11 p @/
 <5,97 $t D/7@1+2e <5,,@d2/
/	 12 D1t"/
 $ ./ ' H19 ./ ' H1%.$8&2h"$./ D/"&.1u F1R"/ $@h2.$8&2q"1R $@h1F.$8&2t@d1F"1R $ F17 D14"/ $ 1d$14..1e 
 0j' *' J  14 
1d$
14.
.
1e 
(.J 1F$1d..1e 
 .J2.$8&2y 14 1F.D1F:14; 17+2xd1F D1f $.1R D1`@d/ $./ D1g 17 &187@1+3< <5, <5,
"1g $ F15 D1e 1e <5,
:1e; 15+3,1%18 <5, <5 ,
"1` $ F15 D1e 1e <5",
:1e; 15+3, <5$,,6d1F+3" <5',,+5 <5*,"1R $ F14 D1e <5-,
:1e; 14+3%, <5.,,"/ $ <51, <54,
"
1R ( J1c H14 1d$14..1e <56,
:14; 1c+3/ <57,
.$8&3+ <59,"1R $ F1b D1e 1e <5<,
:1e; 1b+38 <5=,
@d/2$1f+3@ <5"1R $h1F H1R7`1R+3F (1R H2T <5
,91R@/.$8&3A!$} D1c"/ $ F1a D1ef2 F1g7`1g+3P 1e &1g F2T <5,91g@/"1R $ 1d$.1e.1eh  H/5h3U:/+3[ <5
,9"/@/ 1e 
1R
 1g //H1c.$8&3Q:1e; 1a+3J 1f1c D13"(.1R"&./$ F/0f1f+3m4$3mf D1c 131f 13 D2T <5	,8x @1R"/D D/6@1+3o+3u@d13 D1c D1R+3j <5?, <5B,
 <5E, <5H,
 13D/+4F+3y <5I, <5L,
1_/	 / D1t+3| 13D/+4% 03D/+46`2+5 $ D2 0$1F D1u <5,67`/+57@1+3 <5S, <5V,
+3"/ $ F1` D1e"1R $6@1R+4
 ($.1e@j /+4 ($.1e 
1d$
.
1e.
1ej(
1R*z*J J /.$8&46@1f+4 1e@f1+4 1e 1g1f&z&F F1:1e; 1`+4"1R $6@1R+4@h1v+4! 1R1R(z(H H1v.$8&4 <5X,, $ D13+4e"/ $ F2 D1e"1R $ 1e6@ 1g+4, ($.1e@j /+43 ($.1e 
1e 
1d$
.
1e.
1el0
(1g,z,L L /.$8&4( 1e6@1g+47 1e@f1+4: 1e 1g1g&z&F F1:1e; 2+4'"1R $6@1f+4?@h1v+4B 1R1f(z(H H1v.$8&4= $ D13 <5[,,+4e"/ $ F1v D1e"1R $6@1f+4L ($.1e@j /+4S ($.1e 
1d$
.
1e.
1ej(
1f*z*J J /.$8&4I6@1f+4V 1e@f1+4Z 1e 1g1f&z&F F1:1e; 1v+4H"1R $6@1f+4^@h1v+4a 1R1f(z(H H1v.$8&4\ <5^,, $ D13 <5a,"1R $ F1g D1e <5d,
:1e; 1g+4h, <5e,,"/ $ <5h, <5k,
"
1R1(J/14. <5m,
:14;</n,
.$8&4m <5p,"1R $ F/ D1e 1e <5s,
:1e; /+4z <5t,
6b130b+5+543|43{43y 2S /
 Ap,~8//1R21F1u1:1&/
x2Tx/x	2Tx	2Tx1f@2U1f/1e2T/
1d/
X2X2018(1$0/(1%X2018(16011(19X2X2X2$1eX2X2"$$X$2X2!$1F$1FX2#2!$1v$/G>d \6 !p @5x p @5x p @6 !p @6 !p @6 p @6 !p @6
0!p+@5y@p"@5v4<7',97.$7D6+6(>.6.'2h6+6(+.63'2H6+D5w.$8&6!6b6 H5v.D6.$8&6/ 6$5v2d6+6k.62d5v+6S 5w.D5w:5w.67@+6; 5w.D5y>5y.67@+6>6`5y+6C@5w3d5x+6M+6k@5w2d5x+6H@5w.6 5y.6 2&+6M 5w.6 5y.6 .F 5y.6@f+6R 5w.6 5w.6 .F 5w.6@f $ D6
 5z.6
$.F"5x $ 6
5zJ.@h5z.$8&6~:5z;6+6p55w6D6"67$@h5z.$8&7@d5w"5x$5F65D5z"65$6"6 $ 6
5z J @h5z.$8&7:5z; 6+7
5x/5w.62D6+7"@d5x+7$ 5w D5x 6 D6 6 5x Ap 6 Ap,~@665x665v6
y1,~	`Z(X^. >X.~(3~+71	~+7=Z. \x <x*<x .ez+78!"	b+  "7:	b+Z`.Z. h+ggM?}
&7?	b+7-,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*7`**,^,~*x,> <7`*<7c  pZ@7V`|+7KPw,~ "p h a`~+7Ph  ``~+7Q$8!7Rd8/"+7KP,~@@@ @@0@x@@@`edX91,>9C,7E!"QB7V <7V,+7CSMI 1,>9C,7E 8+7m_MI 1,>9C,7E 8 B7W pd"~l"
 B7W!"GB7V+8I5R1,>9C,7E & 8 B7W*\8 pd"~l" B7W*\8 p.&d"~l"$ B7X*\8 p.&d"~l"
 B7X*\8.&Sp*\8Xp B7_@@7` 8 B7Y(FQF7V <7V,+7CEV4i91,>9C "8+8S,i@1,>9C "8+8_,i@1,>9C "8	+8K>21,>9C "8
+8K>401,>9C "8+8[<I71,>9C "8
&8 @)@. 
"5B8
&8#,~.
.4SEQIN^8SEQOUT^8RANDOM^87_
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>9CO@8b+8(gR~@1,>9C@@8b,>,>@6 w+85"8b0B+80!"A`X#p5@8-/#p!"X#p+85\p+85a.9'1,>9C,>,>O@8b+85,>
6+ _4`8="`Q@,> <8c,,^,> <8f,
,^*b8:+8H,> <8h,,^7@8b+8C,> <8k,
,^+8E,> <8l,
,^Z5"8H,> <8n,
,^,7@8b,
,> <8o,,^,,> <8r,,^,> <8u,
,^(@qd1@,,
1@#+8V0@*+8H,> <8w,,^+8H,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX8^p X8_p 8ap 8ap X8XX~8^p xgG@1,>9C7cp+9 (Bdb+8}.9"+8~.9"TB#p@,~4B9+P7>0
9#p+8z  ,~>attempt to take SQRT of negative argC2|t(1,>9C p4@9' @9,> <92,9,^9,~{e^bC2|p1,>9C p5`94@9'+P7>092#p3@9*+9)2 9/+93`9/+9@@90 9*9*+9!)r. !909. @90(|h"9+ 9+ B91 9,9,9-9-9190,~+D7>0
9( 9.,~  ,~ 0_i/X3 6P'Ms!hhyI^ *Vh P `@ 6P'M P'M]oxx9Attempt to take log of negative argCR@1,>9C,>,> p  p  Ep<b9? $Ep$ E. .&+9;".!p Ap $Ep,^,^,~9DY\9EQ<X\9F*+69F6`9FS	YVBG99FG99E
GJ9CGK/K9CUexhUc*4ZYYX5y5yR5xn5x5w
5wS5v5v)E)6)E)sp6h042T-3s2q4a
>24mnU2e22jni38A3F}3U?4qA38i3"
5&k3Q?/4q8}3AU2o%3o 920
?C5m
a2qo93u'3d?W5n
u2t9%3PoM28?k5p>a5&4?5134&zU2G3,Q4BS5434'[3&?3.3+4(o32,y2OS3/3?4=!2 3:	hA3Tg563S5[52"4i{578?4GI2!+4t 598S4H]2Va3m2!3|?4| #388g4IVu3j254F 7388{4\2I4Z4m
_5 K5<95^2]4S
s2` _5=9#5a	qG2
2l2P]2P]2*1wP^1vP^1vf1uy{1uPL1t1tP1s>1hn1gP`1gg1fw041f	1ew051ew051dPH1d
1S1R1R1F1FP41E]17P61616P715P7150K2SP814
14%J1313,}12h111&]1%11$21/R/n/=0]///Q;/Pp/
Pq/{G/S/
/	|/^/%c02W/y/]/1/,~/P\/T2VT^ 2U(R*1h07**h07*)h06*)h06*(h05*(h05*'h04*'u*]-%+-,
-t%s+99s,(c-31*NA,knA,?U,n},}?.]
&+W?C,8)n M--A*'.
u*p),=a-;.+.??k.c99):@.ir8%*c-+i{.p+&Y-J3*n-+i{#,\!])R)Y&m+RG*s-3.G{7,]+#'-Z[*t2+n{K.r)+%'-]o. 23+o{.u=+?,-.#2G+w{s,pQ+:*w2[+w,p$.m+e+7".9+N+*w2o.Hs-3*yt?!+".M+O?.&3,-zU*OG+S+3,-,e+3[+X!+b?+
3+.K/.wz}*I,y*ro+_5,S.'3?.MC-{*V!)d+kg.*3S-qW-(a)^5+z,"Gu,X{+8?,k.z{9*M(u+KI+|+,"La,[ +8S.O-{M*Z]+?,0"Lu*
 #.-8g, -{a*[25*}q,S,."M	,g 7+*8{.R-{u*?2I)2,
_,;"M* K+*9,-a*>
s,H2],M ./9#,'-$	qG)l)P])8)$))Y'mP]'lP^'lP^'ka'k &;#&;P&:
"9P`"9	!g}!d!!l PH 9 ~> PI  PI PJ PJ 
A4PK3
PKSPLSMR^Rg,Q}PPtasmsEr9rP4qP5q4AP5A,	@e1@P6??06>p>
8W7&A6655JY<IkHHGnz
76Pp6Pq5
5Pq4Pr4
3Pr3a1nPt.>)~~%c04
U}_\|/kbC3P\2RM>0ORM> 0(RO`*1\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0