Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/bmd03d.sav
There are no other files named bmd03d.sav in the archive.
h'A8QD-@2x-A0Ex. ;@/+W('1BMD03D - CORRELATION WITH ITEM DELETION - REVISED ','JUNE 26, 1969'/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA //13H PROBLEM CODE21(1H.),A6/20H NUMBER OF VARIABLES14(1H.),I6/16H NUMBER OF CASES18(1H.),I6/34H NUMBER OF TRANSGENERATION CARDS..I6/26H NUMBER OF VARIABLES ADDED 8(1H.),I6/34H NUMBER OF VARIABLE FORMAT CARD(S)I6//33H TRANSGENERATION (IF ANY) OCCURS A6,14H ITEM DELETION///) \ D< $ D_-\?J4
S "BB
_
`<abbccd
def W3D_2F`7+jV3D_2F`7+ "b~
_  "Zb  $3D_+m _X@m-\Co "b~ +i "b~ +i "b~
_ +i "!b~f +i "(b~ +i ".b~ +i "5b~ +i "<b~
_ +i _3DegO ^3FdgOG5$-\>4e4_ $-/<$<4dn $ Dg $ DgZ3Dd2Fe7+[d $ Dg "0b
`<abcf
d  b4$p4D7"$-.b5dp : Zf "FB
_hhr : Zh $-$.f1:9 f X3D_2F`+r f 4$t5d$ $ Dg f r Dh h4$w4D5"$.h5dw : Zh &-$.f 5D4 &-$h.f  Di-\<4^4i @i i5$4 $-$h.f ] F h3:h9) f3:b9+8 $ Dg <.c D;R"$-.;R5dy : Zf@@h;R3:;R9<"$2.b$b4D[5d{ "Jb  "Sb  b Dj : Zf "MB
_hh<hnh Y3D_2F`+} "Pbf f<n  $ f3$<gO <1hgOA4$X "nbf "b Dj f3:b9E j5$\+j $ Dg $3$fgO f1fgOA4$d "Hb  $ Df $	$Df "HB : Zf X3:f9f  "Cb~ : Zf X3:f9k  ;R$;R";R.7 .&( Fj : Zf@@h2@@h	@@h$@@hv@@h,@@h3j3:j9s : Zf@@hQ@@h~@@h+3:;R9x a Dj-\Cl4j4T @k k5D $ Dk : Zk _X@ "XQ"ZB : Zf ^3:<9 k 6bg0b7+44
4-\?*4^44=4n4 4a4k4b4g6bg0b7+4?4*4 : Zl h Dh hr Dl l4d( : Zh ] &-$.l3D+ &-$.l  h3D^+%+& h ^5D& h $^XD#-\<4^4# @i i5$& h ] F^ h3:l9 l3:b9+? r Dl l4d? : Zh : Zl ] &-$3D+4 &-$  h3D^+:+< h ^5D< h $^XD8-\<4^48 @i i5$< h ] F^+= l3:l9- h3:;R9,6bg0b7+@4B4G4G-\?*4^44=4n4 4a4k4b4g : Zm ]3Dh^+K m:;R m3:;R9H@@l"$.;R Dm : Zf ]3Dh^+i f ^DQ f ^^D~!$ fD+ $.f Dn n Zh:l ]3Dh^+g f ^ lD2 f ^^ lD	 h ^ lD$ h ^^ lDv h ^ f^ lD, l:3j h3:;R9X+k"f.;R.Dl f3:m9O ] ;R3D^+s ;R ^DQ ;R ^^D~!$ ;RD+ k3:k9"k.Dj j5d{ "vb  : Zf@@n h+4D| hQh+ Dn h+@ @l@@o!$3Dh++"Uh+ nhQh~"FV-\B24V @o "bnol 3:;R9y : Zl h3j` @o oh, h2h$ Dp ohv h$ oh	 h2 Dp p5d l < F,@@p l@@2+ l ] F,-\B24p @p pp l D2 l3:j9
 : Zf ZhX3:;R9!-\=
4U4;R4c4U "_b  "gb  $ Dq $ Dq ;R/q5d/ ;R Dr-\=
4q4r4T4T+Z q Dr-\=
4q4r4T4T ;R Dl"q.Dl q.Dq "_b  "jb  l/q4d> q.Dr-\=
4q4r4T4T+4 l.Dr-\=
4q4r4T4T+Z+F(2A6,I2,I5,2I2,I3,I2,33X,A2,A5,2I2)+H(A6,2I2,10F6.0)+J(18A4)    +M(23H TRANS-GENERATION CARDS//)+P(A6,I3,I2,I3,F6.0)  +S(I4,I5,I6,I5,4X,F9.4)    +Z(30H CARD NEW  TRANS OLD    CONST./23H  NO. VAR.  CODE VAR(A)//) +_(45H0CONTROL CARDS INCORRECTLY ORDERED OR PUNCHED)+g(1H047X,18HCORRELATION MATRIX/43X29H(SAMPLE SIZES IN PARENTHESES))    +j(1H08X,12HVARIABLE NO.)  +n(1H08X,24HVARIABLE NO. (CONTINUED))+v(1H026X19HTRANSGENERATOR CARDI4,42H HAS ILLEGAL CODE. PROGRAM CANNOT PROCEED.)  +(45X,30HMEANS AND STANDARD DEVIATIONS //5X,8HVARIABLE,6X,4HMEAN,2X,8HSTANDARD3X9HNUMBER OF/25X,9HDEVIATION,4X,5HITEMS,//)    +(6X,I4,4X,2F10.4,3X,I6)  +(' PROGRAM EXPECTED PROBLM OR FINISH CARD INSTEAD READ THE FOLLOWING'/1X,A6)    +(' NUMBER OF VARIABLES CANNOT EXCEED 90')    +(' NUMBER OF DELETE CARDS INCORRECTLY SPECIFIED') +!(' PROGRAM EXPECTED DELETE CARD INSTEAD READ THE FOLLOWING'/1X,A6)    +((' COLUMNS 7 AND 8 OF DELETE CARD',I4,' CONTAIN A NEGATIVE NUMBER')   +.(' NUMBER OF DELETION CODES INCORRECTLY SPECIFIED')    +5(' NUMBER OF VARIABLES AFTER TRANSGENERATION CANNOT EXCEED 90')  +<(' NUMBER OF TRANSGENERATION CARDS INCORRECTLY SPECIFIED')  +C(' PROGRAM EXPECTED TRNGEN CARD INSTEAD READ THE FOLLOWING'/1X,A6)    +H(' VARIABLE FORMAT CARD(S)'/1X,18A4)    +Q(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)   -\Co+  +0BMD03D    hT 0~xVPROBLM    FINISH    DELETE    TRNGEN    AFTER     BEFORE    $              !NO   ~h<-\Cb4<
4<
+@<4 Z<
 \<  <,!p,!p+< <
 <\ <
,Ap,Ap5< <&-D<(<' D<)+< <'5D<( <&D<)@@<("$.<(D<)3<)4d<<'+D<* :4Z<*><*:<*.D<(3:<)9<<(/<(.<)+D<(+<"4 D<$ Z<% \<% @<&,!p,!p,!p+< Z=:= =/5D<D =!& F$ = = F=E = =  ;R F=+<S-\<4=4=4;R @= = =  2 F$ = =  3j F= = =  , F=EZ=1B<O+<O1B<S+<S < =2D,+<S  <S @=  <t @= =3:=9<<6b=0b7+<V4<X4<c4<j "<vb= : Z= $ =E3:=9<Z  "<zb : Z= =3:=9<` +<o =X@<e "=sQ"	b : Z= $3:=9<f +<o "=sQ"	b : Z= $3:=9<l  =3:;R9<; $ D=Z=1B<t+<t1B<u+<u "<b +=+<z(1H0I3,3H  *F10.5,9(A1,F9.5),A1)   +<}(1H 6X,10(3X,1H(I5,1H))) +<(1H03X,10I10)  +=
(1H0,14X,90HA $ INDICATES THE COEFFICIENT IS NOT COMPUTED DUE TO A ZERO DIVISOR, A ZERO IS INSERTED.  )  +=4 Z= \=  =,!p,!p,!p,!p+<+ = =-|px=     |h={ >4$>	5d=~ $ D> >/>4D> $3D>+> >X@>"$.>4D>"$.>4D>	 >X@> > D>+> ">b -\Co+>(25H ERROR ON TAPE ASSIGNMENT)+>4 Z> \>  >,!p,!p+=| > >\ >,Ap,Ap-|plX>+>%4>  ?3Q * ?8 Z?8 \?9  ?9,!p ?9$"D?@-\B24?@ ?9 F?@-\B4?@!8?3X8*8 ?8 ?9-|p $- D?D`?> @?D : Z?E .?<  D?E .?<  D?F"?D.?F5$? ?E.?=  D?F"?D.?F5$? ?E.?=  D?G ?F.?;  D?G6b??0b7+>74>84>: ?B3D?G+?6b?E0b7+>;4>A4>E4>N4>Q4>S4>[4>{4>~4?4? ?G4$?
5d>C@@?H+?-\B24?G @?H+? ?G4$?
5d>H!$ D?H+?!$?G D?A-\B24?A @?A-\B24?G?A @?H+? ?G4d?
-\C=4?G @?H+?-\C4?G @?H+?"?G4D>B5d?
"?2?G4$>X5d?
 ?C D?H+?-\B24?G @?A-\>4?A @?H+?!$?D ?G F?H!$?D!&?H F?I ?H4$?
5d>f-\B24?I @?A-\>4?A @?H+? ?I4$?
5d>o"?2?H4D>m5d?
-\B24?H @?A-\>4?A@ @?H+? ?C D?H+?-\B24?H @?H-\B24?I @?I!$2$?IgO!&2&?HgOG4$?
-\>4?I @?A-\>4?H?A @?H+? ?G4D?
!$?G D?H+? ?G?G D?H+? ?G?G D?H+? ?G4$?
4D>B ?G ?G,BQ D?H+? ?B D?H+? "?b?E +? "?b?F ?E.?<?>  "?%b +? ?F.?; ?H F ?E3:??9>(+?1+?(17H0DATA OF VARIABLEI4,30H VIOLATES RESTRICTION FOR CODEI3,19H. THIS WAS FOR CASEI6)+?%(20H0TRANSGENERATOR CARDI3,44H HAS VARIABLE NUMBERS TOO LARGE FOR PROGRAM.)+?)(32H THE DATA WILL REMAIN UNCHANGED.)   +?14 Z?: \?:  ?;, p, p, p, p, p,!p,!p,!p,!p+> ?: ?:-|p 0h?B      Y~j 9~j ?I4O@@1+?L4@@@1O"$ D@1 $:INX|H?O+?d 
?j6@@1 J?j 
?ilJ?lZ?j+?d J?lz?j+@-
z@+?d #p &> 
3L?m+?`7@?m /&5f?Y7 +?d@@ ?m: ?m L ?m 
PL?m+?cRd.R?md$2N+?[:?m:kN
y1kN
y CB`x?lx?mH@-Z?k0B+?d	d
:`@1+?d+?Tx@14}X@2 \A @A<A0<0|+1\+@@,>p@1Zp@1+p@h@c@p@c@(@}@0A@x@j@@j@8A	@(@w@PA@PA@h@c@@H@ @H@@c@@c`@v[(/<0"`S<pX<0 p3@A +@G*|@C-<A-wx@EZ`@2+@v!  @w+@D<A! p7 p+@c,>,>,> &w p,@^,&.<7@p+@\ p,@^"A! A.< p`A" w,&,&5 @N.< pdA":." Q,& p,&>`9@Y.<9@N@@,^,^,^+@cd @@& 0b.".")B}5@@_,~m<!<P\A<A! p[pl<0@X+@iZp.</ pQ \A+@l@@A!<P\A7@A+@o <A \A@@A!<P\AXX\A A#7@AD<7@AA< \A <A[`x A,x,^x A+@2 @2Q< \A:@2  \A<A# pA|A$ < \A@@A+@s@@A Q< \A<A# pA|A$+@s7A& A' \A @AXQ< \A A( \A+@s~xA[`x A,x+AZ \A@@A@@A<A! \A+@s7A AX\@2@@A@@A+@uPA~0A>x! Z @
&A(U`eB+A@)@G 
"+A
&A,+AQ6$1,>Cq.@
p.46$HA
.4A.ASEQIN}0A%@A%SEQOUT@A&@A
%5 Source level error at user's loc	
	`Z(X^. >S.~(3~+A1	~+A=Z. \x <x*<x .->Ctez+A8!"	b+  "A:	b+Z. h+ggM?} A<
&A?	b+A-,
?NO CORE AVAILABLE - CAN NOT PROCEED
x ACa.3@1,>CqO@B+AHgR~@1,>Cq@@B,>,>@6 w+AT"B0B+AP!"A`X#p5@AM/#p!"X#p+AT\p+ATa.9'1,>Cq,>,>O@B+AT,>
6+ _4`A]"`Q@,> <B,,^,> <B,
,^*bAZ+Ag,> <B,,^7@B+Ab,> <B
,
,^+Ad,> <B
,
,^Z5"Ag,> <B
,^,7@B,
,> <B,,^,,> <B,,^,> <B,
,^(@qd1@,,
1@#+Av0@*+Ah,> <B,,^+Ah,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP hB.pX`BA~p pBX`BAp BpBp BpB
ppBX`BAxX~PBA}px|pBCR B. B/@B- B/@B- B.B,B0`FB17B0 B17 "` B1,~ &`V-G {G ZCv\ 7f ]V#QI+0`}}PB1 9~jgG@1,>Cq7cp+BA  )@/ @( X@B=(B{4 B>B? BBD"P" BDB BD@,~B@ BBD""X+B:4BBC+PA>0
BE#p+B4  ,~u BDattempt to take SQRT of negative argKc3@ p p+BTKc3K  ,BT 
,~Kc3J  ,BT ,~Kc3I  ,BT ,~Kc3H4BBj5@BX5"Bj+DA>0
BWU ,~,>,># $)D/$@,>4dBaX $(F) + Ba5FBa5"B`"` ,By+Bh#  ,> <Bl,CD,^@,> <Bm,C,^5&Bh",^,^,^,~! ,~xxKc#@ p p+ByKc#K  ,By @,~Kc#J  ,By @,~Kc#I  ,By @,~Kc#H4BC5@B|5"C+DA>0
B{U ,~ DC!$ @C BC5"C#`+ C,C!"B,~+ C(BdB+ C5BC  C,~ +7`C+C`d +DA>0C+DA>0
CU `d @6 C+C C`B"`+C/Cid +C+DA>0C#C,> <C,CD,^ @`C@,> <C,C,^+C
U",CC+ C+C|C! ,~xKc1,>Cq p3"C;+C%3bC:+C'+DA>0
C$U ,~+DA>0C&  ,~ DC; FC<@@C<%"j"%C9)/;`:XDC55fC.aF+C..&@(|h&fC< C8C9 C8 C<C7DC:@ C; C<,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC<C2|t(1,>Cq p4@CT @CC,> <C],CD,^CC,~{e^b}CCC2|p1,>Cq p5`CH4@CT+PA>0C]#p3@CW+CV)r. !@C[! n@C[(|h"CX CX BC\ CYCYCZC\C[CZ,~+DA>0
CU C[,~  ,~ 0_i/X3 6P'M 5( bB W
R `@8C\xCCATTEMPT TO TAKE LOG OF NEGATIVE ARG|XCag&=`1,>Cq#p7!p"`,~SNL{@1,>Cq pFp4 Ci p,~"p+"Cj,~U ,~[> 1,>Cq p&p ,~KbN@1,>Cq,
,~CrY\CsQ<X\Ct*+!$hX$h@@h*% "C| BhL " BhM+xeX2GiSHYC aSiSH~C|INXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GxD
iSH+Q