Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50144/mreg.sav
There are no other files named mreg.sav in the archive.
X &Z P P0 +- Lx ,
( x -(Rx / p + 4(//21X,'MULTIPLE REGRESSION PROGRAM'//) + 7(25X,5HYMEAN 9X,5HXMEAN ) " 9b + =(' MULTIPLE REGRESSION PROGRAM') @@ "-\ g4 54 4 "4 #4 ": "-\ G4 " @ # " 0b " 4b : Z $ h
D $ : Z % & -$ . $ Dhv3: #9 H $3: "9 F $ # D % : Z $ hv # Dh{3: #9 P " Wb % : Z $ {3: #9 T + [(20X,1P1E14.6/(34X,1P1E14.6)) : Z $ : Z &"h{ & -$ $. D 3: #9 ]" % $D
$3: "9 [ " eb + k(//1X,20(1H-)//' NUMBER OF VARIATES TO CONSIDER? ',$) " tB~ & &4d =" #. &5d d " qb + t(/' WHICH ONES? ',$)+ u(11I) " tB~ : Z $ D3: &9 v @@ & : Z $ hD4d " # $.D5d : & & $ D FD $3: &9 z &4d d & D & & D ' $ . & D ' ' D ( : Z $!$ Dh1: 9 : Z ( hD D $ Z ) hD D & : Z % & -$ $. & -$ &. &
$ ) (. D 3: "9 $
$ (. ) (
$ ). (9 F )3: '9 $ : Z % h
& -$ $. &
$ ( (. D 3: "9 ! ( (
$ (. ( F (3: '9 : Z ) Zh73: '9 , : Z )!$ D * ) Z * &
$ ). $ XD 4-\ ,4 4 * @ + +4$ 8 + D * * D +" ). +4$ 4D L *3: '9 0+ L : Z * &
$ . ) D * $
$ ). . + H $
$ . + * F 3: '9 = ) 7 D $ ) + 7 F7 + $ F7 &
$ ). ) D * $
$ ). )!& F : Z * &
$ ). * D 3: '9 R : Z *" ). 4D e &
$ ). * D * $
$ ). *!& F : Z , * &
$ ). *. D "` 3: '9 _ *3: '9 W )3: '9 ."$ . ' D , : Z ) Z *" ).h75D o" ). *4$ 4D ~+ q *3: '9 k : Z , &
$ ). D * $
$ ). (
$ *. F $
$ *. * F 3: '9 r * ) 7 F7 )3: ,9 j!$ D -!$ D - : Z $ h
h
D -3: "9 : Z $ &
$ (. h D -3: &9 - - D .-\ G4 & @ ."$ . "-\ G4 @ /-\ M4 / @ /" . / D 0-\ M4 0 @ 0 - . D 1 . 0 D 1 1 1 D 2 " b + (' WANT TO SEE PREDICTED VALUES, TYPE YES OR NO.--',$) " "B~ 2 + #(A3) " . 25D F " 6b : Z $!$ D 3 : Z 3 hD D % & -$ %. $ &
$ (. D 33: &9 ) %D 3 % $
D 4 " :b 3 4 $3: "9 &+ :(//24X,22HCALCULATED OBSERVED) + <(20X,1P2E14.6) + >(5X,65(1H.)) + F(5X,1H.11X,25H.DEGREE OF FREE. SUM OF ,29HSQUARES. VARIANCE ESTIMATE . ) " <b " >b " Lb & - 1 + S(5X,13H. REGRESSION. I9,5X,1H.,1P1E14.6,3H .1P1E16.6,4H .) + Z(5X,13H. REMAINDER .I9,5X,1H.,1P1E14.6,3H .1P1E16.6,4H .) " Sb 0 . 1 + c(5X,13H. TOTAL .I9,5X,1H.1P1E14.6,3H .19X,1 H.) " ]b / - + m(7X,'LEAST SQUARE COEFFICIENTS',4X,'COEFFICIENT T CONFIDENCE BAND') " eb : Z $ 1 &
$ . D -\ 14 @ 4 " yb $
$ (. 4 3: &9 o+ {(2(13X,1PE14.6,4X)) + (//' F RATIO(',I3,',',I3, ' DEGREES OF FREEDOM) = ',1PE14.6) " {b & 0 2 " b + (/' VARIANCE-COVARIANCE MATRIX') : Z $ " b $ Z & $
$ . $ 3: &9 $ 3: &9
+ (1P2E14.6)+ d-\ I-\ I + 0YES LR+ S(2I) + T(11F)"$ D v u5d m " Xb + ^(/' DO YOU DESIRE USER INSTRUCTIONS, TYPE YES OR NO--',$) " `B~ v + a(A3) " p. v5D m " b "
b " b " %b " :b " Jb " `b " ob + (' 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.') " jb +
(/' 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'/)+ J(' 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.') + j(' INPUT IS FREE FIELD IN THE SENSE THAT COMMAS ARE INTERPRETED AS'/' SEPARATING THE FIELDS.'/) + m(' NOW YOU TRY IT.') " nb + z(/' IS DATA TO BE READ FROM A FILE OR ENTERED FROM THE KEYBOARD?'/' RESPOND WITH "FILE", "KEY", OR DONE"--',$)+ {(A4) " zB~ v " p. v4D
" q. v4D
C-\ I "
b +
(/' WHAT IS FILE NAME?--',$) "
B~ w +
(A5) -\ 4 q4 w " RB t t t4d
4 t4d
4"$ . t5d
4"$ -. t5d
4 "
b t t +
(' FILE INDICATES',I3,' X VARIABLES AND', I3,' OBSERVATIONS.'/) : Z w " SB w. s : Z x $ -$ . w s. R3: t9
w . s 5D
2 w. s 5D
2 : Z x & -$ . w s. 'R5D
23: t9
)"$ . w D t "
b t t + @ w3: t9
+ @ "
b t t "
9b w +
B(' NO MORE THAN 10 X"S OR MORE THAN 90 OBSERVATIONS PERMITTED.'/' CORRECT DATA FILE ',A5/)-\ I "
Db +
P(/' DATA WILL BE ACCEPTED FROM KEYBOARD.'/ ' GIVE NUMBER OF OBSERVATIONS (N) AND NUMBER OF VARIABLES (M)--',$) +
Q(2I) "
PB~ t t t4d / t4d /"$ . t5d /"$ -. t5d / "
[b t +
o(/' 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.'/) +
q('+ LINE',I3,2X,$) +
r(11F)@@ w : Z x: w "
ob w "
qB~ w. s : Z x $ -$ . w s. R3: t9
y x w. s 5D w. s 5D : Z x & -$ . w s. 'R5D 3: t9 > w "
b + (/' IF YOU WANT TO ENTER MORE DATA, TYPE "1". IF ALL DATA HAS BEEN'/' ENTERED, TYPE "0". WHAT DO YOU WANT?--',$) "
PB~ x x5d w D t+ x3: t9
s " *b t " $b " `B~ v " p. v4D @+ @+ *(/' ARE THERE ANY CORRECTIONS YOU WANT TO MAKE? ',$) + /(/' YOU HAVE ENTERED',I3,' OBSERVATIONS.'/) " 1b t t + >(/' 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.'/) : v v4d
C+ m+ l " Bb + P(' ENTER LINE NUMBER, THEN VARIABLE NUMBER, THEN THE CORRECT VALUE.'/' IF Y IS TO BE CORRECTED, THEN ENTER "0" FOR'/ ' VARIABLE NUMBER.'/) " Rb + V('+ WHICH LINE, NUMBER, VALUE? ',$)+ W(2I,F) " VB~ y y z y4d y4$ " t. y5d " t. y5d y5d c y. s z F+ $ -$ y. y s. z H R+ + l4 Z r \ r r, p , p ,!p ,!p ,!p + R r r\ u/ ,Ap ,Ap -|p YES FILE KEY o8 z,> ,> ,> ,> ,> ,> 1P 0 0P 0 * [|4d
/ @
5h
,> ,>
~ , ",^ ,^ 0@ +@ +1@ @ =d
4H
@ 8(
/0 5P
,^x +
,^ ,^ : ~,^ ,^ ,^ ,^ ,> x 1H B ,^ ,~ ,> ,>
~ , ",^ ,^ 7@ %+@ +=h
+
H ,> ,> ,> [~4d
* 1F & 0F & 2d +
00F +
%0d $ ,
,0F +
*[~0$ $ /$ x B 0d ,
,,^ ,^ ,^ ,~ )@ 1 , c=d
,,~ / , c=d
1 +
# x Q .
* x @f @l |`h d( *
~7@ ? 4J
O, "> 1` 1 +
bl" / ab +
?ab .
}+
|$& . `b : af~ +
|,> && 0( : .
}l" ,^ +
|lb +
I*
l( d" !+
|6 +
i @ W1@ +
O1@ +
N0@ 1@ ; 8 +@ +ab *
4L
l`b "` [ ab $
~. /& `b +
V^ / +0
V1f 3&
`h,6
5&
[#` $}+
[ $ `F
$(: 5F
[+0
``b "` +
lU,`b @@ +
^0@ "1@ "+
F1@ +
o1@ +
p1@ +
r1@ +
t1@ +
t4*
J7@ ++
l+@ +, "=*
j , : } Q,}X, *, /
,~ ab +
|4*
J +
=mb +
|4*
J+
im X" `b +
wl" +
|4(
x4*
J+
ilb +
wmb *
." l" d" !7@ %+@ ++
9 $ 2 m0
0 m,> @"x Q" .
/
4, + l2 42
+ 5j
ar + /$ 52 , .
.
52 7 /
/ 5h + . ,
:` + c,~ Lf3 (zpR
$o 46q C [ V 3Lf2 $ 6$ H 2!3 $ $ !,> ,> ,> " & 5 l$ "` + & ." 8 ,> 5` /H 5f
6` 5$ / +
, c=f 7 , c4b ,^ , c=b ,^ ,^ ,^ ,^ ,~ U & ." + $ }m p X@ p @ -|p 42 @ 7 Y, Yar + F8 F8 & (.& O! Q` @ MZ Q6 `[ X 1@X + %> [ 7@ }. V M V &; Z X@ M V Nf )O@ NX* @x %d2 X2 @b Q* D % 26 M+ Ad h && & #+,lr + 2 % H %/$ $" . + +n* d2 " + +,> ,> ar 0x + <er + ; % B &+ < V & V M " 9 +, vX2 =x Hmr 48 A6`+ H, v, |Z 0 / )l2 &d2 `r + !7 + W* _+ J>`+ J/ )+ ) x 9 )l2 d2 + +, v, |+ ) " Bd2 l2 d2 4B )Z M/$X $$ 52 W <D Aar + V1@ , ^, c=b S+ ), "+@ +<D A ar + \1@ 1F , ^` =b W+ )
0F + a L ,~ ,^ + )d2 52 e , c=b c+ ), "7@ %+@ +=b e+ )d2 dr "` X
+ )d2 l2 + )d2 O@ #+ ), o
@@ d2 + +& *7 : XJ,~ , v+ )l* + ml* + ml* + md2 dr + Y`j + yaR,~ A" ?!` `j ?( G
er + E+
,> ! W* ,^ Z 1& .& O F O& ( F 1& + 1F + Z 0@ + l2 !0X Z 1@ + Z`r + )7 ,~ aj + 1F l* , o,> O42 , H + @ `j B ,^ =l Ed* ,~ , H + 6@ )+ + UX + ,> S W* ,^ l2 & ( F S L: L"` 1F ( 1F l2 X ZP O+ `r : *p d2 + F'
'' '*'4'>' 4 R4 sN8% N9g` @& l` * vH+ 7 M P g b 4 ( K 0 + 6 = r s t m m m m m ( u N j k, G6 #7` + W6@ %+ <@8 ?`8 + S0@ ,~ @@ % @8 X 6 Y+ A6 ", Y 8 / D.@ 7 + O !8 / X@ FZ .@ F. ** X FP 8 @ )@_' +X .@ @@ +*!8 C @8 ' @8 : Y,~ 6@ !+ ,,> , [7 Y, Y,^ .@ + C1@ + =Q q`P@8 @8 O@ %,~ @8 >`8 1@ 7 ,~ 7 # `8 , R,> , 8`L , z`L , `L , taL @ `L , @@ %,^ ,~ ,> ,> 7 !+ r:` N+ p7 "+ -6 #+ p 1B + o1B + p1B + oX"k4" p0b + pZ w+ p, 8, 8, 8,^ ,^ ,~ @8 7 %+ u?`8 O@ %+ p7B + /@@ %+ A xw px
u`z er + 3`8 + @8 @8 52 7 !+ 16` 1D 6` N+ , c , cO@ N,~ 7 !+
1D 6`8 +
@@ %er @ , ", 5@@ %O@ N,~ O@ N@ 21@ ,~ +@ ++ = Y D 7 , [, :@@ Y L @ @@ +@@ 2* %!> O*> O7B )+ @@ )+ 7B (+ L@@ (+ 6@ %+ C7`8 , ( 8 : N1@ + :1`
?`8 l2 @ ,~ 7 !+ 3, A, \` `8 ,> , 8`L + D`L , Z
8
7`L , z`L , `L @ , w,^ ,~ 6@ O@ X^ ,~ 6@ %,~ +@ +?W8 , ( 8 0@ 1@ + :+ 6O@ %7m Y: Y?`8 + ? 8 4@ <0@ 1@ + <7o $+ C 8 * @ 8 * @ Y ,~ 6Y '+ 3, :" GBh > L!$ " L: L2B + H+ !> O*> O+ Lv3L@ O* ' 50@ + Y ` 5 = P ` Z (Q"` B L B ." XB (@@
@ @ @ ,^
7aJ , `j m2 aj @ `j O@ #`j O@ "`j 7 ( 2 4F . 8(@ 3D + '> =f + '0` , c"& \: 7d .$n \3D 8+ p7J ,
D
92J 9
J
7,~ `r ,
+& .f . 0f , S ( ,D X , d,Z @ 6 D f :7 #X2 R` `j , uH ah, ],D , 4, '62 7D 7` , aD *6Dr, Y7 Y, $`r @+
+ D,> *$$ 0d
+ =6B;+ V ;& (@ G G ((@ @ !"H: B 0d + C6B<+ X,^ , 7 $+ Y52 H, :7`8 , R7 Y, Y`r + u`r + [ar + Z7 #+ & </& 7 !+ 4f ZN 52 , 1 & F # ' F $ & C F $X. #O@ (6 !+ + B 6B; B 6B< B + C7@ & @ &3@ &,~ @ &F@ %,~ 8 @ 8 @ ,~ ar ,~ <0@ ,~ `Q@8 8 $ @8 ,~ =$ . _Q` P . =Y@ 6 X@ ,~ !2 @( (.( O > @@ 4H q)F h F + l!2 @+ jl2 O@ $ D ' + !2 + q!2 + q" ( #O, V+ E6 Y+ y Y @ Y@@ Y 2 + q6 Y+ } Y @ Y@@ Y >+ q2 (l S` + qQ2 . :, + LQ2 : . <, +@ ++ LO@ !XB8 Q `X @8 > 8 ,~
ENCODE - DECODE ERROR!
& @@ + G, :! H: @ , + 7 Y+ ( 42 , > @
?f ?+@ + ',~ : @
> @@ @f ?+@ , o,~ ar + "7 ,~ ,> ,> , ,^ ,^ 6 Y,~ l2 , d2 ,~ 6 + d2 ,> ,> , ,^ ,^ l2 , ,~ @@ +@ + ),~ @ H !(H: H +@ + -,~ @@ +@ , k,~ R l t+@ ,~ ,> G@h ,^ ,~ ,> B@h + 3,> [ @@h + 3R G A+@ ,~ 7 Y+ 6* ( =@@ ** 7 @@ P l p +@ + 66 Y+ DR X Yl x +@ R l l +@ * ( =: ** 6 Y+ 4ar + 4R X Yl z +@ : Y7 Y,~ 7 !+ 4O@ ! 8 / Y @8 Z 8 . YX@8 + 46 Y+ Tar , VR l n +@ , 1+ 6R X Yl z +@ ,~ 6 Yar + E6 #`r + Eaj + A ? @ YZ ?Z?~/ / @ Y7`8 , RZ8 [ Z8 .D XH eS?~X8 . B*( Y @8 Z 8 . YX@8 ar + C( = * @ Y, :, V+ OR l `+@ ,~ R G E+@ ,~ R G E+@ ,~ R l | +@ + ,~ ,> ,> ,> @@ : r& F(F 3F + }5F z > 0Z n+ w4H g+ ~$ F(D XD $ GD ,^ ,^ ,^ ,~ 3$ G,
3D G $ 3D G $ 3D H $ 6 ,~ $ ,~ ( :& 84F > 0h 2+ , g & F & 2/H ,~ {X& PH . ~$?{ 0,B` |B`, 3+ p , 8 + p7`8 , 3+ pO@ %,~ <8 3P 7@ (+ S@@ )+ 6$ . P1X}I4:iSH
x eX2 p INX . . *$%8 08 . H @ @ , ` M?L@
@ , F+ E ( , /, :+ O ` @
xh h }~KbN@ ~ I, Y ` z
3 R S T U P Q-$ DIRT.-$ DOUBT-$ OCTI.-$ OCTO.-$ LINT.-$ LOUT.-$ NMLST}W-$ DEFINE -$ TFMT.-$ BINWR-$ TPFCN INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INZ INZ INZ INZ0 INZ@ I2 I2 I20 I2@ I2P eX2G iSH YC aS iSH 0@@ n + @@ r * ,~ MhoN(s~` 0 9Lf3 T=8) z8]U<c\|i,SY{z 0 ! !y #SD &wka -Qa^':s\-6p(O@ +-|p p)@@ +-|p x+C h,#p -|p S0 P.#p +" 0-|p U -|p gG@ }x1 p 4B =4" > D B)r/" @("XB <(Bn(|D ? D @A D @ 7 B -|p -\ L 0C@@ $ B-|p @ s/M { 8BATTEMPT TO TAKE SQRT OF NEGATIVE ARG M2| @G p & 6@ h X h"6 -|p S; pL+ NSO M#p % * ( .7!p "` -|p " YZB * " + 5 b @@ 2,~ _Z.)Vw(U@Ap :p 7@ 2:p @@ 2-|p X 3> + X 2ax + _8 50x ?+ 18 0+ 6A8 + `|ax @ + 8 7 X 3 + X 4 3 9 4* 4h8 D Y +bX 87 3 4 X 4 37! 47 8U8,> 8 91x ?18 0+ 9A8 + `l+ s+ u+ z+ o+ s+ s+ z,>x 3,_ 3,_ 4+ : 3A8 X 3 3,_ 3+ 3.8 A8 X 4,^ 4,> <U87 48x ,> + p 3,_ 4+ + + + + + + + +d8~ l8 + +d8pl8 + 8 7x =.8 d l8 + R +d8~l8 * 3+@ 3 X 3: + +h8Z `x~ + `X X +`x[p+ + = 3+ + 2ax : 2ax @ + >X8 `x 8 `x 8 Q` !X ` X 1,> U 2 8 )X .8 X 1`Z+ ,^ -\ L~H+ ! $ ( + .H # &: *, -H 0INTEGER OVERFLOW PC=000000 INTEGER DIVIDE CHECK PC=000000~h'FLOATING OVERFLOW PC=000000 FLOATING UNDERFLOW PC=000000 FLOATING DIVIDE CHECK PC=000000 }x4 S6$` 1X -+ + . +h` @ 6% +1X -+ s1X ,+ r,^ 4+ 9 . X8 `x 8 +
WARNING! FORMATTED READ FOLLOWED BY WRITE MAY FAIL.
oHE
& @,~ ,> , >,^ , 1-" 6&p We6@`+ &$ %1D + RZ MZ N/ > $& 0f $ & $ N , 2=f P, , I-" 6 t@L5>p `+ %, > 8 1$ 00$ + Z,> $ /, 2,^ .$ , 2-" 6&p
7aW
ze&tp`+ &, 3 &, * x /& , *-" 6]? ;C&dVK -" 6I5r;-XRd
, {-" 6'
6Y<-" 6[?PQp*.j1KL)8k I2@ -" 6M&dPC6(0 , )-" 6]? w.j1J
+ '-" 6]<+wZ5|@M&dP`, )-" 6>p m& P`+ ', 3, )-" 6 >*:J+zK$Y-" 6iPK~) i>x
tK wVu + ', 3(Rn6HA, --" 6.j1J.,Wd}``+ '-" 6K: sR 8 + '-" 6S2dYpX9S
+ '-" 6]l[gP>7i@ 9e? -" 6eX2DXzi RM?PSK @K$ -" 6a +y>p0 + ',> , 3,^ , --" 6:~@_$Y-" 6S2dYpX.99W-p`> L &, ", "-" 6CP\rd
A, "+ R, 0-" 6Y @_K&(7$mph.992|0` A> L & .$ , 2=f "+ 5 , *, 0+ K7 , *+ R7 ' , 1`bp + *+ 5 ' , 2`b` + -+ 5 $ , 2 $u $ 4D 3
" ,~ , 0 $ , 2 $ + 2, 3Q"A@ 1D + R1D + =1D $t1D + (1D + , 1+ 7, 5+ -" 6S2dYpX 9C$\A,~ $
LINPUTOUTPT b B " b B @@ @@ @ @@ )* ,~ KK9:`I p @ -|p KK\syPL,> ,> _p 0b 0b + TZ0D $ Qp DZ` : 2d + U, 0 p , W,^ ,^ -|p Q"A` 4D 0, 2+ W
6 + -" 6
/ 1kRM{@i&lVB " b / , q-" 6 R~H6d KJ6Jh b / 7 . ), q7@ + m-" 6
us@\Y KAeJ~0sB(P!(xZ\4B l, { $ , 2[ , W*h h,~ -" 6 :x <K.J7\.,WeLI:K$Y ,~ ." &" tQDx &" ,> 4B u, {-" 66McA,^ , { $ , 2[x &" & , {-" 6N,3@,~ & &" QDx ?` 6@ , {[x .$ + 2x ~x ig\G @ !3B *@@ > x ,> D ! D * ." B !`dp + -\ L~ ,^ : x !,~ : , H FLOATING OVERFLOW PC=XXXXXX FLOATING UNDERFLOW PC=XXXXXX INTEGER OVERFLOW PC=XXXXXX p#M?\Yic 0%08 I5rH
+