Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0025/mreg.exe
There is 1 other file named mreg.exe in the archive. Click here to see a list.
?p00`?hX<?x " 
 
<++2	`:@z4h<&24`((//21X,'MULTIPLE REGRESSION PROGRAM'//)(25X,5HYMEAN9X,5HXMEAN)(' MULTIPLE REGRESSION PROGRAM')(20X,1P1E14.6/(34X,1P1E14.6))(//1X,20(1H-)//' NUMBER OF VARIATES TO CONSIDER? ',$)(/' WHICH ONES? ',$)(11I)(' WANT TO SEE PREDICTED VALUES, TYPE YES OR  NO.--',$)(A3)(//24X,22HCALCULATED    OBSERVED)(20X,1P2E14.6)(5X,65(1H.))(5X,1H.11X,25H.DEGREE OF FREE.  SUM OF ,29HSQUARES. VARIANCE ESTIMATE . )(5X,13H. REGRESSION.I9,5X,1H.,1P1E14.6,3H  .1P1E16.6,4H   .)(5X,13H. REMAINDER .I9,5X,1H.,1P1E14.6,3H  .1P1E16.6,4H   .)(5X,13H. TOTAL     .I9,5X,1H.1P1E14.6,3H  .19X,1H.)(7X,'LEAST SQUARE COEFFICIENTS',4X,'COEFFICIENT  T CONFIDENCE BAND')(2(13X,1PE14.6,4X))(//'  F RATIO(',I3,',',I3,' DEGREES OF FREEDOM) = ',1PE14.6)(/'         VARIANCE-COVARIANCE MATRIX')(1P2E14.6)YES  nh+ -<
" $ F De e <X,
:e; +W,"H $ F De" $ (-$.e"
NJ q.$8&^ e"jFV:e; +] <Z,, <], <`,
7`+@ 3$+d <a,, <d," $ F De e <g,
:e; +o,@d" $7`:+x :2h+x: 
: J :.$8&t7`+d  D DM.$ Di DV <@f0*d}"M $ Fd D : Fe"&/M.  Fc D@ : F"H $ (
$@. *-$
.
 ,-$
e.
 
0q
(qL #.$8& $
$.@ &
$@. # F#:@; c+:; d+"M $ Fb D : Fe"H $ (
$V. *-$
e.
 
V
(qL #.$8&  &
$V. # F@:; b+"M $ D.$8&#"M $ F D@db"&/M.  DU $
$.U##b D?4$/ ? Db U DT".T4$C4DA:U8&*+A"i $ (
$.  # Hb *
$
 
.
 T. 8# N0# *
$
.
T H(#.$8&4   Fe T 
  J F  $
$. # Db $
$.!& F#"i $ (
$. 
 #
b J #.$8&G"M $ Fj DU3D+Y $
$.U # Db $
$.U@f#"i $ (
$ 
U.
 
.
"
0#
bL(#.$8&S:U; j+M:; +'"$.M DG"G $ Fh D"&/M.  DU U 2D+f".U4$C4Dt+g:U8&b"M $ (
$.  # Hb *
$
.
 ,
$
U.
 
0# L(# *
$
U.
 H(#.$8&h U   F:; h+_@df DT"H $ VVHf.$8&w" $ (
$V.  #@HT.$8&{ fT Df Fa"(.Hh HNH HI"aN HFH H Ta HMF D HU <i,, <l, <o,
 ;2DJ+  <p,,"H $ FJ De@df" $ : HK *
$
V.
$(-.e  q(#Hf.$8& jDf eV Dg <s, <v,
:e; J+ <x,, <{,, <~, <	,
 <	, <	,
 <		, <	
,
 <	,," $ (
$.  # H: <G,B @d <	, (
$V. <	,
.$8&, <	, <	,
 <	,," $ <	,"*.
/
  JE H (
$. <	",
:; E+=,.$8&9+d <F,U <F,
x:XVHNXrXlXpXv(j(NXyX~$X~X~$:XX~$JXX
(f(gX
X$(T(MX$((X!$I(fX&X-( #(dX/$$(UX5X9( #(2I)(11F)(/' DO YOU DESIRE USER INSTRUCTIONS, TYPE YES OR NO--',$)(A3)('  IF DATA IS READ FROM A FILE, THE FIRST'/'  LINE MUST CONTAIN TWO INTEGER VARIABLES:'/'  NP, THE NUMBER OF DATA POINTS PER LINE; N, THE'/'  NUMBER OF OBSERVATIONS.')(/'  MULTIPLE REGRESSION IS PRIMARILY AN ATTEMPT TO CURVE FIT'/'  OBSERVED DATA BY THE MODEL'/)(10X,'Y-YMEAN = A(1)(X(1)-X1MEAN)+...+A(P)(X(P)-XPMEAN))'/)('  WHERE'/'   YMEAN = MEAN OF OBSERVED DATA'/'  XIMEAN = MEAN OF I-TH INDEPENDENT VARIABLE'/'   THE A(I) ARE UNKNOWN COEFFICIENTS DETERMINED BY THE'/'   LEAST SQUARES PROCESS'/)('  THE DATA IS ENTERED IN MATRIX FORM,'//9X,'Y1     X11     X12  ...  X1M'/9X,'Y2     X21     X22  ...  X2M'/9X,'Y3     X31     X32  ...  X3M'/9X,'.'/9X,'.'/9X,'.'/9X,'YN     XN1     XN2  ...  XNM'/)(' Y1 IS THE OBSERVED DATA WHILE X11,X12,X1M ARE THE CORRESPONDING'/' INDEPENDENT VARIABLES FOR THE FIRST POINT.  SIMILARLY UP TO THE'/' N-TH POINT.'/)(/' RESTRICTIONS:'/'  M MUST NOT EXCEED 10'/'  N MUST NOT EXCEED 90'/'  INPUT FROM KEYBOARD OR DATA FILE MUST BE IN UNIFORM LINE LENGTHS'/'  WHICH MUST NOT EXCEED 11 FIELDS EITHER IN THE FILE OR AT THE KEYBOARD.')('  INPUT IS FREE FIELD IN THE SENSE THAT COMMAS ARE INTERPRETED AS'/'  SEPARATING THE FIELDS.'/)(' NOW YOU TRY IT.')(/' IS DATA TO BE READ FROM A FILE OR ENTERED FROM THE KEYBOARD?'/' RESPOND WITH "FILE", "KEY", OR DONE"--',$)(A4)(/' WHAT IS FILE NAME?--',$)(A5)(' FILE INDICATES',I3,' X VARIABLES AND',I3,' OBSERVATIONS.'/)(' NO MORE THAN 10 X"S OR MORE THAN 90 OBSERVATIONS PERMITTED.'/' CORRECT DATA FILE ',A5/)(/' DATA WILL BE ACCEPTED FROM KEYBOARD.'/' GIVE NUMBER OF OBSERVATIONS (N) AND NUMBER OF VARIABLES (M)--',$)(2I)(/' ON EACH NUMBERED LINE ENTER FIRST THE VALUE OF THE DEPENDENT (Y)'/' VARIABLE.  THEN IN SUCCESSION ENTER THE VALUES OF THE',I3,' INDEPENDENT'/' VARIABLES.  SEPARATE EACH VALUE BY A COMMA.'/)('+ LINE',I3,2X,$)(11F)(/' IF YOU WANT TO ENTER MORE DATA, TYPE "1".  IF ALL DATA HAS BEEN'/' ENTERED, TYPE "0".  WHAT DO YOU WANT?--',$)(/' ARE THERE ANY CORRECTIONS YOU WANT TO MAKE? ',$)(/' YOU HAVE ENTERED',I3,' OBSERVATIONS.'/)(/' YOU GAVE M AS',I3,', BUT IT MUST BE BETWEEN 1 AND 10.'/' YOU GAVE N AS',I3,', BUT IT MUST BE BETWEEN M AND 90.'/)(' ENTER LINE NUMBER, THEN VARIABLE NUMBER, THEN THE CORRECT VALUE.'/' IF Y IS TO BE CORRECTED, THEN ENTER "0" FOR'/' VARIABLE NUMBER.'/)('+ WHICH LINE, NUMBER, VALUE? ',$)(2I,F)YES  KEY  FILE [J,t@ \  !p @	+ !p @	& p @	# p @	* p @	%"$ D	)5`= <
@,, <
C, <
F,
 !2D	%+= <
H,, <
K,, <
N,, <
Q,, <
T,, <
W,, <
Z,, <
],, <
`,, <
c,, <
f, <
i,
 "3D	%+D "3D	%+r <
>,U <
j,, <
m, <
p,
 <
?, <
r, <
u,
7`	*+m7`	#+m $3$	*+m $-3$	#+m <
w, <
z,
"	# $ F	* D	- <
|,.	& <
,
"	* $ F	) D	& $-$	&.	-.	+ <
:	&; 	)+X, 	-.	&6@+k 	-.	+6@+k &/	* $ D	& 	&$$-.	-.	+6@R+k:	&8&c"$.	- D	# <
+
::	-; 	*+T+
:,< <
,
 <
, <
 <
>,U,< <
7`	*+
%7`	#+
% $3$	*+
% $-3$	#+
%,< <
@d	-"	# $ F	( D	$:	- <
!<.	& <
"	* $ F	' D	& $-$	&.	-.	+ <
:	&; 	'+
, 	-.	&6@+
 	-.	+6@+
 &/	* $ D	& 	&$$-.	-.	+6@R+
:	&8&
"$.D	- <
6`	&+
 	- D	#+
:	$;<	(+ <
3<, <
 !2D	%+
:+
),< <
:	)4dr+=+
:,<, <
7`	,+
 7 	++
  	,2d	#+
  	+2d	*+
 6`	++
7 	,.	& 	, F+
  $-$	+.	,.	+ 	, FR+
    	# Ap 	* Ap,~p!	$X	.X~	4$	%X	F	X	OX	UX	gX	{X
X
 
X	5X
*X
,X~
7$	%X
8X~
;$	$X	-$	*$	#X
;$	*$	#X	.((RX
;$	*$	#X
;$	*$	#X
B	$	$X
KX~
V$	#$	*X
V$	*X
j$	-X~
l((RX
lX~
V$	&X
}$	#X
xX~	4$	%X
$	*$	#XXX~$	,$	+(	,	`Z(X^. >X.~(3~+
&b+
?NO CORE AVAILABLE - CAN NOT PROCEED
!*,~*x,>a<~+@x@@@`edX91,>W,
!BGBR1,>W,$ B
*B;.&Sp*\"XpSBi@1,>W "%+1,i@1,>W "'+1K>21,>W "*+1K>401,>W ",+1[<I71,>W "/
&; @)@. 
"5B2
&A,~.
.4SEQIN^6SEQOUT^8RANDOM^9
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
gG@1,>W7cp+M (Bdb+H.P"+I.P"TB#p@,~4BO+P
Q#p+D  ,~>attempt to take SQRT of negative argKbN@1,>W,
,~XY\YQ<X\Z*+6Z6`ZS	YVBG9ZG9Y
GJWGK/KWU)?K@UG
OaeDTvFMaZIaYHajBP3?K~BwgZYYXpX.
&u^
"r:^`!l5mA*	:
((
8@#x/lJe,(%S	YVBDf-Da*
_
Gcl` 
8v:#Lc1t(BVKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz
7	iMy


Q s  u	-Ga	5H
B
T%p1)	.	iu{
W%s
K
Z&
V
]&D!A
}
`&/
a
)
c&C
n}L
f&W

i&kM"
x
j&
 U	.'
m'

u* i	4oMN	u
V;
p+
jO
?,P	u
c
r,'
8w
u,;
;	u)
'a
w,O/

+
z,c
3S,w
"
%T-
3
|-
-3X2
;
loX23
:	{!
Fc2[ci	O3[{)aQ
l.?	UG
	B
5
/S	gziB{Qf
I
0[
>?	{z}C(m
]
2o
:S
9

q
3)g
M
 	hUr

4
@{
*

7+
Chw
A
?
F#kS
Hi7x
_
KK
,
s
NqG	-		-+vG	,ZL3	,	+]3:	+m	*P4	*P5	)+^	)P5	(P6	(P6	'P7	'0K 
	&	&a
		%,!	%/83	$
	$
	#<(5#<(5k#(R<h04:izhA
W&bnU\`UC %aUg^&kl Ar5NZ&o
al/']'p)-;`+e1wn,;s

g,cx
53t,w{&Ex)m}-~&Yz
e&[2	?ay&UY
y-o23		?u~,}2G	
@	 j}u
!/2[	{f
59+2o,3YzAw?3GGpzU'S#3	ozi{[@?&3+	ha0oFS'3?	!IU:	hA Kg)3S	H{*8?	,uZ+N 48S92!?Q #G8g	SG 7L8{=Q2I
_G KM9=Ga
sI _S9#	"	qGlP]kP]k\HjP^jP^ifiP_hP_hP`gEOg!f9sf	eXY0PHePId7ZdPIcPJc;-9bPJbPKaZaa0PK`LPL9kLKmP4CnP5P50P6P6P7P7.P8
V	V
.3UU%\T9rTnMEhLPpLPqK
K	JPqJ%hIPrI
HHPrGaGZFPsFPsEXY@@=w?C:P\:(Rb@<\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