Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd02d.sav
There are no other files named bmd02d.sav in the archive.
h 'sp 7 - 3x -sh7x . 2 /@@ + D('1BMD02D CORRELATION WITH TRANSGENERATION',' - REVISED MAY 5, 1969'/40H HEALTH SCIENCES COMPUTING FACILITY,UCLA//14H PROBLEM CODE A6,/21H NUMBER OF VARIABLES I3,/17H NUMBER OF CASES I5,//) $ D & $ D '-\ 2 4
" *B
'
( ) * * + + , , - - . . + a 'X@ P 'X@ R " yb : Z / A1: 9 S 'X@ W 'X@ Y " *B
'
( ) * * + + , , - - . . 'X@ b !3D '2F (7 + t #3D '2F (7 + 9 " jb
'
(U + r('SPROGRAM EXPECTEDEPROBLM OR'FINISHrCARDINSTEAD READ THE'FOLLOWING'/1X,2A6)ES A" sb G R$ 2$ &+ wX &X@ v -\ 7-\ 7" yb + ('ODATASINPUTECANNOTCBEDFROMSLOGICALOTAPESS1,5,+OR 6.')+ r" b& + ('ONUMBERSOFNVARIABLESACANNOTNEXCEEDC135')50'+ r " b +
' + 0(' PROGRAM EXPECTED TRNGEN CARD INSTEAD READ THE FOLLOWING'/1X,A6) + r " 2b + 9(' NUMBER OF PLOT SELECTION CARDS INCORRECTLY SPECIFIED') + r '3D .+ x-\ 0E4 .4 &4 - $ D/ )"& . )$ 4d $ 2$ *+ $ D/ )/ +"& . ). +$ 4d -\ 6q4 +"$ . 5d $ 3$ .g O .1f g O A 4$ O $ D . " b " 0b
( ) * $ K3$ -+ -4$ 4D m " Fb " Jb : Z / " UB
' h hO hhe "3D '2F (+ ' " ib / / O e "$ /.O4D l5d i $ //O$O5d l " b / & 1 FO /3: -9 Y +4D $-\ 6q4 +( @ 0 " Wb " [B : Z / 0 B (
9
3: 09 s " ^b : Z / Z 0 " ab h 0h B (
9h
%3Dh
+ 3: 09 | : Z /@@h
*3: 09 : Z / 'X@ 'X@
" eb (
9 'X@ 'X@ " xB 1 'X@ &2D 1+ 'X@ " B /(
9 + (2X,F3.0) / & F
*+ ! 'X@ " B /(
9 + !(F6.0) /3: 09 'X@ $ +$ -4$ 05d . -4$ 5d , +5D * $ D 1+ 1 $ D 1@@ 2+ 1 $ D 1+ 1 $ D 1@@ 2+ 1 $ D 1@@ 2
@@ 2@@ 3 * D 3 ). + D 4 : Z /!$ $ Dh T"h T Dh C@@h
<@@h
3: 9Z 4$ $ . /@@5@@ 5M$ $D .)" .B 8: )Z /+ 6-\ 64 64 4@ 6- 65D V4 64D 6+ W(2I10) : Z 7 &X@ Z "
!4
#4
$4 &6b 70b 7 +h4 54 k4 O4 t: 2+ -\ 1|4 )4 -4 *4 34 34 24 7 35$ @@ 3+ 5-\ 1|4 )4 -4 *4 34 34 24 7 34$ q-\ +4 74 04
!4
#4
$4 &6b 70b 7 +|4 54 k4 O4 t-\ +4 74 04
!4
#4
$4 &6b 70b 7 +4 54 4 O4 t: 2-\ 1|4 )4 -4 *4 34 34 24 7 34$ q!$ D 5@@ 8" 54D " 5 5 F 8 : Z /: 5"$ . 54d `
: Z 8
1: 9 + (20A4) $ D 5 5 / A F
/ $ CXD $AXD -\ 4i4 4 @ C / $ TXD $ $AXD $-\ 4|4 $4 $ @ T / AD
< / A F
54D , /
< 5D
"`
8 /
D 9 : Z 4 9 h
3& $ /. D 73: 69 X" 6.D 6 65d R : Z / & $ .
3: 9Z 4 $ $ /. ( $ . /
: Z 8
1: 9 D 6b 10b 7 +I4 Q4 L4 M4 L4 O 2 D *+ Q 3 D *+ Q */ 3 2/ F * 4 D ) " lb * *5d \ " pb *4d G : Z / " DB
' 3: *9 Y+ G
" 0b " 2b : Z /
<3: )9 ` " 7b ` * @ 9 : Z / h
< 9 DhA3: )9 g " 2b : Z / A3: )9 k " ! ,4D r " 4b -\ 4 )!$ 95$ ( " 9b : Z /" 9 h
FhA $hAXD z-\ 5)4 z @hA3: )9 u " 2b : Z / A3: )9 } : Z / : Z 4" 9 ( $
/.
(9F( /3: )9 " ! ,4D : Z / : Z 4 hA1D g O / A1F g O A 4$ $ $ . /!&F F
/.
(3F()9 /3: )9 -\ 4 )@@ : *4$ 14D G-\ [4 )4 *4 *4 + G " {b + #+ .(2A6,I3,I5,I2,I4,I2,3A2 ,31X,I3,2I2) + 0(18A4) + 2(5H0SUMS//) + 4(1H 8F14.4) + 7(25H0CROSS PRODUCT DEVIATIONS)+ 9(6H0MEANS//) + =(20H0STANDARD DEVIATIONS//) + A(27H0VARIANCE-COVARIANCE MATRIX//) + D(19H0CORRELATION MATRIX//) + F(A6,I3,I2,20I3)+ J(1H06X,23HTRANS GENERATOR CARD(S)) + U(46H0CARD NEW TRANS ORIG. ORIG. VAR(B)/45H NO. VARIABLE CODE VAR(A) OR CONSTANT)+ W(A6,I3,I2,I3,F6.0) + [(//21H CASE SELECTION CARDS//)+ ^(4(3X,I3,1X,A2,A6,1X,A2))+ a(22H A CASE IS ACCEPTED IF) + e(6H (VAR(,I3,2H) ,A2,1X,A6,2H) ,A2)+ f(A6) + h(F6.0) + i(2X,F3.0) + l(1H ,I3,I8,2I9,F14.4) + p(23H0REMAINING SAMPLE SIZE=I5)+ s(18H0NO CASES ACCEPTED) + x(45H0CONTROL CARDS INCORRECTLY ORDERED OR PUNCHED)+ y(A1) + {(13A6,A2) + (115H0THE STANDARD DEVIATIONS, VARIANCE-COVARIANCE MATRIX AND CORRELATION MATRIX ARE UNDEFINED FOR A SAMPLE SIZE OF ONE.) + (97H0INCORRECT TRANSGENERATION CODE ON CARD ABOVE. PROGRAM WILL PROCEED WITHOUT THIS TRANSGENERATION.) + (1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) -\ 7+ + 0BMD02D p 0 ( NO FINISH TRNGEN PROBLM PLOTSL ** V q8B : Z = h 0 D > : Z > = B3Dh@+ I1: 9 E+ | =
*5d N =( 9-\ 6_4 @ ?+ R =( 9-\ 6]4 @ ? ? A D ?6b >0b 7 +T4 W4 Z4 \4 _4 a4 d" ? >A4d h+ f" ? >A5$ f+ h" ? >A5$ h+ f" ? >A4d f+ h" ? >A4D f+ h" ? >A4D h = & FD+ i =@@D =3: 99 C E D 8"$ . 9 D @ @4d x : Z = h
2D D+ s 85d y = E D 8+ w =
2D D+ ~ = E$D 8 =3: @9 n 84d { $ D 8+ + $ D 8+ + = B D @+ =
D @ " b @ "$ . <5d < D > >X@ " B : Z ? A1: 9 A & 3D ;2F <7 + A & 3D :2F ;7 + A & 3D 92F :7 + + $ D 8+ + $ D 8+ <X@ $ D >+ " b + (' FINISH CARD ENCOUNTERED') + (13A6,A2) + +(31H1ILLEGAL OPERATOR OR RELATION ,A2,58H IN CASE SELECTION CARD. PROGRAM SKIPPED TO NEXT PROBLEM.) + 44 Z 7 \ 7 8,!p ,!p ,!p Zp , ,!p Zp , ,!p Zp , ,!p + B 7 7\ </ ,Ap -|p @@GT GE LT LE EQ NE OR AN yhW $ D @@
D
-\ 4~4 4
@ .D
"
.
4d : + \ : Z
. @@
Z : Z
<3: " {b : Z
<3: 9 h : Z " xb
GZ $ $ .
9 k $ .
$ .
-D ~4
+@ {(1HI3,F11.4,7F14.4)+ (1H08X,4HCOL.7(10X,4HCOL.),/8X,I3,7( 11X,I3),/4H ROW//)
,!p + W \
,Ap -|p eX $ . e D j : Z k $h TXD $h CXD $h TXD $h CXD -\ /\4 4 4 b4 k4 4 4 l"h TDh C3: e9 $ D l
@@ m+ !(2I10) : Z m: f " )B
n o o : Z p
*1:
9 % m + +(A6,I3,I2,20I3) j/ o$ o4d / g3D n2F n7 + < " 6b f
n o o : Z p
*1:
9 3 + <('0ERROR ON PLOT SELECTION CARD',I4,2X,A6,I3,I2,20I3) + Y : Z k e/h
*$h
*5$ T " 6b f
n o o : Z p
*1:
9 C " Ib f k e + T(' PLOTSL CARD',I4,'DESIGNATES AN INCORRECT CROSS-PLOT SELECTION IN POSITION',I4,'SHOULDN''NT EXCEED',I4)+ Y k
*4d [: m m k
* F m o FO k1:
9 ="$ 2. m m/ f$ 4$ Y m D q@@ q: q : Z p : Z r $ $ . p i F^1: 29 b p1: 9 a q D r q O D s $ D s : Z t : Z t: s"$ . s4d t@
: Z u
1: 9 p $ D s t s
Fe" t3: e9 m$ r4D u s D v u e T C $
v e T C $H$@@ @ v $ 3/ v$ v4d
& $ v. u $^XD -\ 04 j4 t3: e9 l
: Z o h Dh
1: 29 i Dh
.: 1z 2+ r D u s D v v T D v v C b D w : Z o v Dh
wD v1: 9 u T C D v u C c D w : Z o v Dhe" wD v1: 9 ! " Gb v u : Z o
.: 1z + & : Z o
o.: 1z + * : Z o
o1: 29 . : Z w e
: Z o ( $ . w ^ o1: 29 4 w
e w1: 9 1 : Z o
o1: 29 < : Z o
o.: 1z + ? : Z o
o.: 1z + C + W(11H1 VARIABLE48X,8HVARIABLEI3/I7/2X,F15.3, 5F20.3/7X,5F20.3/13X,101A1,51(/1X,F10.3,1X,103A1 ,F10.3)/13X,101A1/2X,F15.3,5F20.3/7X,5F20.3) " q. q4$ `@@ m m3: f9 !+ _4 Z c \ d d,!p ,!p ,!p ,!p + c d\ f,Ap -|p !y ! !Y PgPLOTSL . + 1 sp/ /j /j D /o /o /k D /p@ /o @ /p /p4d /-\ 644 /p @ /m` /p /m @ /n@ /n @ /p!$ /p, 5m D /q /p /q D /p@@ /q" /f /o /p5$ /!$ D /p /q /f D /q: /q $ / /q5$ / !$ D /q $ D /q /p /q/v4D /"5d / /q /q /v D /m+ /+ /j /q /v D /r@ /r @ /p` /p @ /r" /r /r D /m-\ 6o4 /m /g4` / /q /q /w D /m /j /j /m /kD /g D /s@ /s @ /s /s5$ /4` /s @ /r" /r /s4D /4> /s` /s @ /l /m D /l /k /m /l D /l" /o /j /l5d / /q /q /v D /t /j /j /t /kD /g D /t@ /t @ /u /u5$ /D` /u @ /u /t3D /u+ /D> /u` /u @ /v /t D /v /k /t /v D /v /j /v2d /o+ /N /v D /l /v D /l /t D /m /u D /s /k /f D /p /h /p@ @ /k /m /f /k D /m /l /m@ @ /p /s5$ /W> /p" /s. /k /p$ /k. D /p /p D /k+ /b4 Z /h \ /i /i,!p ,!p ,!p ,!p ,!p ,!p ,!p + / /h /i\ /m,Ap ,Ap ,Ap ,Ap -|p 0 ! z8] |-10c=tx/n} /v 0 8 P X p t ~ ! ! !4 03D 0+ 0 : Z 0 02Dh0+ 0 h0 D 0+ 01: 9 /~ 03D 00+ 0 0 D 0+ 0 0 D 0+ 0
4 ,Z 0 ,!p + /| 0 x@02 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z - - - - - - + + + + + + * * * * * * * $ $ $ $ $ $ $ $ / / 0N4$ 0?5d 03 $ D 0N 0N/ 0O4D 07 $ 3D 0O+ 09 0OX@ 07 "$ . 0N4D 0="$ . 0N4D 0? 0P 0O4D 0= 0NX@ 0= 0N D 0O+ 0I " 0Ab -\ 7-\ 7+ 0E(25H ERROR ON TAPE ASSIGNMENT)+ 0I4 Z 0M \ 0M 0N,!p ,!p ,!p + 00 0M 0M\ 0O/ ,Ap ,Ap -|p i0PNO + 0^4 0Q 2Q * 2
,Z 2 2 $ "D 2-\ 5)4 2 2 F 2-\ 54 2!8 2X8 *8 2 2 e D 2 $ 2$ 2+ 0i@ 2 @ 2 2 A D 2"$ . 24D 1M5d 1R6b 20b 7 +0n4 0w4 0|4 14 1 4 1
4 14 1/4 124 154 174 1;4 1>4 1A4 1D4 1I4 1K 24$ 1T5d 0z 2@@A+ 1R-\ 5)4 2 2 @A+ 1R 24$ 1T5d 1 2!& FA+ 1R!$ 2 D 2-\ 5)4 2 @ 2-\ 5)4 2 2 2 @A+ 1R 24d 1T-\ 644 2 2 @A+ 1R-\ 64 2 2 @A+ 1R 24$ 1T4D 0x" 2 24$ 15d 1T 2 2 FA+ 1R-\ 5)4 2 @ 2-\ 0Q4 2 2 @A+ 1R!$ 2 2 F 2!$ 2!& 2 F 2 24$ 1T5d 1" 24$ 1T4D 0x-\ 5)4 2 @ 2-\ 0Q4 2 2 @A+ 1R 24$ 1T5d 1'-\ 5)4 2 @ 2-\ 0Q4 2 2 @A+ 1R-\ 5)4 2 @ 2-\ 5)4 2 @ 2-\ 0Q4 2 @ 2-\ 0Q4 2 2 2 @A+ 1R 24D 1T!$ 2 2 DA+ 1R 2 2 2 DA+ 1R 2 2 2 DA+ 1R 24D 0x 2 2, 5H 2 DA+ 1R 2 2A 2 DA+ 1R 2 2A 2 DA+ 1R 2 2 A 2 DA+ 1R 2 A4D 1T 2 2 A 2 DA+ 1R" 2 25$ 0~+ 0x 2 2A5$ 0~+ 0x 25D 1R-\ 6u4 24 25 1R 2 2 FA 23: 29 0`+ 1]"$ s D 2" 2. 24D 1Y 2 D 2 " 1^b 2 " 1sb 2 " 1vb > 2+ 2+ 1s(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./) + 1v( 9H CASE NO.I5) + 1{(45H0THIS CASE WILL BE DELETED FOR ALL VARIABLES )+ 24 Z 2 \ 2 2,!p ,!p ,!p ,!p ,!p ,!p ,!p + 0Q 2 2\ 2/ ,Ap ,Ap ,Ap -|p 0 9~j! 2 4 O@ 3+ 2 4 @@ 3O "$ D 3 $ : INX |H2!+ 26
2<6@ 3 J 2<
2;>J 2>Z 2<+ 26 J 2>z 2<+ 2
z@ + 26 #p & >
3L2?+ 227@2? /& 5f 2+7 + 26@@ 2?: 2? L 2?
PL2?+ 25R d. R2?d$ 2N + 2-: 2?: kN
y1kN
y CB` x2>x 2?H2Z 2=0B + 26 d
:` 3+ 26+ 2&x34 }X3 \ 3i @ 3j< 3q0< 0| + 1\ + 3,>p3Z p3+ p @ h35@ p35@(3O@03Y@ x3<@ 3<@83[@(3I@ P3S@ P3T@ h35@3@ 3@35@359 3H[ (/< 0"` S<p X< 0 p 3@ 3r+ 3*| 3-< 3wx3Z` 3+ 3H! @w+ 3< 3s p 7 p + 35,> ,> ,> &w p , 30,& .< 7@p + 3. p , 30" 3s 3a.< p ` 3t w,& ,& 5 3 .< p d 3t: ." Q ,& p ,& >` 9 3+.< 9 3 @@ ,^ ,^ ,^ + 35d @ @ & 0b ." ." )B}5@ 31,~ m< !< P\ 3e< 3s p [ p l< 0@X + 3;Z p .< / p Q \ 3f+ 3>@@ 3f!< P\ 3e7@ 3h+ 3A < 3i \ 3g@@ 3h!< P\ 3eX X\ 3e 3u7@ 3gD<7@ 3hA< \ 3f < 3e[`x 3j, x ,^x 3i+ 3 3Q< \ 3e: 3 \ 3f< 3u p3a| 3v < \ 3f@@ 3g+ 3E@@ 3f Q< \ 3e< 3u p3a| 3v+ 3E7 3x 3y \ 3f @ 3XX Q< \ 3e 3z \ 3f+ 3E~x3X[`x 3j, x + 3`Z \ 3e@@ 3f@@ 3f< 3s \ 3g+ 3E7 3h 3gX\ 3@@ 3h@@ 3g+ 3GP3b ~03j>x ! Z @
& 3zU` eB + 3p@ )@ G
" + 3m
& 3~+ 4#6$ 1 ,> 7. @
p .4 6$ ;h3_.
.4 3f. 3eSEQIN}03w @ 3wSEQOUT @ 3x@ 3X
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + 4 ~ + 4Z . \x <x *<x .-> 7ez+ 4
!" b + " 4
b + Z . h + gg M?} 4
& 4 b + 3,
?NO CORE AVAILABLE - CAN NOT PROCEED
x 4a.3@1 ,> 7O@ 4S+ 4gR~@1 ,> 7@@ 4S,> ,> @ 6 w+ 4&" 4T0B + 4"!"A`X#p 5@ 4 /#p !" X#p + 4&\p + 4&a.9'1 ,> 7,> ,> O@ 4S+ 4&,>
6 + _ 4` 4/"` Q@ ,> < 4U, ,^ ,> < 4X,
,^ *b 4,+ 49,> < 4Y, ,^ 7@ 4S+ 44,> < 4\,
,^ + 46,> < 4^,
,^ Z 5" 49,> < 4_,
,^ , 7@ 4S,
,> < 4a, ,^ , ,> < 4d, ,^ ,> < 4g,
,^ (@qd 1@ ,,
1@ #+ 4H0@ *+ 4:,> ,< 4h, ,^ + 4:,^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP h4S.p X `4V 4P p p4XX `4Z 4Q p 0 4Rp4]p j 4Sp4^p p4`X `4b 4J X ~P4e 4O p x x4hC6 1 ,> 7, 4t,~ [B 1 ,> 7, 4t,~ [B 1 ,> 7, 4t@ ,~ C6 1 ,> 7, 4t` ,~ ,> e|P w+ 4v3!p p *| 4va|+ 4z p h" ab~ + 4v,^ ,~ C6Md 1 ,> 7, 5,~ [&r 1 ,> 7, 5,~ [&r 1 ,> 7, 5@ ,~ C6Md 1 ,> 7, 5` ,~ ,> e|P w+ 5 2ap p *| 5a|+ 5
5<#p + 5+ ,~ u 5;attempt to take SQRT of negative arg Kc3@ p p + 5KKc3K , 5K
,~ Kc3J , 5K ,~ Kc3I , 5K ,~ Kc3H4B 5a5@ 5O5" 5a+D 40
5NU ,~ ,> ,> # $ )D /$ @,> 4d 5XX $ (F) + 5X5F 5X5" 5W"` , 5p+ 5_# ,> < 5c, 6;,^ @ ,> < 5d, 6,^ 5& 5_" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + 5pKc#K , 5p @ ,~ Kc#J , 5p @ ,~ Kc#I , 5p @ ,~ Kc#H4B 65@ 5s5" 5}+D 40
5rU ,~ D 6!$ @ 6 B 65" 5z#` + 6, 5z!" B ,~ + 5~(BdB + 5~5B 5y 6,~ +7` 6+ 6`d +D 406+D 40
6U `d @ 6 6+ 5} 6`B "` + 5}/ 6id + 6 +D 406# 6,> < 6, 6;,^ @ ` 6 @ ,> < 6, 6,^ + 6U", 5z 6+ 5~+ 5w|6! ,~ x Kc 1 ,> 7 p 3" 62+ 6 3b 61+ 6 +D 40
6U ,~ +D 406 ,~ D 62 F 63@@ 63%" j" % 60)/;` : XD 6,5f 6%aF + 6%.& @(|h& f 63 6/ 60 6/ 63 6. D 61@ 62 63,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX63C2|t(1 ,> 7 p 4@ 6K @ 6:,> < 6T, 6;,^ 6:,~ {e^b}6:C2|p 1 ,> 7 p 5` 6?4@ 6K+P 406T#p 3@ 6N+ 6M) r. !@ 6R! n@ 6R(|h" 6O 6O B 6S 6P 6P 6Q 6S 6R 6Q,~ +D 40
6L 6R,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 86Sx 6:ATTEMPT TO TAKE LOG OF NEGATIVE ARGy6XS5 1 ,> 7+ 6^IO 1 ,> 7+ 6^SMm 1 ,> 7p + 6bg:=@ 1 ,> 7p + 6hS1d ,> _ ( {5 6e h d ~ ) w27 "` ,^ ,~ g:9d 5` 6j4B 6m/" ab + 6m2@ 6n; @ 4 6ml ,~ ?C 1 ,> 7#p ,~ S0 1 ,> 7#p +" 6t,~ U ,~ g&=` 1 ,> 7#p 7!p "` ,~ SNL{@1 ,> 7 p Fp 4 6| p ,~ "p +" 6~,~ U ,~ [> 1 ,> 7 p &p ,~ KbN@ 1 ,> 7,
,~ 7Y\ 7Q< X\ 7* + !$h X$h @@h *% " 7 Bh L " Bh M+ x eX2G iSH YC aS iSH ~7INX 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 x7 iSH +