Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd03d.sav
There are no other files named bmd03d.sav in the archive.
h 'A8Q D - @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
_
` < a b b c c d
d e f W3D _2F `7 + j V3D _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 _3D eg O ^3F dg O G 5$ -\ >4 e4 _ $ -/ < $ < 4d n $ D g $ D g Z3D d2F e7 + [ d $ D g " 0b
` < a b c f
d b4$ p4D 7"$ -. b5d p : Z f " FB
_ h hr : Z h $ -$ . f 1: 9 f X3D _2F `+ r f 4$ t5d $ $ D g f r D h h4$ w4D 5"$ . h5d w : Z h & -$ . f 5D 4 & -$ h. f D i-\ <4 ^4 i @ i i5$ 4 $ -$ h. f ] F h3: h9 ) f3: b9 + 8 $ D g < . c D ;R"$ -. ;R5d y : Z f@@h;R3: ;R9 <"$ 2. b$ b4D [5d { " Jb " Sb b D j : Z f " MB
_ h h< hnh Y3D _2F `+ } " Pb f f < n $ f3$<g O <1h g O A 4$ X " nb f " b D j f3: b9 E j5$ \+ j $ D g $ 3$ fg O f1f g O A 4$ d " Hb $ D f $ $D f " HB : Z f X3: f9 f " Cb~ : Z f X3: f9 k ;R$ ;R" ;R. 7 .& ( F j : Z f@@h 2@@h @@h$@@hv@@h,@@h3j3: j9 s : Z f@@hQ@@h~@@h+3: ;R9 x a D j-\ Cl4 j4 T @ k k5D $ D k : Z k _X@ " XQ" ZB : Z f ^3: < 9 k 6b g0b 7 +4 4
4 -\ ?*4 ^4 4 =4 n4 4 a4 k4 b4 g6b g0b 7 +4 ?4 *4 : Z l h D h hr D l l4d ( : Z h ] & -$ . l3D + & -$ . l h3D^+ %+ & h ^5D & h $^XD #-\ <4 ^4 # @ i i5$ & h ] F^ h3: l9 l3: b9 + ? r D l l4d ? : Z h : Z l ] & -$ 3D + 4 & -$ h3D^+ :+ < h ^5D < h $^XD 8-\ <4 ^4 8 @ i i5$ < h ] F^+ = l3: l9 - h3: ;R9 ,6b g0b 7 +@4 B4 G4 G-\ ?*4 ^4 4 =4 n4 4 a4 k4 b4 g : Z m ]3Dh^+ K m: ;R m3: ;R9 H@@ l"$ . ;R D m : Z f ]3Dh^+ i f ^DQ f ^ ^D~!$ fD+ $ . f D n n Z h: l ]3Dh^+ g f ^ lD 2 f ^ ^ lD h ^ lD$ h ^ ^ lDv h ^ f ^ lD, l: 3j h3: ;R9 X+ k" f. ;R.D l f3: m9 O ] ;R3D^+ s ;R ^DQ ;R ^ ^D~!$ ;RD+ k3: k9 " k.D j j5d { " vb : Z f@@ n h+4D | hQ h+ D n h+@ @ l@@ o!$ 3Dh++ " Uh+ n hQh~ "F V-\ B24 V @ o " b n o l 3: ;R9 y : Z l h3j` @ o o h, h 2 h$ D p o hv h$ o h h 2 D p p5d l < F,@@ p l@@ 2+ l ] F,-\ B24 p @ p p p l D 2 l3: j9
: Z f ZhX3: ;R9 !-\ =
4 U4 ;R4 c4 U " _b " gb $ D q $ D q ;R/ q5d / ;R D r-\ =
4 q4 r4 T4 T+ Z q D r-\ =
4 q4 r4 T4 T ;R D l" q.D l q.D q " _b " jb l/ q4d > q.D r-\ =
4 q4 r4 T4 T+ 4 l.D r-\ =
4 q4 r4 T4 T+ 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 ,Ap 5 < <&-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 =0b 7 +<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 + <+ = =-|p x= |h={ >4$ > 5d =~ $ D > >/ >4D > $ 3D >+ > >X@ > "$ . >4D >"$ . >4D > >X@ > > D >+ > " > b -\ Co+ >(25H ERROR ON TAPE ASSIGNMENT)+ >4 Z > \ > >,!p ,!p + =| > >\ >,Ap ,Ap -|p lX>+ >%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 ??0b 7 +>74 >84 >: ?B3D ?G+ ?6b ?E0b 7 +>;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+ ?-\ C 4 ?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$ ?Ig O !& 2& ?Hg O G 4$ ?
-\ >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 0 h?B Y~j 9~j ?I 4 O@ @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+ ?cR d. R?md$ 2N + ?[: ?m: kN
y1kN
y CB` x?lx ?mH@-Z ?k0B + ?d d
:` @1+ ?d+ ?Tx@14 }X@2 \ A @ A< A 0< 0| + 1\ + @@,>p@1Z p@1+ p @ h@c@ p@c@(@}@0A@ x@j@ @j@8A @(@w@ PA@ PA@ h@c@@H@ @H@@c@@c`@v[ (/< 0"` S<p X< 0 p 3@ A + @G*| @C-< A-wx@EZ` @2+ @v! @w+ @D< A! p 7 p + @c,> ,> ,> &w p , @^,& .< 7@p + @\ p , @^" A! A.< p ` A" w,& ,& 5 @N.< p d A": ." Q ,& p ,& >` 9 @Y.< 9 @N@@ ,^ ,^ ,^ + @cd @ @ & 0b ." ." )B}5@ @_,~ m< !< P\ A< A! p [ p l< 0@X + @iZ p .< / p Q \ A+ @l@@ A!< P\ A7@ A+ @o < A \ A@@ A!< P\ AX X\ 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$+ @s7 A& A' \ A @ AX Q< \ A A( \ A+ @s~xA[`x A, x + AZ \ A@@ A@@ A< A! \ A+ @s7 A AX\ @2@@ A@@ A+ @uPA ~0A>x ! Z @
& A(U` eB + A @ )@ G
" + A
& A,+ AQ6$ 1 ,> Cq. @
p .4 6$ HA
.4 A. 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 + gg M?} 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#p 5@ AM/#p !" X#p + AT\p + ATa.9'1 ,> Cq,> ,> O@ B+ AT,>
6 + _ 4` A]"` Q@ ,> < B, ,^ ,> < B,
,^ *b AZ+ Ag,> < B, ,^ 7@ B+ Ab,> < B
,
,^ + Ad,> < B
,
,^ Z 5" Ag,> < B
,^ , 7@ B,
,> < B, ,^ , ,> < B, ,^ ,> < B,
,^ (@qd 1@ ,,
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.p X `B A~ p pBX `B A p B pB p BpB
p pBX `B Ax X ~PB A} p x |pBCR B. B/ @ B- B/ @ B- B. B, B0`F B17 B0 B17 "` B1,~ &` V-G {G ZCv\ 7f ]V#QI+0`}}PB1 9~jgG@ 1 ,> Cq7cp + BA )@ / @( X@ B=(B{4 B>B ? B BD "P" BD B BD @ ,~ B @ B BD ""X+ B:4B BC+P A>0
BE#p + B4 ,~ u BDattempt to take SQRT of negative arg Kc3@ p p + BTKc3K , BT
,~ Kc3J , BT ,~ Kc3I , BT ,~ Kc3H4B Bj5@ BX5" Bj+D A>0
BWU ,~ ,> ,> # $ )D /$ @,> 4d BaX $ (F) + Ba5F Ba5" B`"` , By+ Bh# ,> < Bl, CD,^ @ ,> < Bm, C ,^ 5& Bh" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + ByKc#K , By @ ,~ Kc#J , By @ ,~ Kc#I , By @ ,~ Kc#H4B C 5@ B|5" C+D A>0
B{U ,~ D C !$ @ C B C5" C#` + C, C!" B ,~ + C(BdB + C5B C C ,~ +7` C+ C`d +D A>0C +D A>0
C U `d @ 6 C+ C C`B "` + C/ C id + C+D A>0C # C,> < C , CD,^ @ ` C @ ,> < C , C ,^ + C
U", C C+ C+ C |C ! ,~ x Kc 1 ,> Cq p 3" C;+ C%3b C:+ C'+D A>0
C$U ,~ +D A>0C& ,~ D C; F C<@@ C<%" j" % C9)/;` : XD C55f C.aF + C..& @(|h& f C< C8 C9 C8 C< C7 D C:@ C; C<,~ !t0 _' "S'qf!um. .#Y% !v yO^ RXC<C2|t(1 ,> Cq p 4@ CT @ CC,> < C], CD,^ CC,~ {e^b}CCC2|p 1 ,> Cq p 5` CH4@ CT+P A>0C]#p 3@ CW+ CV) r. !@ C[! n@ C[(|h" CX CX B C\ CY CY CZ C\ C[ CZ,~ +D A>0
CU C[,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 8C\x CCATTEMPT TO TAKE LOG OF NEGATIVE ARG|XCag&=` 1 ,> Cq#p 7!p "` ,~ SNL{@1 ,> Cq p Fp 4 Ci p ,~ "p +" Cj,~ U ,~ [> 1 ,> Cq p &p ,~ KbN@ 1 ,> Cq,
,~ CrY\ CsQ< X\ Ct* + !$h X$h @@h *% " C| Bh L " Bh M+ x eX2G iSH YC aS iSH ~C|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 xD
iSH + Q