PDP-10 Archive: decus/20-0025/mreg.exe from decuslib20-01

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.

(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

r,'
8w

u,;
;	u)

'a

w,O/

z,c

3S,w
"

%T-

|-

-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

@{
*

7+

Chw
A

F#kS

Hi7x

KK
,

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