Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd01m.sav
There are no other files named bmd01m.sav in the archive.
h '@< 9L- 5gx -89x . N /+ N('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,///) $ D B-\ 44
= " B
C
D E E F F G G H H I @@ I @3D C2F C7 + ]+ ` " Zb
C "$ . B4d ` BX@ _ -\ 90 A3D C2F C+ [-\ 34 H4 B"$
. E"& . E$ 5$ a"$ }. E"& . E$ 5$ h"$
. E. G"& . E. G$ 5$ n $ 3$ Ig O I1f g O A 4$ u $ D I " 2b " 0b
D E E G G I E. G D J-\ 2[4 H4 J4
O $ $D I " /B : Z J u3: I9 " b : Z J u3: I9 + (' VARIABLE FORMAT IS'/(1X,18A4)) : Z J BX@ " uQ" ZB : Z K $ }$ . Jk3: E9 J 3: E9
` E @ K G4$ v4D -\ 4^4 h4 E4 E4 I4 G I4$ P E4d a J D E : Z K@@hO : Z J & }$ K. k KDO3: E9 K O K DO K3: E9 : Z J : Z K $
$ . J@@" : Z L & }$ K. k KO ( }$ J. k J O &
$ K J. D "3: E9 , K3: E9 ) J3: E9 ( : Z J &
$ . $"XD =-\ 7z4 = @hh3: E9 : : Z J : Z K hh J h (
$
J.
(" F(-.3: E9 A J3: E9 @ " 'b " b -\ 24 -84 E4
O4 ?-\ 1*4 \4 E4 E " 'b "
b " 1b : Z J \3: E9 U @@ L : Z J h\D L3: E9 Y@@ M : Z J h\D M M L Dh\3: E9 ] " (b " -b : Z J \3: E9 c " 'b " b -\ 24 -84 E4
O4 > : Z K : Z J & }$ K . k
K(O (h D k3: E9 n K3: E9 l"$ . E` @ M-\ 7z4 M @ N : Z J : Z K $ }$ . J@@w : Z L & }$ . J k &
$ K. -. & }$ K J. D w3: E9 } N & }$ K J. D w K3: E9 z J3: E9 y B2D F+ 1 : Z K@@hO : Z J & }$ K. w KDO3: E9 K O K DO K3: E9
$ . J@@" : Z L K"O & }$ K. w J" O ( }$ J. w &
$ K J. D "3: E9 &
$ K J. " M D " K3: E9 J3: E9 " 'b " #b -\ 24 ,4 E4
O4 ? B2D F+ Z " 'b " b h" b !$ &!&$ . J k &
$ N. -. JDt3: E9 ? N J Dt J3: E9 = : Z J M D L : Z K" Lht4d Q" ? Kq5$ Q K t D L K D O K3: E9 K O ? Fq " b L O J3: E9 I N3: E9 :+ P+ a(' PROGRAM EXPECTED PROBLM OR FINISH CARD BUT READ ',A6) " cb E + g(1X,I3,' ORIGINAL VARIABLES IS ILLEGAL')+ ] " jb E + m(1X,I4,' CASES IS ILLEGAL') + ] E. G D O " qb O + v(1X,I4,' TOTAL VARIABLES IS ILLEGAL') + ] " xb G + ~(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) + 1(18A4) + 2(6F16.7) + ;(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) -\ 90+ + 0BMD01M H> "_ FINISH PROBLM YES ~ / /X@ 6J " / / + /(4X,I4,2X) / /+ / 4 /Q * / Z / \ / /,!p + / !8 /X8 *8 / / /-|p \P/@@ 1F : Z 1G : Z 1G &
$ . 1G -. D 1F3: 149 / 1G3: 149 / 1F D 1D-\ 7z4 1D @ 1D 154D /. : Z 1G : Z 1G 1G/ 1G5D /) $
$ 1G. 1G!& F"+ /+ $
$ 1G. 1G@@" 1G3: 149 /$ 1G3: 149 /# $ D 1H"$ . 14 D 1H 1H4$ 14D /s : Z 1G $ . 1G D 1D 1D Z 1G &
$ 1G. 1G -8 D 1I &
$ 1G. 1G -. D 1I+ 1 1G Z 1J 1J &
$ 1G. 1J -8 1K (
$ 1G. 1J -. D 1I 1J &
$ 1G 1J. -.
1K ,
$
1G.
1J
0-8 D -. $
$ 1G. 1J 1I F-8 1J3: 149 /< 1G Z 1J 1J &
$ 1J 1G. -. 1K. 1G -. D 1I 1J &
$ 1J 1G. -.
1K
1G.
0-. D -. $
$ 1J. 1G 1I F-. 1J3: 149 /M 154D /p : Z 1J 1J &
$ 1G. 1J , 1K (
$ 1G. 1J " D 1I 1J &
$ 1G 1J. "
1K ,
$
1G.
1J
0, D " $
$ 1G. 1J 1I F, 1J3: 149 /_ 1G3: 149 /5 1G3: 1H9 /3 : Z 1G 1G (
$ 1G. 1G -. Ft 1G. 14 1D F 1G" 1D F
1G3: 149 /s : Z 1G 1G (
$ 1G. 1G -- F 1G D 1G3: 149 /|@@ 17 $ D 1G@@ 1D@@ 1I!$ D 1I : Z 1G" 17 1Gt D 1E 1I4D 0 1I4D 0 1I 1E 1I 1G D 1E+ 0 1I5$ 0" 11 D 1I" 1E D 1E+ 0!$ D 1I 1E D 1E+ 0 1G 4D 0 1I4$ 0" 11 D 1E+ 0!$ D 1E 1I4$ 0 1E5$ 0 + 0 1E5$ 0 : 1D 1I D 1I 1E D 1I 1G3: 149 0 : Z 1J 1J/ 1D5d 0) 17 1J
4d 0- 1J 17 F
+ 0- 17 1J. 14 5$ 0- 1J. 14 17 F 1J3: 149 0# 1G. 14 1G
D 15-\ 9)4 15 12 @ 16
J 16-\ 9)4 162` 16+ 0:: 1G 1G/ 144d 0/+ 0> 1G
1G. 14 D D 17+ 0 154D 1 $ D 1H : Z 1G : Z 1G $
$ . 1G@@-.3: 149 0B 1G3: 149 0@ : Z 1G"$ . 1G4d 0Q 1G. 14 D 15-\ 9)4 15 12 @ 16" H 16-\ 9)4 163 16+ 0j!$ D 1J@@ 1K : Z 1G"$ . 1G4d 0\+ 1 1G 1K F 1G 1J F1J 1I 1J 1I 1K 1G D
1G t 1G. 14 1J 1K 17 D 1I 1G D 1I 1J 1G D 17 1G3: 149 0S 14 1I F
: Z 1G@@h173: 149 0h 1D D 1E : Z 1G"$ 1G.175$ 0u 1G $
XD 0p-\ 9)4 0p @ 15-\ 9)4 1E 154` 0u 1G
D 1E 1G D 1H 1G3: 149 0k 1H & F17!$ D 1E"$ . 1H4D 1 : Z 1J $ . 1H/ 1J D 1D 1E 1D 1K &
$ 1G. 1D D-. 1D D 1E"` 1E 1J3: 1H9 0{ $
$ 1G 1E F-. 1G3: 149 0G : Z 1G : Z 1J &
$ 1G. -. Dh173: 149 1
: Z 1G $
$ 1G. 1G@@-. : Z 1J &
$ . 1G " h17 &
$ 1G 1G. D -.3: 149 1 1G3: 149 1 1G3: 149 1 + 1* 1I4D 1' 1I 1I D 15-\ 7z4 15 @ 1E 1I 1E D 1J 1I 1E D 1K6b 1H0b 7 +1%4 /;4 0U6b 1H0b 7 +1(4 /p4 1 + 1.4 Z 12 \ 13 13, p ,!p ,!p + / 12 13\ 15/ ,Ap -|p 0 % B x1W $ D 2@@ 2 2 D 2 -\ 7O4 24 2 @ 2 $ .D 2" 2. 24d 1_: 2+ 1\ : Z 2 $ / 2 . 2 D 2 @@ 2 25d 1h " 2
b : Z 2 3: 2 9 1e + 1t 2 Z 2 : 2 2 ( (
2.
72 3: 2 9 1i " 2b : Z 2 (
2 3: 2 9 1p : Z 2 " 2b 2 ( 2.
2 Z 2 &
$ . 2 2. 'u3: 2 9 1y 2 3: 29 1t $ . 2 D 2 $ . 2 D 2 -\ 7O4 2 4 2 @ 2 + 2(1H013X,A6,7(8X,A6)/) + 2
(1H0A6,1X,8F14.4)I2)+ 2 2 3: 29 1`+ 24 Z 2 \ 2 2, p ,!p , p ,!p + 1W 2 2\ 2/ ,Ap -|p y 2( : Z 2f Z 2d-\ /4 2d ( 2c. 3: 2c9 2) 2b4d 2[@@ 2f " 27B
2g : Z 2h 2h (
2k1: 9 22 + 29(A6 ,7(I4,A6)) 2e3D 2g2F 2g7 + 2C " 2>b
2g + 2B(' LABELS CARD EXPECTED BUT READ ',A6) -\ 90 : Z 2h h2h D 2h 2h4$ 2H4D 2Y" 2c. 2h4d 2S " 2Kb 2h 2h(
2k + 2R(18H0LABELS CARD INDEX,I7,18H INCORRECT. LABEL ,A6,9H IGNORED.) + 2W 2h( 2c.
2h(
02k : 2f" 2b. 2f5$ 2[ 2h1: 9 2C+ 20+ 2_4 Z 2a \ 2a 2b,!p ,!p , p + 2) 2a 2a-|p p2dLABELS |h2s 34$ 3 5d 2v $ D 3 3/ 34D 2z $ 3D 3+ 2| 3X@ 2z "$ . 34D 2"$ . 34D 3 3X@ 2~ 3 D 3+ 3
" 3b + 3(25H ERROR ON TAPE ASSIGNMENT)-\ 90+ 3
4 ,Z 3 ,!p + 2s 3+ 3 4 3 4hQ * 4m Z 4n \ 4n 4n,!p 4o $ "D 4s-\ 7z4 4s 4o F 4t-\ 74 4t!8 4hX8 *8 4n 4n-|p @@ 4w` 4r @ 4w " 4?b " 4,b : Z 4x " 4*B
4x 4y 4z 4z 4{ 4v3D 4x2F 4y7 + 3*"` 4q+ 4^ " 4<b 4x 4y 4z 4z 4{ $ / 4z$ 4z5d 31 " 4&b "$ . 4z4$ 34@ 4{ @ 4{ : Z 4| & }$ 4z. 4q. ' D 4|6b 4z0b 7 +3:4 3A4 3F4 3N4 3Q4 3S4 3^4 3v4 3y4 3{4 3}4 44 44 4
4 4 4|4$ 45d 3D@@ 4}+ 4 -\ 7z4 4| @ 4}+ 4 4|4$ 45d 3I!$ D 4}+ 4 !$ 4| D 4t-\ 7z4 4t @ 4u-\ 7z4 4| 4u @ 4}+ 4 4|4d 4-\ 94 4| @ 4}+ 4 -\ 8g4 4| @ 4}+ 4 4|4$ 44D 3C" 4g 4|4$ 3X5d 4 4h D 4}+ 4 -\ 7z4 4| @ 4}-\ 34 4} $ }$ 4y. 4| 4q. @ + 4 !$ 4w 4| F 4}!$ 4w!& 4} F 4~ 4}4$ 45d 3j 4~4$ 44D 3C-\ 7z4 4~ @ 4t-\ 34 4t @ 4}+ 4 4~4$ 45d 3o-\ 7z4 4} @ 4t-\ 34 4t @ 4}+ 4 -\ 7z4 4} @ 4}-\ 7z4 4~ @ 4~-\ 34 4~ @ 4t-\ 34 4} 4t @ 4}+ 4 4|4D 4!$ 4| D 4}+ 4 4{ 4| D 4}+ 4 4{ 4| D 4}+ 4 4|4$ 44D 3C 4| 4{, 8= D 4}+ 4 4| & }$ 4{. 4| 4q. ' D 4}+ 4 4| & }$ 4{. 4| 4q. ' D 4}+ 4 4| & }$ 4{. 4| 4q. ' D 4}+ 4 & }$ 4{. 4| 4q. '4D 4 4| & }$ 4{. 4| 4q. ' D 4}+ 4 4w4$ 4 "$ s D 4w"$ s D 4r " 4Cb 4x " 4Yb 4| + 4" $ }$ 4y. 4| 4q. 4} H 4|3: 4r9 34 4r4$ 4\ 4x3: 4s9 3"+ 4*(29HERROR ON TRANSGENERATION CODE) + 4,(A6,I3,I2,I3,F6.0) + 47(46H0CARD K TRANS ORIG. ORIG. VAR(J)/45H NO. VARIABLE CODE VAR(I) OR CONSTANT)+ 4<(41H0PROGRAM CANNOT CONTINUE FOR THIS PROBLEM) + 4?(2H I2,I8,2I9,F15.5) + 4C(1H06X,23HTRANS GENERATOR CARD(S)) + 4Y(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./) + 4[(10H ITEM NO. I3) 4r5$ 4^ " 47b + 4c4 Z 4o \ 4p 4p, p ,!p ,!p ,!p ,!p + 3 4o 4p\ 4s/ ,Ap / ,Ap -|p 0 9~jp4uTRNGEN 4~ 4 O@ 5f+ 54 @@ 5fO "$ D 5f $ : INX |H5+ 5
5 6@ 5f J 5
5 !J 5!Z 5 + 5 J 5!z 5 + 5b
z@ + 5 #p & >
3L5"+ 57@5" /& 5f 57 + 5@@ 5": 5" L 5"
PL5"+ 5R d. R5"d$ 2N + 5: 5": kN
y1kN
y CB` x5!x 5"H5bZ 5 0B + 5 d
:` 5f+ 5+ 5 x5f4 }X5g \ 6L @ 6M< 6T0< 0| + 1\ + 5u,>p5fZ p5f+ p @ h6@ p6@(62@06<@ x6 @ 6 @86>@(6,@ P66@ P67@ h6@5}@ 5}@6@6e06+[ (/< 0"` S<p X< 0 p 3@ 6U+ 5|*| 5x-< 6bwx5zZ` 5g+ 6+! @w+ 5y< 6V p 7 p + 6,> ,> ,> &w p , 6,& .< 7@p + 6 p , 6" 6V 6D.< p ` 6W w,& ,& 5 6.< p d 6W: ." Q ,& p ,& >` 9 6.< 9 6@@ ,^ ,^ ,^ + 6d @ @ & 0b ." ." )B}5@ 6,~ m< !< P\ 6H< 6V p [ p l< 0@X + 6 Z p .< / p Q \ 6I+ 6!@@ 6I!< P\ 6H7@ 6K+ 6$ < 6L \ 6J@@ 6K!< P\ 6HX X\ 6H 6X7@ 6JD<7@ 6KA< \ 6I < 6H[`x 6M, x ,^x 6L+ 5g 5gQ< \ 6H: 5g \ 6I< 6X p6D| 6Y < \ 6I@@ 6J+ 6(@@ 6I Q< \ 6H< 6X p6D| 6Y+ 6(7 6[ 6\ \ 6I @ 6;X Q< \ 6H 6] \ 6I+ 6(~x6;[`x 6M, x + 6CZ \ 6H@@ 6I@@ 6I< 6V \ 6J+ 6(7 6K 6JX\ 5g@@ 6K@@ 6J+ 6*P6E ~06M>x ! Z @
& 6]U` eB + 6S@ )@ G
" + 6P
& 6a+ 76$ 1 ,> 92. @
p .4 6$ h6B.
.4 6I. 6HSEQIN}06Z @ 6ZSEQOUT @ 6[@ 6;
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + 6f ~ + 6rZ . \x <x *<x .-> 95ez+ 6m!" b + " 6o b + Z . h + gg M?} 6q
& 6t b + 6b,
?NO CORE AVAILABLE - CAN NOT PROCEED
x 6xa.3@1 ,> 92O@ 76+ 6}gR~@1 ,> 92@@ 76,> ,> @ 6 w+ 7 " 770B + 7!"A`X#p 5@ 7/#p !" X#p + 7 \p + 7 a.9'1 ,> 92,> ,> O@ 76+ 7 ,>
6 + _ 4` 7"` Q@ ,> < 78, ,^ ,> < 7;,
,^ *b 7+ 7 ,> < 7<, ,^ 7@ 76+ 7,> < 7?,
,^ + 7,> < 7A,
,^ Z 5" 7 ,> < 7B,
,^ , 7@ 76,
,> < 7D, ,^ , ,> < 7G, ,^ ,> < 7J,
,^ (@qd 1@ ,,
1@ #+ 7+0@ *+ 7 ,> 7< 7K, ,^ + 7 ,^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP h76.p X `79 73 p p7;X `7= 74 p 0 75p7@p j 76p7Ap 2 p7CX `7E 7- X ~P7H 72 p x zH7KC6Md 1 ,> 92, 7W,~ [&r 1 ,> 92, 7W,~ [&r 1 ,> 92, 7W@ ,~ C6Md 1 ,> 92, 7W` ,~ ,> e|P w+ 7Y2ap p *| 7Ya|+ 7] p h" ab~ + 7Y,^ ,~ CR
"P" 8
B 8
@ ,~ B @ B 8
""X+ 84B 8 +P 6s0
8
#p + 7| ,~ u 8
attempt to take SQRT of negative arg Kc3@ p p + 8 Kc3K , 8
,~ Kc3J , 8 ,~ Kc3I , 8 ,~ Kc3H4B 825@ 8 5" 81+D 6s0
8 U ,~ ,> ,> # $ )D /$ @,> 4d 8)X $ (F) + 8)5F 8)5" 8'"` , 8@+ 80# ,> < 83, 9
,^ @ ,> < 84, 8g,^ 5& 80" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + 8@Kc#K , 8@ @ ,~ Kc#J , 8@ @ ,~ Kc#I , 8@ @ ,~ Kc#H4B 8d5@ 8D5" 8N+D 6s0
8CU ,~ D 8c!$ @ 8b B 8c5" 8K#` + 8`, 8K!" B ,~ + 8N(BdB + 8N5B 8I 8c,~ +7` 8c+ 8W`d +D 6s08R+D 6s0
8RU `d @ 6 8b+ 8M 8c`B "` + 8M/ 8eid + 8Y+D 6s08R# 8b,> < 8f, 9
,^ @ ` 8c @ ,> < 8f, 8g,^ + 8TU", 8K 8b+ 8N+ 8H|8c! ,~ x Kc 1 ,> 92 p 3" 9+ 8l3b 9+ 8n+D 6s0
8kU ,~ +D 6s08m ,~ D 9 F 9@@ 9%" j" % 9)/;` : XD 8}5f 8uaF + 8u.& @(|h& f 9 8 9 9 9 8 D 9@ 9 9,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX9C2|t(1 ,> 92 p 4@ 9 @ 9 ,> < 9$, 9
,^ 9
,~ {e^b}9 C2|p 1 ,> 92 p 5` 94@ 9 +P 6s09%#p 3@ 9 + 9 ) r. !@ 9#! n@ 9#(|h" 9 9 B 9# 9 9! 9! 9# 9# 9",~ +D 6s0
9 9",~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 89#x 9 ATTEMPT TO TAKE LOG OF NEGATIVE ARG}H9(C 1 ,> 92#p ,~ S0 1 ,> 92#p +" 9.,~ U ,~ KbN@ 1 ,> 92,
,~ 92Y\ 94Q< X\ 94* + !$h X$h @@h *% " 9< Bh L " Bh M+ x eX2G iSH YC aS iSH ~9<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 x9KiSH + <