Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/bmd/bmd01m.exe
There is 1 other file named bmd01m.exe in the archive. Click here to see a list.
?p0`0`
?hX,q?x " 
 
<++A2	`~z 9X,qAM2P(YES  PROBLM    FINISH    ('1BMD01M - COMPONENT ANALYSIS - REVISED ','APRIL 30, 1969'/40H HEALTH SCIENCES COMPUTING FACILITY,UCLA//14H PROBLEM CODE A6,/21H NUMBER OF VARIABLES I3,/17H NUMBER OF CASES I6,/27H NUMBER OF VARIABLES ADDED I4,/35H NUMBER OF TRANSGENERATION CARD(S) I4,/35H NUMBER OF VARIABLE FORMAT CARD(S) I3,///)(' VARIABLE FORMAT IS'/(1X,18A4))(' PROGRAM EXPECTED PROBLM OR FINISH CARD BUT READ ',A6)(1X,I3,' ORIGINAL VARIABLES IS ILLEGAL')(1X,I4,' CASES IS ILLEGAL')(1X,I4,' TOTAL VARIABLES IS ILLEGAL')(1X,I3,' IS ILLEGAL NUMBER OF TRANSGENERATION CARDS')(2A6,I2,I3,2A3,I3,2I2,38X,2I2)(19H0COMPONENT ANALYSIS)(12H PROBLEM NO.I4)(31H0CORRELATION COEFFICIENT MATRIX)(12H0EIGENVALUES)(13H0EIGENVECTORS)(48H0RANK ORDER OF EACH STANDARDIZED CASE ORDERED BY)(44H SIZE OF EACH PRINCIPAL COMPONENT SEPARATELY)(F18.6,I10)(16H0  COMPONENT NO.I3,12H    CASE NO.)(25H0EIGEN VALUE CHECK MATRIX)(1H0)(40H0CUMULATIVE PROPORTION OF TOTAL VARIANCE)(1H F11.2,7F15.2)(18A4)(6F16.7)(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)"!!RBMD01M    + -<6< $ D+z </,6< </, </,
@d*]+[3D*M2F*N7+,|+, </ , </#,
 $2$+z+,~ </$, </,6V*^3D*M2F*N+,z </,4"&
.+W"$.+W$5$.t"&}.*K"$.*K$5$.v +W.+{"(
."&.$5&.y +;0d0d+-+- $ D+; </',, </*, </-,
 +W.+{ D*P </,3R $	$d+; </1,"+; $ F+Z D+{ +{ </4,
:+{; +Z+-, </5,"+; $ F+Y D+{ +{ </8,
:+{; +Y+- ,"*K $ </:,"
+W ( J+X H+: (}$+:. </=,
:+:; +X+-(,.$8&-%d*K D+Z7$+9+.}4D-2 </,4p7 *]+,t7`+W+.t *P D+W"+W $ F+V D+:@f*P"*K $ +: *}$
+:.
 
/2J *P.$8&-7 +: *P+Z F*P:+:; +V+-6"+W $ F+U D+{"+W $ F+U D+:$$
.+{@fi"*K $ +:$(
.+{ 
+: ,}$
+:.
 
72
(*P +{ 0}$+{. G28*PP i.$8&-E:+:; +U+-C:+{; +U+-A"+W $ (
$. ( i H,l </,7B @+\.$8&-S"+W $ F+y D+{"+W $ (
$.+{ 
+{ 
(+\
+\ 
 i
 J (u.$8&-[:+{; +y+-Z </>,, </A,, </,2j </	,0F </D,, </G,, </J,"+W $ F+k D+{ +{ </M,
:+{; +k+-m,@d*O"+W $ +kH*O.$8&-r@d+Y"+W $ +kh+Y*O H+k.$8&-u </O,, </R,"+W $ F+i D+{ +{ </U,
:+{; +i+-}, </V,, </Y,, </,2j"+W $ F*H D+:"*K $ (}$+:. 
+: 
'2
(*P
(+\ L'2.$8&.:+:; *H+."$.*Kd D+: </,7B @+j"*K $ F+ D+{"+W $ F+~ D+:$$}.+{@f>"+W $ (}$+:.+{ *
$
+:.
 ,}$
.
+{ 
72
((uL >.$8&. $}$+:.+{ +jF>:+:; +~+.:+{; ++. *P2D*I+.K"+W $ F+} D+:@f*P"*K $ +: *}$
+:.
 
(>J *P.$8&.) +: *P+Z F*P:+:; +}+.("+W $ F+| D+{"+W $ F*O D+:$$
.+{@fi"*K $ +:$(
.+{ 
+: ,}$
+:.
 
0>
(*P +{ 0}$+{. @>8*PP i.$8&.7 $
$+:.+{ i+: Fi:+:; *O+.5:+{; +|+.3 </\,, </_,, </,2j +x2D*I+.s </b,, </e,, </h,, </,7U"@+Y"+W $ F*L D+W </k, </n,
"*K $ F*L D+{@f; F8"+W $ +{ *
$
+W.
 ,}$
.
+{ 
72
((uL ;.$8&.Z +{ +jF;:+{; *L+.X"*K $ F*J D+{ +Y D*O"*K $ ;3h*O+.l 82(,n+.l ; H*O D+[.$8&.g +[ ,n F8 </p, </s,
:+{; *J+.e:+W; *L+.T+,t </u, </x,
+,| </y, </|,
+,| +W.+{ D+T </~, <0,
+,| <0, <0,
+,| </,
p,n,o`t+W+;,mx+:`)+W+;,mh+k+W+W`)+W+;,mx	,lX0+W*K*]+9h*_*P+;p*K+zx,oX,80*M0+~$+W$*K(+x(*P$+{$+9$*_$*K$+;X,"0*M`+zX,dX,0+~$+W$*K$+{$+9$+;X,b(*_X,(*_X+z*_Z('2X,[X,@X,[X,DX,c(+kX,[X,`(+kX,[X,FX,[X,XX,[X,HX,MX,T$+WX,R(*O$+[X,($+WX,,$*KX,/$+TX,3$+9(4X,I4,2X)C;-X@ \0
 p @0 <0, <0,
0 0
,~P0	0$0%B K&<[@ \0C !p @0. p @0& p B0'@d0'"0& $ F0, D02"0& $ (
$.02  (uH0'.$8&0M:02; 0,+0L 0' D0# <2M,7B @0#7@0'+0b"0& $ F0+ D02"0& $ 022H+0] (
$.02!* J i+0_ (
$.02@j i.$8&0Y:02; 0++0X $ D00"$.0& D0C4$2K4D1&"0C $ F0* D02.$ D0#"&/0&.0# 0# F0) D0( &
$02.02 ( F0%$$
.02 (u F02+2<"&/0&.02 02 (
$0(. 
 (u
0B (
$02.  (0/ H02 *
$
0(.
 ,
$
02.
"0(0B 
((u
0/
 L((u *
$
02.
 H((.$8&0r"&/0&.02 02 (
$ 
0(.
 
((u
0B 
02.
 
((v
0/
 J02 (
$ 
0(.
 02."8(v0B 0(u0/ N0(u (
$.02 J (v.$8&17@0'+1#"0& $ (
$0(. 
 i
0B (
$02.  s0/ H02 *
$
0(.
 ,
$
02.
"0s0B 
(i
0/
 L(i *
$
02.
 H(s.$8&1:0(; 0)+0k:02; 0*+0g"0& $ (
$.  (u H; .0. 
0# J'"JT.$8&1' &/0& $ (
$.  (u HG G H`.$8&1/@d0 $ D02@d0#@d02!$ D0%"0& $ ;0 H0$7@02+1?7@0%+1E"
`
02 0$0% H0$+1J6 0%+1C!(} H0%"0$ H0$+1J!( H0% 0$ H0$+1J7@`+1C7 02+1I!(} H0$+1J!( H0$7 0%+1L6 0$+1M+1M7 0$:0# 0% H02 0$ H0%.$8&18"0& $ 0#3(+1V T2(0+1Z 0 HT+1Z .0. '3h0+1Z .0. 
0 J'.$8&1Q 02.0. 02 

T#

0E T#2h+1c:023d0&+1[+1g 02.0. 02 TH H0+157@0'+2K $ D00"0& $ F0- D02"0& $ (
$.02@j (u.$8&1l:02; 0-+1k"0& $ F0, D021d+1y 02.0. #0E #3&+2!$ D0/@d0B"0& $ F0% D0(1d+2+2< 0( 0B F` 0/ H02020% HS 02.0. 0( ;0/"00B D0% H D02 H0/ D0:0(; 0%+1} 0& 0% FT"0& $@h0.$8&2 0# D0$"0& $ 00(+2#
T#0$3h+2 T H0$ D0C.$8&2 0C & F0!$ D0$3F0C+2$ &/0C $ (.0C/ H0# *
$
02.
0# 
 02
0$ L((v 0#" `H0$.$8&2 $
$02 0$ F(v:02; 0,+1s"0& $ F0@ D0("0& $ (
$0(.  (u H0.$8&2+"0& $ F0? D02 $
$0(.02@f(u"0& $ (
$0(.02 *
$
.
02 
(i
0J (u.$8&23:02; 0?+20:0(; 0@+2*+2K7@02+2H 02 0% D0D <2L,7B @0$ 0%0$ D0/ 020$ D0B6b000b+2H+2F40p41~6b000b+2K+2I41#42= 0C,~x0Dx0#(1H013X,A6,7(8X,A6)/)(1H A6,1X,8F14.4)(1H017X,I2,7(12X,I2)/)a&N) \2h !p @2U p @2O !p @2Q p @2X $ D2W@f2R D2P $2d2O 2O D2Y $.d2R2$2O+2u:2W+2r"2W $ F2V D2T $/2P.2Y D2P@d2N6`2X+3 <3#,"2P $ F2V D2X <3&,
:2X; 2V+2~,+3"&.2P/2Y 2P:2N( 
(
.
2Q
7
 2X.$8&3 <3(,"2P $ F2S D2T 2T( <3+,
:2T; 2S+3,"2O $ <3,, (.2Q <3/,
"*.
2P/
2Y 2P J2R H2Q (
$2Q..2U <31,
:2Q; 2R+3,.$8&3 $.2Y D2P.$ D2Y2d2O 2O D2Y:2T; 2V+2w 2h,~X2f$2XX2a02XX2d0'('uLABELS    (A6,7(I4,A6))(' LABELS CARD EXPECTED BUT READ ',A6)(18H0LABELS CARD INDEX,I7,18H INCORRECT. LABEL ,A6,9H IGNORED.)Hed+ \3P p @3C p @3: %p D3A"3: $ D3C 3C(.3A <3{,0':3C8&3W7`3C+3x@d39 <3|, <3,
 3Q_D3@ZD3? 3? 3?( <4,
:3?; 3@+3`,3B3D3;2F3;7+3j <4, <4,
 <3z,6V 3QZD3? 3? 3; F3:4&3o4F3w 3:3f3:+3r <4, 3?( <4
,
+3v 3:(.3A 
3?(

031
':392&3C+3x*d3j+3\ 3P,~x3CX3D03B$3;0 31X3E03BX3I$3:0 31(25H ERROR ON TAPE ASSIGNMENT)iC<@ \4 p @4
 p B4
4 45`4 $ D4
 4
3D4
+4 4
1D+4 <4&, $3D4
+4 $3D4
+4 <4(, 4
 D4
+4! <4+,, <4%,6V 4 4
 Ap 4
 Ap,~`4
`4
X4TRNGEN D(29HERRORON,TRANSGENERATIONDCODE)(A6,I3,I2,I3,F6.0)(46H0CARD42 $K F4TRANS4 <ORIG. ORIG.VAR(J)/45H  NO. VARIABLE   CODE    VAR(I)   OR CONSTANT)(41H0PROGRAM CANNOT CONTINUE FOR THIS PROBLEM)(2H  I2,I8,2I9,F15.5)(1H06X,23HTRANS GENERATOR CARD(S))(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/28H FOR THE ITEMS LISTED BELOW./)(10H ITEM NO. I3) 9~jiJ
463D4.2F4/7+5"d4/+6 <6&, <6),
 $/40$405d5 <6,,, $2d40+5D4. D48"43 $ F45 D49 $}$43.49.40  D446b400b+5!+545!45%45.45145345=45U45X45Z45\45_45c45g45k7$44+5r5d5#@d42+5z <6,7B @42+5z7$44+5r5d5(!$ D42+5z!$44 D4m <6,7B @ <6,7B @42+5z7`44+5r <6,8Q @42+5z <6,83 @42+5z7$44+5r4D5"!$}444$585d5r 4o D42+5z <6,7B @45 $}$49.49.40 <6,4v @+5z!&47 44 D45!(47!&45 F414$5r5d5I7$41+5r4D5" <6,7B @4m <6,4v @42+5z7$41+5r5d5N <6
,7B @4m+<6z <6,7B @45 <6
,7B @41 <6	,4v @ <6,4v @42+5z7@44+5r!$44 D42+5z 4.44 D42+5z 4.44 D42+5z7$44+5r4D5" <6,8 @42+5z $}$48.49.40 44 D42+5z $}$48.49.40"44 D42+5z $}$48.49.40 44 D42+5z $}$48.49.407@+5r $}$48.49.40 44 F42+5z7 4:+5w"$s D4:"&s F41 <6/, <62,
 <64, <67,
+5} $}$49.49.40 42 F:49; 45+57 41+6:44; 46+56 41+6 <68,, 4l 4/ Ap 41 Ap,~p4448x45x41x41x45x45x4mx41x4mx45x44x44x44x44x4mx44x4mx4lX4QX4@
X4>04.$49$40$43(4.X4O$44$49$40$43(4.X4:X4U$44X4j$49X4JkN
y1,~	`Z(X^. >X.~(3~+6A	~+6LZ. \x <x*<x .ez+6H!"	b+  "6I	b+Z`.Z. h+ggM?}
&6N	b+6<,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>8|O@7+6WgR~@1,>8|@@7,>,>@6 w+6d"70B+6_!"A`X#p5@6\/#p!"X#p+6d\p+6da.9'1,>8|,>,>O@7+6d,>
6+ _4`6l"`Q@,> <7,,^,> <7,
,^*b6i+6w,> <7,,^7@7+6r,> <7,
,^+6t,> <7,
,^Z5"6w,> <7,
,^,7@7,
,> <7,,^,,> <7!,,^,> <7$,
,^(@qd1@,,
1@#+70@*+6w,><7&,,^+6w,^,^,^,~('pTypeGtoContinue,XtoExit,TTotrace.'/2H*,$)(A1)(1H14A5/)(1HA5,1X,O6)PAUSESTOP.pX77@,~ &`V-G {G ZCv\ 7f ]V#QI+0`} 9~jgG@1,>8|7cp+7L (Bdb+7G.7P"+7H.7P"TB#p@,~4B7O+P6N0
7P#p+7D  ,~>attempt to take SQRT of negative argKc3@ p p+7`Kc3K  ,7` 
,~Kc3J  ,7` ,~Kc3I  ,7` ,~Kc3H4B7v5@7c5"7v+D6N0
7bU ,~,>,># $)D/$@,>4d7mX $(F) + 7m5F7m5"7k"` ,8
+7t#  ,> <7x,8X,^@,> <7y,83,^5&7t+P6N07y,^,^,^,~! ,~xxAttempt to raise negative single precision number to non-integer powerKc#@ p p+8
Kc#K  ,8
 @,~Kc#J  ,8
 @,~Kc#I  ,8
 @,~Kc#H4B805@85"8+D6N0
8U ,~ D8/!$ @8. B8/5"8#`+ 8,,8!"B,~+ 8(BdB+ 85B8  8/,~ +7`8/+8#`d +D6N08+D6N0
8U `d @6 8.+8 8/`B"`+8/81id +8%+D6N08#8.,> <82,8X,^ @`8/@,> <82,83,^+8 U",88.+ 8+8! ,~xKc1,>8| p3"8N+883b8N+8:+D6N0
87U ,~+D6N089  ,~ D8O F8P@@8O%"j"%8M)/;`:XD8I5f8AaF+8A.&@(|h&f8O 8K8L 8L 8O8KD8M@ 8O 8P,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>8| p4@8m @8W,> <8x,8X,^8V,~{e^bC2|p1,>8| p5`8\4@8m+P6N08x#p3@8p+8o2 8u+8a3`8u+8a@@8v 8p8p+8g)r. !8v8t @8v(|h"8q 8q B8w 8r8r8s8s8w8v,~+D6N0
8n 8t,~  ,~ 0_i/X3 6P'Ms!hhyI^ *Vh P `@ 6P'M P'M]oxx8WAttempt to take log of negative arg8}Y\8~Q<X\8*+686`8S	YVBG98G98~
GJ8|GK/K8|x?N8o;-98W8u8q98qq8ulX8aS	YVBRMSQTE0J8v/88\K8X
f8QK|8P8:~Z83c	8Ib&8Pb%8Ob%8Oz8N08N/8M/8M.8L.8L-8K-8KRMSQv8A~Z|p82NX:GYXpX28/pX28/pX18.
~J8'G8
~J8
~I8
~I8S	YVBSo&B	WG8.G8.F8.E8	.D8
.V8
	WG8PU7RMSQTE/8m8%~IzP8NR:JYX`."v7`	WG"7URMSQTE~J|07TG
7Oae7DTvF7LaZ7HaY7Gaj7BP3?K~7AB7@7@7?DA7(DR7'I;7:I:78]7;]7;DR|p7&koYUlrBKYX<:6V
Y]@7
Y?6W
\!6i{-^6d{-X6#{-O6r{-N7{-N6w{-M6t{-M6l6S\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"6N
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz6<)	G6<[6<	qG6;ZzR6<ZzR6;h054m
a5!'6]15
u5';6%a53c6
6tU5>a5Z6
5%G6
,5==5D6	Q5I6@5r+6zA5\?6/A4>.4vg68&A4@55V4~&U4J+4x&i4O2!5U]5]?6&}4Qq5nS65}&	4U
_6a5_&	%4j
s6	qG4:-?!4:/Ry49	49U$tP54545440K4l
440'43E4342|=042Y:{41414pNp04oA4
a4u44)4Q434%G4!!4![4o4&4(4+	qG4
Y4
0K4;s[4;s[}4
-3rA3wU3x
a3m
u3o3\33bG3z[3xo3U3V3W+3{?3|S3
_3_
s3`	qG3DWGaj3C	3C;.33B8m3AP43AP53@P53@0K3P
3?%j73<k73;09j3:
3:
39q=32'w;3R'w;y`3Q-3
q2tnA2a33/3
a3'3;31%a3w?2wS3#2{
_2}
s2~	qG2al2Y%2Y2X2X	2W2WP42VP52VP52U2U!2T2TP62SP62SP72R.2R0K2hiP2Q
2Q%2P
2O2OC2N0D!1EoA2We2C
1ha2Ka1 1@o1V
E1iA2E1nA1;!2pE2(
a1N]2A1Aoe1X\a2
1/%0b!111	
 a1Zv2*1Q
a0VA1Fua2'1ku!16O1l%a0c14	u1Ka2c1re1ta1<A2ve2+w1s&	0dtA1,
!1acA2H1|>a0p!16
1Pc!2cU2K1}!1
1b|2G2)?E0r&A18
e1Q[2*&!1&E1D{A1[ce2Pa2=o2+,0g	{!1M'E1J
A1c+23zA0x
!1SiA2"?2L1Ji!2G2KS2F,e0h
%1g!20L{%0~,a1:20M,A1'j2W2B+2M2!0k
A1MVa2?0W!1?VA2	%23S0X0]1/
a1g
_0Ya1
A1Toa2$
s0g	qG0Cl0CP]0B8(0BP]0AP^0AP^0@P_0@P_0?P`0?03Y02	02B@~0	;0PH01PI01k-K00PI00U"0/PJ0/?'0.PJ0.W*6H0PK0-PK0-zG0PL0,	;tP40,LM0#P50+P50+)0#P60*P60*$D<TP70)P70)0K0C'F0$P80(
0(D:~<0't[M0'kM0#
0&=0
0&?#TY0%R:0$	9=<=+0P\0%	9jX0F	9jXa@0E
u0	G0[00	e2000K0
0
0e20e2~00(R,qh04,l-.j&W-r?/n
a,t'/4'/R?W.Z
u,};/5+-|?k.e?.eJU,8ta,%u.-Ji,;w/8,;/Vz?/ptA,&	.AJ},>-%,O/YzS/stU,|K,@u	,(/:,c/zg/uti,z-3/{7/~u9--;Ku,H[-52.{K0uM-
)-EPa,Mo-623.{_0ua-=-SPu,R-72G.{s0uu,Q-[Q	,T-@2[.+-A2o.zu-3-y-r?-B3.'G-"{	-3S-C3.([-*?-E3+.)o-n5.S-S3?.2-~!.Lg/3S.35.Z/{-Y8?.4I.`+/ -Z8S.5?/ #-[8g.7W),XS/ 7/>8{/\W=,[
_/  K/A9/_.i
s/# _/9#/	qG,P],P]+z+~P^+~P^+}P_+}P_+|P`+|</6+{	+{PH+zo+zPI+yPI+y7p+xPJ+x?'+kPJ+kPK+jQ+jPK+i0PL+isJ+\J~+[j+[+ZP4+ZU$tP5+Y#+YP5+XP6+X+Wp+WP6+VP7+VP7+UP8+UoL/+TiP+;.+;
+: 
+:+9g[*H*D~*^Y:{*];j?*M
*MPq*LPr*L
*K@o*KPr*JPs*JPs*I)>~*IP\*HRM>0ORM>#0(R` ,q\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