Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0025/eigsr.exe
There is 1 other file named eigsr.exe in the archive. Click here to see a list.
?p00@?hX#?x " 
 
<++2	`@@(' DO YOU DESIRE USER INSTRUCTIONS, TYPE "YES" OR "NO"--',$)(A3)(/' THIS PROGRAM FINDS THE EIGENVALUES AND EIGENVECTORS OF A'/' REAL SYMMETRIC MATRIX BY THE JACOBI-CORBATO METHOD.'/)(' 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'/)(' 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)(' 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.'/)(14X,'A(',I2,',',I2,')? ',$)('  A(',I2,',',I2,') TO A(',I2,',',I2,')? ',$)(10F)(/' N MUST BE BETWEEN 1 AND 25.  TRY AGAIN.'/)(' ARE ANY OF THE ABOVE A(I,J) ELEMENTS TYPED INCORRECTLY?  IF THE USER'/' WISHES TO CORRECT AN ELEMENT, TYPE "YES".'/)(/' ANY CORRECTIONS?--',$)(' 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.')(/' ILLEGAL COMMAND.  TRY AGAIN.')(///' ORDER =',I3)(//6X,'EIGENVALUE',I3,5X,'EIGENVECTOR')(1P2E19.7/(1PE38.7))(1PE38.7)(/' SUM OF SQUARES OF THE OFF-DIAGONAL ELEMENTS OF XT A X =',1PE16.7,','/' WHERE XT MEANS X-TRANSPOSE.'/)(' A',I3,8F9.5)(' B',I3,8F9.5)(/'  E',I3,1PE16.8/(1PE22.8))YES  NO   + -<
 "2Dl+4 <|,, <,, <	,, <	,, <	,, <	,, <	,, <	,, <	, <	,
7`k+a $
3$k+_ $.k$k7 .$( D|"$.k DI $ DK2$k+C <	, <	,
"k $ Dk"(.K.k HH H2hk k HH"k.k4(Q5h] <	, <	 ,
 <	", (
$k. <	%,
+] <	&, <	),
 <	,,"*.
k/
H k J6 Hm (
$m. <	/,
:m;,6+W,7K.Hk.HH+G.$8&D+b <	1,,+4 <o,
 "2Dl+ <	>,, <	A,, <	D, <	G,
 H3dm+q <	J,,+j k3$H+o k3$m+o $
$m.H D Fp <	M,, <	P, <	S,
 #3Dl+ "3Dl+j <	T,,+v $
 Dl Dj@dI"k $ F5 DH H$&
.H p Fn"&/k.H H (
$H. *
$
.
H 
(p J p.$8&:H; 5+ <p,
 "k $ <	W, <	Z,
"
k ( Jn Hm (
$m. <	\,
:m; n+,.$8&"k $ <	], <	`,
"
k ( Jm Hm (
$m. <	b,
:m; m+,.$8& <	c, <	f,
"k $ <	h, <	k,
 <	l, (
$. <	o,
"
k ( JG Hm (
$.m <	q,
:m; G+.,.$8&' $ Dk k DH"k $ <	r, (
$. <	u,
"*.
k/
H k JF Hm m <	w,
:m; F+=, (
.Hk.HH.$8&7"k $ FE DH$$
.H H n Fp"&/k.H H (
$.H *
$
H.
 
(p J p.$8&J:H; E+E@dj"k $ FD DH"k $ FC Dm@fn"k $ m *
$
H.
 ,
$
.
m 
0p
(#L n.$8&V:m; C+U"k $ FJ Dm2$H+h@di"k $ (
$m.  #nHi.$8&b iiDj:m; J+`:H; D+S <	y, <	|,
+4 <o,
@}0kI6KljXXX~^$lX^
XjX
X
XX'~8$kX9$KXP$$kX~X( pXS$$k$$HX~X( pXXX]
XiX~^$lXlXwX~{$H$m(DX|	XiX~^$lXX$( pX$( #X$kX
$X( p( #X$( p( 0X
(j0c=tK&: \
 !p @
 !p @
 p @
 p @
 !p @
 !p @
 p @
 p @
+
/S+`"p."$p7 ."( p/ $
.p.,~+
3S*$` p/ $
.p,~d
 D
 $2D
+
7 $ D
+
7@d
7$
+
k5d
: 
 D
+
<,<
"
 $ F
 D
"
 $"(.$
.
 H
.
@j'.$8&
? 
.
@f"$.
$
.
 D
.
!& F:
; 
+
> &/
 $ F
 D

/$ D
"
 $ D
7$
+
k5d
S,<
0 @
+
T,<
) @
 
.
# D
 

.
3$'+
\ 

.
 
 H 

.
 
 H:
8&
O:

; 
+
M@d
 &/
 $ .
 '3(
+
h .
 ' H
 .
 ' H
 D
	.$8&
a7$
+
k5d
p,<
0 @
"
.
	.
 D

<
0 @	}+
u,<
) @
 
/
	.
,D	} <
) @

 
.
#
3$
+
b"$.
 D
 $.
 D	"$.
	 D
 $.
	 D
 
.
 H 

.
 
	}.

 
/


 J
,<
 

.
 	}.
  F
#

$D D
,<
 

 

.

"/ D
5&"d
 

 D
 

 D
 

 D
 
.
 D
 D
	 
.
@f 
.
 F 
	.
 F7@
+E"
 $ D
7$
+
k5d& <
~,
0 @	~ <
},
0 @
+) <
{,
) @	~"
.
	.	~ D
 	~.
  D
 	~.
 

.

"
/

 
'


 J' 
.

 
'


 J' 	~.
# D	 
.
3$'+< 
.
 	 H 
.
 
 H 
.
# D	 
	.
3$'+D 
	.
 	 H 
	.
 
 H:
8&! 
	3D	+
"&.	/
 	 F
 D
7$
+
k5dP <
z,
0 @
 
/
 D
 <
x,
0 @
+S <
w,
) @
 <
u,
) @
 
.
  D
 
.
 
.
"
'

 
 H 
.

 
 H 
.
 3D
+h 
.
# D	 
.
3$+{ 
.
 	 F 
.
 
 F+{ 
.
@f"$.
 D
"
 $ D
7$
+
k5dp 
.
 D
+r <
t,
) @
 
.
# D	 
.
3$'+z 
.
 	 H 
.
 
 H:
8&m 
.
# D	 
	.
3$+
 
	.
 	 F 
	.
 
 F:
; 
+I 
	3D
+
F"&/
.
 
 F
 D

7$
+
k5d
 <
r,
0 @
 
/
 D
.
	 D	~+
 <
q,
) @
 <
o,
) @	~ 
.
  D
 
.
 	~.
"
'

 
 H 	~.

 
 H 

.
 3D
+
2 

.
 3D
	+
2 
.
# D	 

.
3$+
) 

.
 	 F 

.
 
 F 	~.
# D	 

.
3$+
D 

.
 	 F 

.
 
	 F+
D 

.
@f"$.

 D
"
 $ D
7$
+
k5d
: 
.
 D
+
; <
n,
) @
 
.
# D	 

.
3$'+
C 

.
 	 H 

.
 
 H:
8&
6:

; 
+
	 	}.
  D
 	}.
 

.
 
'

 

	 H 

.

 

	 H"
 $"(.
$
. H	~"*.

	$

.
 J
.
 
' L
 	~.
.

"/
 '
 N' 
.


 
'


 J'.$8&
R+
_7`
+
k &/
 $ D
 <
l,
) @
 
.
 
.
 ' H:
8&
e 
,~p

p


p
	

p


p


p

p

	p

p

	p

p

p

	p

x
x
p
	
	p

	p

p

	p


p


x
	`Z(X^.*>X.~(3~+M?}
&b+
?NO CORE AVAILABLE - CAN NOT PROCEED
gG@1,>#p@,~4B
#p+>attempt to take SQRT of negative argKbN@1,>
,~6
GJVB}K
aeS	YVBPU7RMSQaj~
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz
j
% s
65
3
=%_
na
xo
)
>%s
R]
4o
-
?&
e	nu
%
L&
e
5	o	"
M&/
l8A
J
aE	o&
O-
7	o1)
uFoe
2
O8i
Q	oE8oy
8
g
k8}
S
c
 a
p
:
a
79
Tp!
;
c'
a
u
99%
Xp5
?;
:u!
CO
Ac
hw
<y
jtA
~
\
p 
)K!bA

=P3
~
QSG
}
e`[
{{A
DoI,
G	{!<
dI
z
A
F+
xzA
_
!h
U
Q?
wA
u
5nG
kS
u	|@
Ip[
(?l
]ro
/Sm	hA

qvhu

%
a
)g
t	hU
zi	

/{
	hii
+
) 
	
ADi1
?
3 #
riE
S
0 7
q
a
b
_
2 K
o
A{im
!
s
0 _
6	qG


m
av

K

	
C

PH
PI
PI

PJ
T
i



P4
g
P5
G
{B
P5


P6

P6
P7
P7
0K
_
P8



W


	
	

u
R
B
{B
e
M

-
J
B
/




f

8
=w		~V	~C	}5
 5g`
(R#ij4IK|
%{p9K
A]
9}s9s`%'Ui}w+U^:P!c	",'	bUXw	%,;	c	&,O	ftU4Nlu	),c'|uNm	3	,,w	ht}9
Aq?w #	S8gR
Ur/5Sz 7	T8{S
it4!

_| K9TU^
}v45
s _9#U	qGX
KKP]JP]JavIMI	HHPHGPIGPIFPJFPJEPKEPKD]9DPLCP4Cg6P56P55}P6||P6{oP7nP7nP8m
ma
	lel0v0
k
kfjjfiP\i(Rfp#\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