Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/bmd02d.sav
There are no other files named bmd02d.sav in the archive.
h'sp7-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'-\24
 "*B
'
()**++,,--.. +a 'X@P 'X@R "yb : Z/ A1:9S  'X@W 'X@Y "*B
'
()**++,,--..  'X@b!3D'2F(7+t#3D'2F(7+9 "jb
'
(U+r('SPROGRAM EXPECTEDEPROBLM OR'FINISHrCARDINSTEADREADTHE'FOLLOWING'/1X,2A6)ES A"sbGR$2$&+wX&X@v-\7-\7"yb+('ODATASINPUTECANNOTCBEDFROMSLOGICALOTAPESS1,5,+OR6.')+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$.gO .1fgOA4$O $ D. "b  "0b
()*  $K3$-+ -4$4Dm "Fb  "Jb  : Z/ "UB
'hhOhhe "3D'2F(+' "ib/ /Oe "$ /.O4Dl5di $ //O$O5dl "b  / &1 FO /3:-9Y +4D$-\6q4+( @0 "Wb  "[B : Z/ 	0 	B (
9 
3:09s  "^b  : Z/ Z0 "abh	0h	B (
9h
  %3Dh
+3:09| : Z/@@h
*3:09 : Z/ 'X@ 'X@
 "eb (
9  'X@ 'X@ "xB1  'X@ &2D1+ 'X@ "B /(
9 +(2X,F3.0)  / & F
*+! 'X@ " B /(
9 +!(F6.0)     /3:09 'X@$ +$-4$05d. -4$5d, +5D* $ D1+1 $ D1@@2+1 $ D1+1 $ D1@@2+1 $ D1@@2
@@2@@3 * D3 ).+ D4 : Z/!$	 $	  Dh	T"h	T DhC@@h
<@@h
3:9Z4$$./@@5@@5M$	$D.)".B8:)Z/+6-\64644@6-65DV464D6+W(2I10)     : Z7 &X@Z "
!4
#4
$4&6b70b7+h454k4O4t:2+-\1|4)4-4*43434247 35$@@3+5-\1|4)4-4*43434247 34$q-\+47404
!4
#4
$4&6b70b7+|454k4O4t-\+47404
!4
#4
$4&6b70b7+4544O4t:2-\1|4)4-4*43434247 34$q!$D5@@8" 54D" 5 5 F8 : Z/:5"$.54d`
 : Z8 
1:9 +(20A4)     $ D5 5 /  A F
 / $CXD $AXD -\4i44  @C / $	TXD$ $AXD$-\4|4$4$ @	T / AD
< / A F
 54D, / 
<5D
"`
 8 /
 D9 : Z4 9h
3&$ /.D 73:69X"6.D6 65dR : Z/ &$. 
3:9Z4 $$/.($./  
 : Z8 
1:9D 6b10b7+I4Q4L4M4L4O 2 D*+Q 3 D*+Q */3 2/ F* 4 D) "lb*  *5d\ "pb  *4dG : Z/ "DB
' 3:*9Y+G

 "0b  "2b : Z/ 
<3:)9`  "7b `* @9 : Z/ h
<9 DhA3:)9g "2b : Z/ A3:)9k "!,4Dr "4b -\4)!$95$( "9b  : Z/" 9 h
 FhA $hAXDz-\5)4z @hA3:)9u "2b : Z/ A3:)9}  : Z/ : Z4" 9 ($ 
/.
(9F( /3:)9"!,4D : Z/ : Z4 hA1DgO /  A1FgOA4$ $$./!&F F
/.
(3F()9 /3:)9-\4)@@: *4$14DG-\[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:9E+| = 
*5dN =( 9-\6_4 @?+R =( 9-\6]4 @? ? A D?6b>0b7+T4W4Z4\4_4a4d"? >A4dh+f"? >A5$f+h"? >A5$h+f"? >A4df+h"? >A4Df+h"? >A4Dh = & FD+i =@@D =3:99C E D8"$.9 D@ @4dx : Z= h
2DD+s 85dy = E D8+w = 
2DD+~ = E$D8 =3:@9n 84d{ $ D8++ $ D8++ = 	B D@+ = 
 D@ " b@ "$.<5d < D> >X@ "B : Z? A1:9  A &3D;2F<7+ A &3D:2F;7+ A &3D92F:7++ $ D8++ $ D8+ <X@ $ D>+ "b +(' FINISH CARD ENCOUNTERED')  + (13A6,A2) ++(31H1ILLEGAL OPERATOR OR RELATION  ,A2,58H  IN CASE SELECTION CARD. PROGRAM SKIPPED TO NEXT PROBLEM.)    +44 Z7 \7  8,!p,!p,!pZp, ,!pZp, ,!pZp, ,!p+B 7 7\ </ ,Ap-|p@@GT   GE   LT   LE   EQ   NE   OR   AN   yhW $ D@@
  D
-\4~44
 @.D
"
.
4d:+\ : Z
.@@ 
 Z:  Z
<3: "{b : Z 
<3:9h  : Z "xb 
GZ $$.
9k $.
 $.
-D~4
+@{(1HI3,F11.4,7F14.4)+(1H08X,4HCOL.7(10X,4HCOL.),/8X,I3,7( 11X,I3),/4H ROW//) 
,!p+W 	 	\ 
,Ap-|peX $.e Dj : Zk $h	TXD $hCXD $h	TXD $hCXD-\/\444b4k444l"h	TDhC3:e9 $ Dl
@@m+!(2I10)     : Zm:f ")B
noo : Zp 
*1:
9% m ++(A6,I3,I2,20I3) j/o$o4d/g3Dn2Fn7+< "6bf
noo : Zp 
*1:
93 +<('0ERROR ON PLOT SELECTION CARD',I4,2X,A6,I3,I2,20I3)  +Y : Zk e/h
*$h
*5$T "6bf
noo : Zp 
*1:
9C  "Ibfke +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 Dq@@q:q : Zp : Zr $$.p i F^1:29b p1:9a q  Dr q O Ds $ Ds : Zt : Zt:s"$.s4dt@
 : Zu 
1:9p  $ Ds t s  
Fe"t3:e9m$r4Du s Dv u e	TC$
 v e	TC$H$@@ @v $3/v$v4d
 &$v.u $^XD	-\04j4	 t3:e9l
 : Zo h Dh
1:29 i Dh
.:1z2+ r Du s Dv v 	T Dv v Cb Dw : Zo v Dh
 wDv1:9 u 	TC Dv u Cc Dw : Zo v Dhe"wDv1:9! "Gbvu : Zo 
.:1z+& : Zo 
 o.:1z+* : Zo 
 o1:29. : Zw e 
 : Zo ($.w ^ o1:294 w
e w1:91 : Zo 
 o1:29< : Zo 
 o.:1z+? : Zo 
 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 Zc \d  d,!p,!p,!p,!p+ c d\ f,Ap-|p!y!!YPgPLOTSL    .    +         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 /mD/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 /tD/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 03D0+0 : Z0 02Dh0+0 h0 D0+01:9/~ 03D00+0 0 D0+0 0 D0+0
4,Z0,!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?5d03 $ D0N 0N/0O4D07 $3D0O+09 0OX@07"$.0N4D0="$.0N4D0? 0P0O4D0= 0NX@0= 0N D0O+0I "0Ab -\7-\7+0E(25H ERROR ON TAPE ASSIGNMENT)+0I4 Z0M \0M  0N,!p,!p,!p+00 0M 0M\ 0O/ ,Ap,Ap-|pi0PNO   +0^40Q  2Q * 2
,Z2 2$"D2-\5)42 2 F2-\542!82X8*8 2 2 e D2 $2$2+0i@2 @2 2 A D2"$.24D1M5d1R6b20b7+0n40w40|4141	41
4141/41241541741;41>41A41D41I41K 24$1T5d0z 2@@A+1R-\5)42 2 @A+1R 24$1T5d1 2!& FA+1R!$2 D2-\5)42 @2-\5)422 2 @A+1R 24d1T-\6442 2 @A+1R-\642 2 @A+1R 24$1T4D0x"224$15d1T 2 2 FA+1R-\5)42 @2-\0Q42 2 @A+1R!$2 2 F2!$2!&2 F2 24$1T5d1" 24$1T4D0x-\5)42 @2-\0Q42 2 @A+1R 24$1T5d1'-\5)42 @2-\0Q42 2 @A+1R-\5)42 @2-\5)42 @2-\0Q42 @2-\0Q422 2 @A+1R 24D1T!$2 2 DA+1R 22 2 DA+1R 22 2 DA+1R 24D0x 2 2,5H 2 DA+1R 2 2A 2 DA+1R 2 2A 2 DA+1R 2 2A 2 DA+1R 2 A4D1T 2 2A 2 DA+1R"225$0~+0x 2 2A5$0~+0x 25D1R-\6u42425 1R 2 2 FA 23:290`+1]"$s D2"2.24D1Y 2 D2 "1^b2  "1sb2  "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 Z2 \2  2,!p,!p,!p,!p,!p,!p,!p+0Q 2 2\ 2/ ,Ap,Ap,Ap-|p 0 9~j! 24O@3+24@@3O"$ D3 $:INX|H2!+26 
2<6@3 J2< 
2;>J2>Z2<+26 J2>z2<+2
z@+26 #p &> 
3L2?+227@2? /&5f2+7 +26@@ 2?: 2? L 2? 
PL2?+25Rd.R2?d$2N+2-:2?:kN
y1kN
y CB`x2>x2?H2Z2=0B+26	d
:`3+26+2&x34}X3 \3i @3j<3q0<0|+1\+3,>p3Zp3+p@h35@p35@(3O@03Y@x3<@3<@83[@(3I@P3S@P3T@h35@3@ 3@35@3593H[(/<0"`S<pX<0 p3@3r+3*|3-<3wx3Z`3+3H!  @w+3<3s p7 p+35,>,>,> &w p,30,&.<7@p+3. p,30"3s 3a.< p`3t w,&,&5 3 .< pd3t:." Q,& p,&>`93+.<93 @@,^,^,^+35d @@& 0b.".")B}5@31,~m<!<P\3e<3s p[pl<0@X+3;Zp.</ pQ \3f+3>@@3f!<P\3e7@3h+3A <3i \3g@@3h!<P\3eXX\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+3E73x 3y \3f @3XXQ< \3e 3z \3f+3E~x3X[`x 3j,x+3`Z \3e@@3f@@3f<3s \3g+3E73h 3gX\3@@3h@@3g+3GP3b~03j>x! Z @
&3zU`eB+3p@)@G 
"+3m
&3~+4#6$1,>7.@
p.46$;h3_.
.43f.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+ggM?} 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#p5@4/#p!"X#p+4&\p+4&a.9'1,>7,>,>O@4S+4&,>
6+ _4`4/"`Q@,> <4U,,^,> <4X,
,^*b4,+49,> <4Y,,^7@4S+44,> <4\,
,^+46,> <4^,
,^Z5"49,> <4_,
,^,7@4S,
,> <4a,,^,,> <4d,,^,> <4g,
,^(@qd1@,,
1@#+4H0@*+4:,>,<4h,,^+4:,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOPh4S.pX`4V4Ppp4XX`4Z4Qp04Rp4]pj4Sp4^pp4`X`4b4JX~P4e4Opxx4hC61,>7,4t,~[B1,>7,4t,~[B1,>7,4t@,~C61,>7,4t`,~,>e|Pw+4v3!p p*|4va|+4z ph" ab~+4v,^,~C6Md 1,>7,5,~[&r1,>7,5,~[&r1,>7,5@,~C6Md1,>7,5`,~,>e|Pw+5	2ap p*|5a|+5
5<#p+5+  ,~u 5;attempt to take SQRT of negative argKc3@ p p+5KKc3K  ,5K 
,~Kc3J  ,5K ,~Kc3I  ,5K ,~Kc3H4B5a5@5O5"5a+D40
5NU ,~,>,># $)D/$@,>4d5XX $(F) + 5X5F5X5"5W"` ,5p+5_#  ,> <5c,6;,^@,> <5d,6,^5&5_",^,^,^,~! ,~xxKc#@ p p+5pKc#K  ,5p @,~Kc#J  ,5p @,~Kc#I  ,5p @,~Kc#H4B65@5s5"5}+D40
5rU ,~ D6!$ @6 B65"5z#`+ 6,5z!"B,~+ 5~(BdB+ 5~5B5y  6,~ +7`6+6`d +D406+D40
6U `d @6 6+5} 6`B"`+5}/6id +6	+D406#6,> <6,6;,^ @`6@,> <6,6,^+6U",5z6+ 5~+5w|6! ,~xKc1,>7 p3"62+63b61+6+D40
6U ,~+D406  ,~ D62 F63@@63%"j"%60)/;`:XD6,5f6%aF+6%.&@(|h&f63 6/60 6/ 636.D61@ 62 63,~!t0_'"S'qf!um.	.#Y% !vyO^	RX63C2|t(1,>7 p4@6K @6:,> <6T,6;,^6:,~{e^b}6:C2|p1,>7 p5`6?4@6K+P406T#p3@6N+6M)r. !@6R! n@6R(|h"6O 6O B6S 6P6P6Q6S6R6Q,~+D40
6L 6R,~  ,~ 0_i/X3 6P'M 5( bB W
R `@86Sx6:ATTEMPT TO TAKE LOG OF NEGATIVE ARGy6XS51,>7+6^IO1,>7+6^SMm1,>7p+6bg:=@1,>7p+6hS1d,>_({5 6e hd ~)w27 "`,^,~g:9d5`6j4B6m/"ab+6m2@6n;@4 6ml ,~?C1,>7#p,~S01,>7#p+"6t,~U ,~g&=`1,>7#p7!p"`,~SNL{@1,>7 pFp4 6| p,~"p+"6~,~U ,~[> 1,>7 p&p ,~KbN@1,>7,
,~7Y\7Q<X\7*+!$hX$h@@h*% "7 BhL " BhM+xeX2GiSHYC aSiSH~7INXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@Gx7iSH+