Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50144/eigsr.sav
There are no other files named eigsr.sav in the archive.
X &YP M M @K L- ^x , " FB~ " L. 5D & " Gb " Sb " ib " tb " b " b " b + F(' DO YOU DESIRE USER INSTRUCTIONS, TYPE "YES" OR "NO"--',$)+ G(A3) + S(/' THIS PROGRAM FINDS THE EIGENVALUES AND EIGENVECTORS OF A'/' REAL SYMMETRIC MATRIX BY THE JACOBI-CORBATO METHOD.'/) + i(' THE MATRIX IS OF THE FORM'/' A11 A12 ... A1N WHERE THE A(I,J) ARE REAL (FLOATING POINT)'/' A21 A22 ... A2N AND N (FIXED POINT) CANNOT EXCEED 25:'/' .'/' .'/' AN1 AN2 ... ANN'/) + t(' SINCE THE MATRIX IS SYMMETRIC, ONLY THE ELEMENTS ON AND ABOVE'/' THE DIAGONAL NEED BE ENTERED'/) + (' THE PROGRAM TYPES A(1,1)? THE USER TYPES THE FIRST ROW ELEMENTS.'/' THE PROGRAM TYPES A(2,2)? THE USER TYPES THE SECOND ROW'/ ' STARTING WITH THE DIAGONAL ELEMENT. THIS CONTINUES UNTIL A(N,N) HAS BEEN ENTERED.'/) + (' INPUT IS TYPED IN FREE FIELD FORMAT, A BLANK ENDS THE FIELD.'/) + (' AFTER A(N,N) HAS BEEN ENTERED, THE PROGRAM PROVIDES THE OPPORTUNITY'/' AND INSTRUCTIONS FOR CORRECTION OF TYPING ERRORS.'/) + #(' NOW YOU TRY IT.'/) + %(' ORDER? ',$) + &(I) " #b " %B~ 4d y"$
. 5d q $ . $ ( D "$ . D $ D / 4d V " 4b + L(' PROGRAM CAN ACCEPT ONLY',I2,' VALUES PER LINE. OBSERVE CAREFULLY'/' THE LABELS AS YOU ENTER DATA. TYPE AT MOST',I2,' VALUES PER LINE.'/ ' REMEMBER THAT YOU WILL HAVE A CHANCE TO MAKE CORRECTIONS BEFORE CALCULATION BEGINS.'/) + O(14X,'A(',I2,',',I2,')? ',$) + U(' A(',I2,',',I2,') TO A(',I2,',',I2,')? ',$) + V(10F) : Z Z "$ . . D -\ [4 4 @ " . 4$ d5d o " Lb " UB~ $
$ . + o " Ob " UB~ Z $
$ . 3: 9 i .D .D + Y 3: 9 V+ y " sb + &+ y(/' N MUST BE BETWEEN 1 AND 25. TRY AGAIN.'/) -\ Z " {b + (' ARE ANY OF THE ABOVE A(I,J) ELEMENTS TYPED INCORRECTLY? IF THE USER'/ ' WISHES TO CORRECT AN ELEMENT, TYPE "YES".'/) " b +
(/' ANY CORRECTIONS?--',$) " FB~ " L. 5D F " b " b + (' CORRECT AN ELEMENT BY TYPING I (ROW SUBSCRIPT),'/' A COMMA, J (COLUMN SUBSCRIPT), A COMMA, AND THE VALUE.')+ "(/' WHAT ARE I, J, A(I,J)?--',$) + $(2I,F) + -(/' ILLEGAL SUBSCRIPT. EITHER I GREATER J, I MORE THAN N, OR J MORE THAN N. TRY AGAIN.')+ 1(/' ILLEGAL COMMAND. TRY AGAIN.') " "B~
/ 4d 8 " $b + " . 5d 6" . 5d 6 $
$ .
F " b " FB~ " L. 4D F" L. 4D " -b + = $
D
$
D !$ D : Z &
$ . Dh^ Z $
$ . (
$ . 4 4F 3: 9 M 3: 9 I-\ Y4
4 + [(///' ORDER =',I3) + _(//6X,'EIGENVALUE',I3,5X,'EIGENVECTOR') + b(1P2E19.7/(1PE38.7))+ c(1PE38.7) + n(/' SUM OF SQUARES OF THE OFF-DIAGONAL ELEMENTS OF XT A X =',1PE16.7,','/' WHERE XT MEANS X-TRANSPOSE.'/) : Z " b : Z $
$ . 3: 9 q 3: 9 o : Z " b : Z $
$ . @3: 9 z 3: 9 w+ (' A',I3,8F9.5)+ (' B',I3,8F9.5) " Xb : Z " [b " _b $
$ . : Z $
$ . @3: 9
3: 9 $ D D : Z " b $
$ . Z L3: 9 + (/' E',I3,1PE16.8/(1PE22.8)) $
.D $
.D 3: 9 : Z $
$ . h^ F Z $
$ . (
$ . F 3: 9 ( 3: 9 $!$ D
: Z : Z !$ Dh^ : Z &
$ . &
$ . @ D^3: 9 3 3: 9 1 : Z " . 5$ E!$ D
: Z h^ &
$ . @D
3: 9 ?
D
3: 9 ; 3: 9 0 " cb
+ &-\ Z + 0YES NO Pxj+ v4 k c* j j,!p ,!p "$ . k$ v k. ( / k$ k(. !< dX< *< -|p + ~4 v l* s s,!p ,!p "$ . t$ x s. !< mX< *< -|p -\ h4 v @ {"$ . x5D $ D {+ @@ { w4$ Y5d c D |+ -\ C4 w @ | : Z | : Z }"$ . $ y |. F } }. v!& F3: v9
|. w!& F"$ . |$ y |. F ~ ~. v!& F |3: v9 : Z }"$ . D ~ : Z | {4$ Y5d -\ v4 |4 } @ + "-\ k4 |4 } @ . u $ XD $-\ =4 $ @ }. w 4$ , }. w F }. x | F |3: ~9 }3: v9 !$ D
: Z }"
. w 4$ 8 }. w D
}. x D } D
}3: v9 0 {4$ Y5d B-\ v4 4
@
" .
.
D
-\ v4 4 @
+ H-\ k4 4
@
/
.
D
-\ k4
4
@
. u $ XD J-\ =4 J { |4 P"$ . D
$ . D
"$ .
D
$ .
D
. u
. u
. u 'F ' D y-\ C4 y @
. u
. u D -\ =4
@ @ y-\ C4 y @
. u ' "F
5$ h"`
D
D
D
. u D
D
. u@@ . w@@
. w@@
4D
: Z | {4$ Y5d |-\ v4 |4 @
-\ v4 |4
@
+
-\ k4 |4 @
" .
.
D
. u D
. u
.
u / D
. u
D
. u $ XD
-\ =4
@
. w 4$
. w
F . x | F
. u $ XD
-\ =4
@
. w 4$
. w
F
. x | F |3:
9 u"
.
4D
g
Z ~ {4$ Y5d
*-\ v4 4 ~ @
" .
D
-\ v4 ~4
@
+
.-\ k4 4 ~ @
-\ k4 ~4
@
. u D
. u
.
u / D
. u
D " ~. x. 4D
F
. u $ XD
>-\ =4
> @
~. w 4$
\ ~. w
F ~. x F+
\ ~. w!& F"$ . ~ D
: Z
{4$ Y5d
N
.
D
+
P-\ k4
4 ~ @
. u $ XD
S-\ =4
S @
~. w 4$
Z ~. w
F ~. x
F
3:
9
J
. u $ XD
^-\ =4
^ @
. w 4$
f
. w
F
. x ~ F ~3:
9
"" v.
4D 0
Z } {4$ Y5d
q-\ v4 4 } @
" .
D
.
D
+
u-\ k4 4 } @
-\ k4
4 } @
. u D
. u
.
u / D
. u
D " }. x. 4D "
}. x. 4D
. u $ XD -\ =4 @
}. w 4$ }. w
F }. x F
. u $ XD -\ =4 @
}. w 4$ / }. w
F }. x
F+ / }. w!& F"$ . } D
: Z
{4$ Y5d !
.
D
+ #-\ k4
4 } @
. u $ XD &-\ =4 & @
}. w 4$ - }. w
F }. x
F
3:
9 }3: v9
i
. u D
. u
.
u / D
. u
D : Z |"$ . $ y . F
"$ .
$ y . F
. v D
. v
.
v / D
. v
D 3: v9 =+ / {4d Y : Z | Z y Z z-\ k4 y4 z @ ~ . u ~. u ' F3: v9 Q+ `4 Z t \ u u, p , p ,!p ,!p , p , p ,!p ,!p + k t u\ y/ ,Ap -|p 0c=to8
,> ,> ,> ,> ,> ,> #1P 0 0P 0 * [|4d
!
0 / @
5h
*,> ,>
~ , 3,^ ,^ 0@ +@ <1@ @ =d
4H
! @ 8(
/0 5P
$,^x +
$,^ ,^ : ~,^ ,^ ,^ ,^ ,> x 1H B ,^ ,~ ,> ,>
~ , 3,^ ,^ 7@ 7+@ <=h
* +
H ,> ,> ,> #[~4d
? 1F & 0F & 2d +
D0F +
90d $ ,
A0F +
?[~0$ $ /$ x B 0d ,
A,^ ,^ ,^ ,~ )@ 1 , t=d
A,~ / , t=d
E +
7*@x Qf . |`h d( *
c, 3> 1` 1 +
vl" / ab +
Tab . `b : af~ +
^*
l( d" !+
} @ i1@ +
c1@ +
b0@ 1@ ; 8 +@ <ab *
4L "` [ ab $
j^ / +0
k1f 3&
th,6
5&
o#` $}+
p $ `F
6(: 5F
p+0
t`b "` + +
s0@ "1@ "+
[1@ +
7@ <+ 3=*
~,, : }+ Q,}X, *, /
_ +
Qmb +
_+
}m X" `b +
_+
}lb +
mb *
." l" d" !7@ 7+@ <+
M $ 2 Zp Q" .
/
4, + l2 42
+ 5j
ar + /$ 52 , .
.
52 7 /
/ 5h + . ,
:` + t,~ Lf3 (zpR
$o 46q C [ V 3Lf2 $ 6$ H 2 23 6 6 2,> ,> ,> " @f 7@ O 4B , 3< 1` 1 + l$ / $& . +@ <+
`@ l$ + 8 d& @ i`d "` : ~,^ ,^ ,^ ,~ $ ~,> ,> ,> ,> ( (7@ 2( & 5 l$ "` + && ." 8 ,> 5` /H 5f 6 5$ "#` Q` / + "<F , t=f 7 , t4b $,^ , t=b ",^ ,^ ,^ ,^ ,~ U & ." + $ }42 . ! @ "7 k, kar + . % F8 & F8 & 9.& a! Q` @ Z Q6 `[ X 1@X + 7> [ 7@ }. V ^ V 7; Z X@ V f :O@ `X* @x 7d2 X2 @b Q* D 6 26 + Rd h && & 5+=lr + D 6 H 7/$ $" . + <n* d2 " + <,> ,> ar 0x + Ner + M 7 B 7+ M V 7 V ^ " 9 <, X2 =x Zmr 48 R6`+ Z, ,
0F + r L ,~ ,^ + ;d2 52 v , t=b u+ ;, 37@ 7+@ <=b v+ ;d2 dr "` X
+ ;d2 l2 + ;d2 O@ 5+ ;,
@@ d2 + <& ;7 : X\,~ , + ;l* + l* + ~l* + ~d2 dr + k`j + aR,~ A" ?!` `j ?( G
er + V+ ,> ! i* ,^ Z 1& .& a F `& 9 F #1& + 1F + Z 0@ + l2 !0X Z 1@ + l`r + ;7 ,~ aj + #1F l* , ,> `42 %, H + ' @ `j B ,^ =l Vd* ,~ , H + #6@ :+ ++ vX + ,> S i* ,^ l2 & 9 F #S ^: ^"` 1F ( 1F l2 X ZP `+ `r : *p 1d2 + W8
88 8*848>8 4 R4 sN8% N9g` @& l` * vH= I ^ a y s F ( ] B < H O ~ ~ ~ ~ ~ ( ` { }, h6 47` /+ i6@ 7+ M@8 ?`8 + e0@ ,~ @@ 7 @8 X /6 k+ R6 3, k 8 / D.@ 7 + ` !8 / 'X@ XZ .@ X. <* X XP 8 @ )@_' <X /.@ @@ ' =*!8 C @8 9 @8 : k,~ 6@ 2+ =,> , m7 k, k,^ .@ + U1@ + NQ q`P@8 @8 O@ 7,~ @8 >`8 1@ 7 ,~ 7 5 `8 , c,> , J`L , `L , 1`L , aL @ `L , @@ 7,^ ,~ ,> ,> 7 2+ :` `+ 7 4+ >6 4+ 1B + 1B + 1B + X"k4" 0b + Z + , I, I, I,^ ,^ ,~ @8 7 7+ ?`8 O@ 7+ 7B /+ A@@ 7+ R x p
u` er + $3`8 + 7@8 , %,@8 52 7 2+ B6` 1D 6` `+ !> , t , tO@ `,~ 7 2+ 1D 6`8 + @@ 7er @ , 3, G@@ 7O@ `,~ O@ `` C1@ ,~ +@ <+ S i* Z 1@ + l:@ `,
?`8 l2 @ ,~ 7 2+ E, R, n` &`8 ,> , J`L + V`L , Z
8
7`L , `L , 1`L @ , ,^ ,~ 6@ 1O@ 1X^ 1,~ 6@ 7,~ +@ <? 8 , : 8 0@ 1@ + L+ HO@ 77 k: k?`8 + Q 8 4@ M0@ 1@ + M7 5+ U 8 * & @ % 8 * ' @ & ,~ 6 8+ D, L " GBh > ^!$ " ^: ^2B + Y+ +!> a*> a+ ^v ^ @ a* F0@ + k ` G = a ` Z (Q"` B ^ B p." XB (@@ G* ] (, #, c, rZ` ^+ ]1` 1` , 7/ ` r B 8*" h p @ @ a$ r+r$ z !
* { 6 k+ ~6@ k+ }O@ k+ @@ k@@ 6!2 + 6 k+ k D k@@ O@ 6l2 : .^ 4@ 1` 3 H, @ 94
@ @ @ #,^
HaJ , `j m2 aj @ `j O@ 4`j O@ 4`j I ( D .4F !. I(@ 3D + 9> =f + ! 90` , "& n: 7d .$ n3D J+ 7J , -D
J2J K
J #
H,~ `r , - & .f .. 0f , S ( D X , v Z ! @ - # D ,f K7 4X2 R` ,`j , H ah-, ~ D !, E 96 D "7` , D ;6D, k7 k, 5`r @+ + F $ l$ h f L+@ . L+@ ,~ 97` , D ;6 D " @ !7 6, jS ( , vX Z !6` 6, n6 4, p52 E7`?~+ E aH O@ 6`r @+ `r + Var + V ( 7` : 6@ + V,> ;$$ 0d
+ N6BL+ g M& (@ G G :(@ @ /!"H: B 00d + U6BM+ i,^ , !7 6+ j52 Z, L7`8 , c7 k, k`r + `r + mar + l7 4+ )& M/& 7 2+ .4f )ZN /52 ), B & ' F 5 9 F 5 & C F 6X. 5O@ 96 2+ )+ . B /6BM B 06BM B 1+ U7@ 7 @ 73@ 7,~ @ 7F@ 6,~ 8 @ & 8 @ ',~ ar ,~ N0@ ,~ `Q@8 8 $ @8 ,~ N$ . qQ` P . OY@ 6 X@ ,~ !2 @( 9.( a O @@ /4H )F h F + ~!2 @+ {l2 O@ 5 " D 9 "+ !2 + !2 + " 9 #a, h+ V6 k+ k @ k@@ k 2 + 6 k+ k @ k@@ k P+ 2 9l S` + Q2 . L, + ^Q2 : . . M, +@ <+ ^O@ 2XB8 Q `X 2 @8 > 8 ,~
ENCODE - DECODE ERROR!
& @@ 1+ X, L! H: @ 0, !+ +7 k+ , /( 42 ', P / @ Pf Q+@ + 9,~ : @ > @@ 0 Qf Q+@ , ,~ ar + 37 ,~ ,> ,> 1, ",^ 1,^ 6 k,~ l2 , "d2 ,~ 6 + "d2 ,> ,> 1, ",^ 1,^ l2 , ",~ @@ 0+@ + ;,~ R H /!(H: H 0+@ + >,~ @@ 0+@ ,
,~ R l t+@ ,~ ,> ! G@h ,^ ,~ ,> ! B@h + D,> [ !@@h + DR G R+@ ,~ 7 k+ H* ( N@@ <* 7 @@ P l p +@ + H6 k+ UR X kl x +@ R l l +@ * ( N: <* 6 k+ Ear + ER X kl z +@ : k7 k,~ 7 3+ EO@ 3 8 / k @8 Z 8 . kX@8 + E6 k+ ear , hR l n +@ , B+ HR X kl z +@ ,~ 6 kar + W6 4`r + Waj + S ? @ kZ ?Z?~/ / @ k7`8 , cZ8 [ Z8 .D XH wS?~X8 . T*( k @8 Z 8 . kX@8 ar + T( N < @ k, L, h+ `R l `+@ ,~ R G V+@ ,~ R G W+@ ,~ R l | +@ + ,~ ,> ,> ,> @@ : & W(F 3F + 5F
> 0Z + 4H + $ X(D XD , $ GD ,,^ ,^ ,^ ,~ 3$ X, -3D X $ 3D Y $ 3D Y $ 6 ,~ $ ,~ ( L& I4F > 0h D+ , & F . & D/H ,~ {X7 bH '. ~$?{ 0=Dx |Dx(, E+ , I + 7`8 , E+ O@ 7,~ <8 5h/7@ :+ t@@ :+ +6$ . b3p }I4:iSH
x eX2 p INX . ,. ;$%8 08 . H /@ @ /, ` /M?L@
@ , g+ W ( , @, L+ ` ` @
xh h }~KbN@ ~ Z, z `
1
G d e f g b c-$ 3DIRT.-$ 3DOUBT-$ 3OCTI.-$ 3OCTO.-$ 3LINT.-$ 3LOUT.-$ 3NMLST}i-$ 3DEFINE -$ 3TFMT.-$ 3BINWR-$ 3TPFCN 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 YCT aS iSH 0#@@ '+ &@@ '* ,~ P P@~`(2 0 9Lf3 T=8) z8]U<c\|i,SY{z 0 ! !y #SD &wka -Qa^':s\-6p9O@ <-|p p;@@ <-|p x<C h=#p -|p S0 P?#p +" A-|p U -|p gG@ }xC p 4B N4" OD T)r/" @("XB M(Bn(|D ? D RS D @ 7 T -|p -\ m 0T@@ $ T-|p @ s/M { 8TATTEMPTETO TAKE SQRT OFHNEGATIVEGARG C6Md hY, b-|p [&r h[, b-|p [&r X], b-\ n g-|p C6Md `, b-\ h g-|p p 9 d2a E Wp h"0 ab~ 9 cG@ g,~ xgM2| @h p & 6@ h X h"6 -|p S;+ pm+ oSO n#p % * ( .7!p "` -|p " zZB * " + V b @@ S,~ Z.)Vw(v@Ap :p 7@ S:p @@ S-|p X T> + X Sax + 8 V0x ?+ *18 0+ WA8 + ` ax @ + *8 X X T + X U T 9 U* Uh8 D Y +bX Y7 T U X U T7! U7 YU8,> 8 Z1x ?18 0+ ZA8 + `
WARNING! FORMATTED READ FOLLOWED BY WRITE MAY FAIL.
oHf
& a,~ ,> , _,^ , R-" W&p We6@`+ G$ F1D + sZ _Z _/ > $& 0f $ & $ _ , S=f q, >, [-" W t@L5>p `+ F, _ 8 1$ 00$ + {,> $ /, S,^ .$ , S-" W&p
7aW
ze&tp`+ G, T G, K x /& , K-" W]? ;C&dVK -" WI5r;-XRd
, -" W'
6Y<-" W[?PQp*.j1KL)8k I2@ -" WM&dPC6(0 , J-" W]? w.j1J
+ H-" W]<+wZ5|@M&dP`, J-" W>p m& P`+ H, T, J-" W >*:J+zK$Y-" WiPK~) i>x
tK wVu + H, T(RnWHb, N-" W.j1J.,Wd}``+ H-" WK: sR 8 + H-" WS2dYpX9S
+ H-" W]l[gP>7i@ 9e? -" WeX2DXzi RM?PSK @K$ -" Wa +y>p0 + H,> , T,^ , N-" W:~@_$Y-" WS2dYpX.99W-p`> ^ G, C, C-" WCP\rd
b, C+ s, Q-" WY @_K&(7$mph.992|0` b> ^ & .$ , S=f C+ V !, K, Q+ l7 / !, K+ s7 / ! H , R`bp + K+ V H , S`b` + N+ V $ , S $u $ 4D T
" ,~ , Q $ , S $ + S, TQ"A@ 1D + s1D + ^1D $t1D + I1D + , R+ X, V+ -" WS2dYpX 9C$\A,~ $
^INPUTOUTPT b B ) " b B *@@ )@@ * @ (@@ J* (,~ KK9:`j p @ (-|p KK\syPm,> ,> _p 0b 0b + uZ 0D $ Qp D Z` : )2d (+ v, Q p , x,^ ,^ -|p Q"A` 4D Q, S+ x
6 + -" W
/ 1kRM{@i&lVB " b / *, -" W R~H6d KJ6Jh b / )7 . J, 7@ )+ -" W
us@ \YKAeJ~QsB(P!(xZ~ 4B W :x <K.J7\.,WeLI:K$Y ,~ ." &" tQDx &" ,> 4B , -" W6McA,^ , $ , S[x &" & , -" WN,3@,~ & &" QDx ?` 6@ , [x .$ + Sx( ~x*ig\G @ B3B K@@ > x ,> 8 D B 6 D 3 K ." B B`dp + 0-\ m~ 3,^ : x B,~ 9 < ?: ;, >H AFLOATING OVERFLOW PC=XXXXXX FLOATING UNDERFLOW PC=XXXXXX INTEGER OVERFLOW PC=XXXXXX pDM?\Yic 0F08 I5rH
+ K