PDP-10 Archive: 43,50466/bmd06m.sav from decuslib10-09

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/bmd06m.sav

There are no other files named bmd06m.sav in the archive.

h'V J=2-9Vx-V=x. 8/+<(42H1BMD06M - CANONICAL ANALYSIS - VERSION OF ,16HDECEMBER 8, 1964//40H HEALTH SCIENCES COMPUTING FACILITY,UCLA///) $ D-\8m4
K $ D $ D X@A X@B "JB

 +N(2A6,I4,I3,2I2,F5.0,A3,35X,3I2)    3D2F7+]3D2F7+` "Ub

 +](51H PROGRAM EXPECTED FINISH OR PROBLM CARD. IT READ A   , A6,5H CARD  )   "$.4d` X@_-\=".".$4D-\544 "0b  "hb

 +m(10X,23HTHIS IS PROBLEM NUMBER A6//)     "rb

 +(10X,18HNUMBER OF CASES = I4//10X,35HNUMBER OF VARIABLES IN FIRST SET = I2//10X,36HNUMBER OF VARIABLES IN SECOND SET = I2//10X,75HONLY THE CANONICAL COEFFICIENTS WITH CORRESPONDING CORRELATION LARGER THAN F6.5,13H ARE COMPUTED//10X,30HNUMBER OF VARIABLES READ IN = I3//10X,35HNUMBER OF TRANS-GENERATION CARDS = I2//10X, 39HNUMBER OF VARIABLE FORMAT CARDS USED = I2//)   "$.5D( "b +(10X,22HINPUT DATA IS BY CARDS//)  +0 "!b +'(19H ILLEGAL TAPE UNIT  ,I3,22H LISTED ON PROBLM CARD  )    +] "*b +0(10X,47HINPUT DATA IS BY TAPE---LOGICAL TAPE NUMBER IS I2//) 	.	 D

"$.	5dw.	/	5d" $.	D +D(1H0,20X,65HNUMBER OF ENTERING VARIABLES (T) EXCEEDS PROBLEM LIMITS. YOU HAVE,I5,1H.)+]` @

gO

1fgOA4$W "Mb +V(1H0,23X,71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)  $ D

 $	$D

 "]B : Z 3:

9Z +^(18A4)     "cb : Z 3:

9` +g(1X,18HVARIABLE FORMAT IS  /,(1H ,18A4)) : Z@@h@@h: : Z $#$.@@N3:

9j 3:

9h 4d : Z "uB

hZh

h	=h	o +w(A6,I3,I2,I3,F6.0)  3D2F7+{"$2 D+"$ .

4D5dz"$	 .

5$z 3:9p 5$  D "b

	=	o+(1X,A6,I4,I3,I4,F7.0)OR. P"RAM CANNOT PROCEED  )+] 2D
+ "b

 +(1H1,9X,22HINPUT DATA OF PROBLEM A6///2X,8HCASE NO./)   : Z` @ X@! "Q"ZB : Z N3:9"   2D
+0 ",b : Z N3:9) +0(1H0,I6,2X,10F11.6/(9X,10F11.6))    4d>-\7T4O4

4444[4

4	>4	o44 5$9@@+Q X@:` : Z N3:

9;  : Z hNDh hhN"Dh:"M5DD@@+J"M   : F!$2D+J@@ : Z h: &#$ .D N3:9K 3:

9> 3:9 : Z : Z $#$. (#$.  N FN3:9T 3:

9S 4d X@] "`b

	 +q(1H1,10X,38HDATA AFTER TRANSGENERATION, THE FIRST I2, 42H BELONG TO THE FIRST SET IN THIS PROBLEM (A6,1H),/ 10X,10HTHE OTHER I2, 25H BELONG TO THE SECOND SET//) : Z X@s@ : Z N3:

9t   ",b : Z N3:

9y  3:9q X@ "b

 +(1H1,10X,32HSTANDARD DEVIATIONS FOR PROBLEM ,A6/1H0,10X, 8HVARIABLE,3X,8HST. DEV./1H0)     : Z"M (#$.  N FN-\;V4N @hN "bhN 3:

9+(10X,I6,F15.6)  : Z : Z"M NhN (#$ 
.
 (N F(N3:

9 3:

9 "#b

 +)(1H1,10X,30HCORRELATION MATRIX OF PROBLEM A6///)   : Z "0b : Z $#$.N3:

9,  +4(4H0ROWI3,3X,15F8.4/(10X,15F8.4))   X@5` : Z $#$.N3:

96  3:

9)"X@= :$Z.: Z$$$. (#$.  N F+r3:	9? 3:	9>

9I 3:

9F-\594j4j4	4M4L :$Z.  N F
3:

9V 3:	9U : Z : Z $$.@@s : Z &$ .  X.
 &$ .D s3:	9c 3:	9` 3:	9_ : Z : Z $$.@@X : Z &$. 
 &$ . s .D X3:	9r 3:	9o 3:	9n : Z : Z $#$. ($.  X FN3:	9~ 3:	9}-\594,4j4	4M4N-\3y4j4	4N44 : Z &$. X Dh`3:	9

"b

 +(1H1,10X,34HCANONICAL CORRELATIONS OF PROBLEM A6///)   "$.	 D : Z $. D  Z"h` `5$#  ` D    ` F`   F` 3:	9 3:9 : Z h`5$. "1b ` "M
  D+1  $`XD0-\;V40 @ "5b   3:	9'+8(10X,I2,10X,F10.7)   : Z X@:@ : Z $#$.N3:

9;  3:

98 X@A "Db
 +S(1H1,10X,77HCANONICAL COEFFICIENTS---ONLY THOSE WITH CORRESPONDING CANONICAL CORRELATIONS/  38X, 13H LARGER THAN F6.4, 13H ARE COMPUTED/10X,80(1H.))   "Ub +W(10X,80(1H.))   : Z : Z $$. (#$.  N FX3:	9Y 3:	9W

 Dj : Z"
h4d:$"eb. +j(1H0,5X,24HCANONICAL CORRELATION = F10.8)     "lb +n(5X,34(1H*)//)  : Z 
("D N $#$. (#$.  N FN3:

9p 3:	9n-\8]4r4O4j4L@@ : Z : Z  N &$.XhND3:	9 3:	9~-\;V4!$ D : Z DhN $#$. hN F	}3:

9	 "b:+(10X,43HCOEFFICIENTS FOR THE FIRST SET OF VARIABLES//)  "b : Z N3:	9 +(8(5X,F10.6))   "b +$(1H0/1H0,9X,45HCOEFFICIENTS FOR THE SECOND SET OF VARIABLES//)    "b

9&  "*b +,(3(1H0/))  : Z X@.@ : Z $#$.N3:

9/  3:

9,+6(20A4)     X@7 3:	9a $.	 D"$. D-\14r4
!4
!4,4	4	44r 	 $rXDE $
!XDF  $qXDH-\14E4
!4F4,4	4	44H &#$	.	 $rXDQ 	 $
!XDQ $
!XDR &#$. $NXDT-\14Q4Q4R4,4	4	44T ( D^ ^ D  Z : Z $#$. (#$.  N FN3:9Y 3:9X "ab +j(78H1CANONICAL CHECK MATRIX - ONLY 0., 1. AND CANONICAL CORRELATIONS SHOULD APPEAR)   : Z "sb : Z $#$.N3:9m  3:9k+w(4H0ROW,I3,3X,15F7.3,/(10X,15F7.3))+C "b	  "Bb  $3$

gO

1fgOA4$ "Mb  $ D

 $	$D

 "]B : Z 3:

9  "cb : Z 3:

9	 "5$ : Z "uB

 3:9 : Z X@ "Q"ZB : Z N3:9  3:9+C+"(1H0,34X,50HMAXIMUM NUMBER OF VARIABLES (Q) EXCEEDED. YOU HAVE,I5,1H.) "%b		 +y+1(1H0,9X,41HTHE NUMBER OF VARIABLES IN THE FIRST SET,,I4,47H, IS GREATER THAN THE NUMBER IN THE SECOND SET,,I4,1H.) +B(1H028X28HCANONICAL CORRELATION NUMBERI3,20H SQUARED IS EQUAL TO F10.8/1H019X80HTHE PROGRAM WILL CONTINUE AND DETERMINE COEFFICIENTS FOR THE VALID CORRELATIONS.)    +I(1H ,31X,54HPROGRAM WILL GO TO NEXT PROBLEM (IF ANY) OR TERMINATE.)   -\=+  +0BMD06M    hL 0:k|SxYES  PFINISH    PROBLM    TRNGEN    z0h : Z1 : Z1 $$.1 1.@@n : Z1 &#$.1 1. '\ (#$1. 
1.
/\ *$
1

1.

 1.D?n3:190n 13:190j 13:190i : Z1 : Z1 $#$.1 1.@@\ : Z1 &#$1 . 
1.
 /\ *$
1.

1.

7n

1.

 1.D?\3:191 13:190} 13:190|+14 Z1 \1  1, p, p, p, p,!p,!p,!p, p+0h 1 1-|pSH1 45D1- : Z4	 : Z4	 4	/5D1' $$4	.4	 4.!( Hn+1* $$4	.4	 4.@@n 4	3:491! 4	3:491 @@4"$.44d3y"$.4 D4
 : Z4	@@h4 $. D4
 4
 Z4	 &$.4	 4. $'nXD19-\=419 4	44 1B &$4	.4	 4. $'nXD1?-\=41? 4	 @4 4	 4	 F4" 4	3:4914 4	3:4
911U$K D4 4 D4 : Z4	"$.4d1K 4

 4	45$1O 4	 4 D4

 4	 D4

 4	34" D4
91G 4

4d3y 44d1T"44

5d1g34$$XD1V-\=41V.@4X$'nXD1\-\=41\4

5$3y:4 &$4

. 
4.
 /n ,$

44 4.Gn D4 4

. 4. _nR D4-\;V44 @4-\=444 @4-\=

4444_n4 @4 4$ D4-\;V44!& F4 44 D4 &$4

.4

 4. 'n D4 &$4

. 
4.
 /nD 
4.4

4.


7n44 
4
 *$
4

.
4

4.

4D7n &$4

. 
4.
 /nD 
4
44 
4

4.

7n 4"D7n $$4

 4.@@n &$4

.4

.4. 'n ($4
4.
/n5$28 &$4

.4

 4. 'n D4 $$4

.4

 4. *$
4
4

4.

47nHn4$$44 D4-\=

44444 @4-\=44 @4 4 D4 : Z4	 /4

4$2<4D2^ 4	/4

 4	.4"4D2@"4	 4" D4 &$4.4	 4. 'n D4 $$4.4	 4.@@n $.4	 D4
 4	@@4 4
 Z4	 &$.4	 4. $'nXD2P-\=42P 4	44 2Y &$4	.4	 4. $'nXD2V-\=42V 4	 @4 4	 4	 F4" 4	3:492K $$4.4	 4. 4 Hn 4	3:4
928 4

@@4 4 Z4	 /4

4D3b5d3 &$4

.4	 4. 'n D4 44 4 ($4
4.
/n &$4

.4	 
4.
 D/n &$4

.4	 4. $'nXD2t-\=42t 4	44`2} &$4

.4	 4. $'nXD2z-\=42z 4	 @4 4	 4

 F4" 44 4 ($4
4	.

4.

7n"D7n&$4=43 4	44`3b &$4

.4. 'n D4 44 4 ($4
4.
/n &$4	.4

 
4.
 D/n &$4	.4

 4. $'nXD3"-\=43" 4

44`3+ &$4	.4

 4. $'nXD3(-\=43( 4

 @4 4

 4	 F4" 44 4 ($4
4	.

4.

7n"D7n&$4=435 4	44`3b+3	 &$4	.4

 4. 'n D4 44 4 ($4	 
4

4.

7n.4

 4. Dn &$4	.4

 4. $'nXD3F-\=43F 4

44`3O &$4	.4

 4. $'nXD3L-\=43L 4

 @4 4

 4	 F4" 44 4 ($4	 
4

4.

7n"D7n3&$4	.44G : Z4	 &$4

. 4. 'n D4 44 4 ($4
4.
/n &$4

. 
4.
 D/n 44 4 ($4
.

4.

7n"D7n3:493f+1G+3~4 Z4 \4  4, p,!p,!p, p,!p+1 4 4\ 4,Ap-|p?rg4e P 0n843 : Z5E@@h5Z3:5C945 $ D5E 5E Z5E &$5E. 5B. 'n Dh5H $$5E. 5B.@@n3:5C948 5E 5H D5F : Z5E &$.5E 5B. 'n Dh5H $$.5E 5B.@@n3:5E94B 5E"5@ F5H 5E & F5Z@@5F : Z5E h5H5F D5G : Z5G 5Gh5H &$ 5E. 
5B.
D/n"`/n3:5E94Q 5E 5Z5D4 5D4d4w &$5E 5E. 
5B.
 /nD 
5G.5E

5B.


7n5G *$
5E.
5E

5B.

7n"D5H : Z5G 5G &$ 5E. 
5B.
/n 
5E.

5B.

D7n"`7n $$5E. 5B. *$
.
5E

5B.

 7n Hn3:5C94e $$5E.5E 5B. 5H Hn"5F &$5E.5E 5B.'n4d4 &$5E.5E 5B. 'n D5F 5E D5H 5E3:5C94N 5D4d5 &$5E.5E 5B. 'n5F D5H-\;V45F @5F : Z5E &$5E . 
5B.
 /n5F D/n $$.5E 5B. *$
5E.

5B.

 7n Hn3:5C95 $$5E.5E 5B. 5H Hn 5H D5E 5F5C5d47 : Z5E h5Z5d5, : Z5G $$.5E 5B.@@n $$5E. 5B.@@n 5D4d5* $$5G.5E 5B.@@n $$5E.5G 5B.@@n 5G3:5E95+57 : Z5G $$ 5E. 5B."`'n $$5E. 5B. *$
.
5E

5B.

 7n Hn3:5E95- 5E3:5C95+5>4 Z5@ \5A  5A, p, p,!p,!p,!p+44 5@ 5A-|p 0|h5k 64$5y5d5n $ D6 6/64D5s $3D6+5s 6X@5r"$.64D5w"$.64D5y 6X@5w 6 D6+6 "5{b -\=+5~(25H ERROR ON TAPE ASSIGNMENT)+64 Z6 \6  6,!p,!p+5l 6 6\ 6,Ap,Ap-|pd`6+646	  7bQ * 7g Z7h \7h  7h,!p 7i$"D7p-\;V47p 7i F7q-\;;47q!87bX8*8 7h 7h-|p`7l @7s 7p D7s : Z7t 7t.7m  D7t 7t.7n  D7u 7t.7n  D7u 7t.7o  D7v"$.7u4d6#@7v @7v 7u.7k  D7w"$.7u4D7&6b7u0b7+6(46146746B46F46I46U46r46v46y46|47474747474747" 7w4$7-5d64 7t.7k@@+7+-\;V47w 7t.7k @+7+ 7w4$7-5d6; 7t.7k!& F+7+!$7w D7q-\;V47q @7r-\;V47w7r 7t.7k @+7+ 7w4d7--\<a47w 7t.7k @+7+-\<C47w 7t.7k @+7+ 7w4$7-5d6L 7t.7k@@+7+"7a7w4$6Q5d7- 7t.7k 7a F+7+-\;V47w @7w-\6	47w 7t.7k @+7+!$7s 7w F7w!$7s!&7w F7x 7w4$7-5d6d 7x4$7-5d6` 7t.7k@@+7+-\;V47x @7q-\6	47q 7t.7k @+7+ 7x4$7-5d6j-\;V47w @7q-\6	47q 7t.7k @+7+-\;V47w @7w-\;V47x @7x-\6	47x @7q-\6	47w7q 7t.7k @+7+ 7w4D7-!$7w 7t.7k D+7+ 7v7w 7t.7k D+7+ 7v7w 7t.7k D+7+ 7w5D6 7t.7k@@+7+ 7w 7v,;u 7t.7k D+7+ 7w 7v.7k 7t.7k D+7+ 7w 7v.7k 7t.7k D+7+ 7w 7v.7k 7t.7k D+7+ 7v.7k 4D7- 7w 7v.7k 7t.7k D`7v @7v"7v7w4$7 7t.7k!& F+7+ 7t.7k@@+7+ 7w 7v.7k4$7  7t.7k!& F+7+ 7t.7k@@"7w5$7--\<h47w 7t.7k @+7+ 7w5D7+-\=

47b47w5 7+ 7t.7k 7v F 7t3:7l96+7T"$s D7m"7t.7o4D72 7t D7o "7<b7t  "7Qb7s  "76b >7l+7<(45H0THIS CASE WILL BE DELETED FOR ALL VARIABLES )+7Q(30H0THE INSTRUCTIONS INDICATED ON/25H TRANS GENERATOR CARD NO.I2,4H RE-/29H SULTED IN THE VIOLATION OF A/31H RESTRICTION FOR THIS TRANSFOR-/31H MATION. THE VIOLATION OCCURRED/27H FOR THE CASE LISTED BELOW./)  +7T( 9H CASE NO.I5)    +7\4 Z7i \7j  7j, p,!p,!p,!p,!p, p, p, p, p,!p,!p+6 7i 7j\ 7p/ ,Ap/ ,Ap,Ap-|p 0 9~j!r87x"8h 8fD : Z8i"8h &#$ . 
8f.
D/\"$.8i D8j : Z8j &#$8j.8i 8f. '\4D84 &#$8j 8i. 
8f.
 $/\XD8	-\=48	 @8h.8j 
8f.
=$/\XD8#$8j 8i. 
8f.
 /\.8j 
8f.
/\ D8k+8* &#$8j 8j. 
8f.
 /\.8i 
8f.
/\ D8k : Z8k &#$.8j 8f. '\ D8l $#$ 8j. 8f..8i

8f.

 
7\ J'\ $#$.8i 8f. 8l H\3:8g98 $.8j D8l 8l Z8k 8k &#$ 8j. 
8f.
/\ 
8i.

8f.

D7\"`7\3:8g98, 8j3:8j98 8i3:8g97z &#$8g.8g 8f. '\ D8l 8g.8g!& F : Z8i $/.8g D8l@@8k $/.8g D8j 8j Z8k &#$.8l 8f. '\ .8g'D8k3:8g98C &#$8l.8l 8f. $'\XD8M-\=48M8d5`8U 8l.8g!& F@@8l 8j Z8j .8g@@3:8g98R+8["8k8l &#$8l.8l 8f.'\ 8l.8g D' 8i3:8g98=+8a4 Z8e \8e  8f, p, p,!p,!p+7x 8e 8e\ 8h/ ,Ap-|p{>7{ 8l4O@9T+8p4@@9TO"$ D9U $:INX|H8s+9 
99T J9 
99Z9+9 J9z9+9Q

z@+9 #p &>

3L9+97@9 /&5f8|7 +9@@ 9: 9 L 9

PL9+9Rd.R9d$2N+8~:9:kN

y1kN

y CB`x9x9H9PZ90B+9	d

:`9U+9+8wx9U4}X9V@\:;!@:;<:C0<0|+1\+9d,>p9UZp9U+p@h:@p:@(:!@0:*@x:@:@8:,@(:@P:%@P:%@h:@9l@9l@:@:#:[(/<0"`S<pX<0 p3@:D+9j*|9f-<:Pwx9iZ`9V+:!< @w+9h<:Dp7p+:,>,>,>X&wQp,:,&.<7@p+9[p,:":E+:3.< p`:E@w,&,&59q.< pd:F:."+Q,&p,&>`99|.<99r@@,^,^,^+:d @@& 0b.".")B}5@:,~m<!<P\:7<:D p[pl<0@X+:
&:LU`eB+:B@)@G 
"+:>
&:P+:u6$1,>=.@

p.46$&:0.

.4:8.:7SEQIN}0:I@:HSEQOUT@:J@:*
%5 Source level error at user's loc	
	`Z(X^. >S.~(3~+:U	~+:`Z. \x <x*<x .->=ez+:\!"	b+  ":]	b+Z. h+ggM?} :`
&:b	b+:P,
?NO CORE AVAILABLE - CAN NOT PROCEED
x :fa.3@1,>=O@;%+:kgR~@1,>=@@;%,>,>@6 w+:x";%0B+:s!"A`X#p5@:p/#p!"X#p+:x\p+:xa.9'1,>=,>,>O@;%+:x,>
6+ _4`;"`Q@,> <;&,,^,> <;),
,^*b:}+;,> <;+,,^7@;%+;,> <;.,
,^+;,> <;/,
,^Z5";,> <;1,
,^,7@;%,

,> <;2,,^,,> <;5,,^,> <;8,
,^(@qd1@,,

1@#+;0@*+;,>;<;:,,^+;,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOPh;%.pX`;';!pp;*X`;,;"p0;$p;.pj;$p;0pp;1X`;3;X~P;6;!px|p;:CR ;h@,~B@ B;h""X+;]4B;g+P:b0

;h#p+;X  ,~u ;hattempt to take SQRT of negative argKc3@ p p+;xKc3K  ,;x

,~Kc3J  ,;x ,~Kc3I  ,;x ,~Kc3H4B<5@;{5"<
;zU ,~,>,># $)D/$@,>4d<X $(F) + <5F<5"<"` ,<+<

#  ,> <<,<h,^@,> <<,<C,^5&<

",^,^,^,~! ,~xxKc#@ p p+<Kc#K  ,< @,~Kc#J  ,< @,~Kc#I  ,< @,~Kc#H4B<@5@< 5"<*+D:b0
<U ,~ D<?!$ @<> B<?5"<'#`+ <<,<'!"B,~+ <*(BdB+ <*5B<%  <?,~ +7`<?+<3`d +D:b0<.+D:b0
<.U `d @6 <>+<) <?`B"`+<)/<Aid +<5+D:b0<.#<>,> <<B,<h,^ @`<?@,> <<B,<C,^+<0U",<'<>+ <*+<$|<?! ,~xKc1,>= p3"<^+<H3b<^+<J+D:b0
<GU ,~+D:b0<I  ,~ D<_ F<`@@<_%"j"%<])/;`:XD<Y5f<QaF+<Q.&@(|h&f<_ <[<\ <\ <_<[D<]@ <_ <`,~!t0_'"S'qf!um.	.#Y% !vyO^	RX<`C2|t(1,>= p4@<x @<g,> <=,<h,^<f,~{e^b}<gC2|p1,>= p5`<l4@<x+P:b0=#p3@<{+<z)r. !@<! n@<(|h"<{ <| B< <|<}<}<<<~,~+D:b0
<y <~,~  ,~ 0_i/X3 6P'M 5( bB W
R `@8<x<gATTEMPT TO TAKE LOG OF NEGATIVE ARG|(=C1,>=#p,~S01,>=#p+"=
,~U ,~g&=`1,>=#p7!p"`,~SNL{@1,>= pFp4 = p,~"p+"=,~U ,~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=1iSH+J