Web pdp-10.trailing-edge.com

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.
```?p00@?hX#?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   + -<
"2Dl+4 <|,, <,, <	,, <	,, <	,, <	,, <	,, <	,, <	, <	,
7`k+a \$
```
```3\$k+_ \$.k\$k7 .\$( D|"\$.k DI \$ DK2\$k+C <	, <	,
"k \$ Dk"(.K.k HH H2hk k HH"k.k4(Q5h] <	, <	 ,
<	", (
```
```\$k. <	%,
+] <	&, <	),
<	,,"*.
k/
H k J6 Hm (
```
```\$m. <	/,
:m;,6+W,7K.Hk.HH+G.\$8&D+b <	1,,+4 <o,
"2Dl+ <	>,, <	A,, <	D, <	G,
H3dm+q <	J,,+j k3\$H+o k3\$m+o \$
```
```\$m.H D Fp <	M,, <	P, <	S,
#3Dl+ "3Dl+j <	T,,+v \$
```
``` Dl Dj@dI"k \$ F5 DH H\$&
```
```.H p Fn"&/k.H H (
```
```\$H. *
```
```\$
.
H
(p J p.\$8&:H; 5+ <p,
"k \$ <	W, <	Z,
"
k ( Jn Hm (
```
```\$m. <	\,
:m; n+,.\$8&"k \$ <	], <	`,
"
k ( Jm Hm (
```
```\$m. <	b,
:m; m+,.\$8& <	c, <	f,
"k \$ <	h, <	k,
<	l, (
```
```\$. <	o,
"
k ( JG Hm (
```
```\$.m <	q,
:m; G+.,.\$8&' \$ Dk k DH"k \$ <	r, (
```
```\$. <	u,
"*.
k/
H k JF Hm m <	w,
:m; F+=, (
```
```.Hk.HH.\$8&7"k \$ FE DH\$\$
```
```.H H n Fp"&/k.H H (
```
```\$.H *
```
```\$
H.

(p J p.\$8&J:H; E+E@dj"k \$ FD DH"k \$ FC Dm@fn"k \$ m *
```
```\$
H.
 ,
```
```\$
```
```.
```
```m
```
```0p
```
```(#L n.\$8&V:m; C+U"k \$ FJ Dm2\$H+h@di"k \$ (
```
```\$m.  #nHi.\$8&b iiDj:m; J+`:H; D+S <	y, <	|,
+4 <o,
```
```@}0kI6KljXXX~^\$lX^
```
```XjX
X
XX'~8\$kX9\$KXP\$\$kX~X( pXS\$\$k\$\$HX~X( pXXX]
```
```XiX~^\$lXlXwX~{\$H\$m(DX|	XiX~^\$lXX\$( pX\$( #X\$kX
\$X( p( #X\$( p( 0X
(j0c=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 
.
 F7@
+E"
 \$ D
7\$
+
```
```k5d& <
```
```~,
0 @	~ <
```
```},
0 @
+) <
```
```{,
) @	~"
.
.	~ D
 	~.
  D
```
``` 	~.


.

"
```
```/
```
```

'


 J' 
.


'


 J' 	~.
# D	 
.
3\$'+< 
.
 	 H 
.

 H 
.
# D	 
.
3\$'+D 
.
 	 H 
.

 H:
8&! 
3D	+
```
```"&.	/
 	 F
D
7\$
+
```
```k5dP <
```
```z,
0 @
 
/
 D
 <
```
```x,
0 @
+S <
```
```w,
) @
 <
```
```u,
) @
 
.
  D
```
``` 
.
 
.
"
'

 
 H 
.

 
 H 
.
3D
+h 
.
# D	 
.
3\$+{ 
.
 	 F 
.

 F+{ 
.
@f"\$.
 D
"
\$ D
7\$
+
```
```k5dp 
.
 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
GJVB}K
aeS	YVBPU7RMSQaj~
```
```YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"
&*
```
``` R	WJ
```
```>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz
j
```
```% s
```
```65
3
=%_
```
```na
xo
```
```)
>%s
```
```R]
4o
```
```-
?&
```
```e	nu
%
L&
```
```e
5	o	"
M&/
```
```l8A
J
aE	o&
O-
7	o1)
uFoe
```
```2
O8i
Q	oE8oy
```
```8
```
```g
```
```k8}
S
c
a
```
```p
```
```:
```
```a
79
Tp!
```
```;
```
```c'
a
```
```u
99%
Xp5
```
```?;
:u!
```
```CO
Ac
hw
<y
jtA
~
\
p 
)K!bA
```
```
=P3
```
```~
QSG
```
```}
e`[
```
```{{A
```
```DoI,
G	{!<
dI
```
```z
```
```A
```
```F+
```
```xzA
_
!h
```
```U
```
```Q?
```
```wA
u
5nG
```
```kS
```
```u	|@
Ip[
(?l
]ro
/Sm	hA

qvhu
```
```
```
```%
```
```a
)g
```
```t	hU
zi
```
```
/{
```
```	hii
```
```+
) 
```
```	
ADi1
```
```?
3 #
```
```riE
```
```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
5g`
(R#ij4IK|
%{p9K
A]
9}s9s`%'Ui}w+U^:P!c	",'	bUXw	%,;	c	&,O	ftU4Nlu	),c'|uNm	3	,,w	ht}9
Aq?w #	S8gR
Ur/5Sz 7	T8{S
it4!

```
```_| K9TU^
}v45
```
```s _9#U	qGX
KKP]JP]JavIMI	HHPHGPIGPIFPJFPJEPKEPKD]9DPLCP4Cg6P56P55}P6||P6{oP7nP7nP8m
ma
```
```	lel0v0
k
```
```kfjjfiP\i(Rfp#\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0
```