Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

X&YPMM	@KL-^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.5DF "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~	
  /	4d8 "$b +".5d6".	5d6 $

$	. 
 F "	b  "FB~ "L.4DF"L.4D "-b += $

 D
 $

 D!$ D : Z &

$.  Dh^  Z	 $

$. (

$.44F3:9M 3:9I-\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:9q  3:9o : Z "
b : Z	 $

$.@3:9z  3:9w+
(' 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	 $

$. (

$.   F3:9( 3:9$!$ D

 : Z : Z	!$ Dh^ : Z &

$.	  &

$.@ 	D^3:93 	3:91 : Z	".5$E!$ D

 : Z h^ &

$	.@D

3:9? 



D

 	3:9; 3:90 "cb

 +
&-\Z +0YES  NO   Pxj+v4k  c* j  j,!p,!p"$.k$v k.
 (/k$k(. 
!<dX<
*<-|p
+~4v  l* s  s,!p,!p"$.t$x s.
 
!<mX<
*<-|p
-\h4v @{"$.x5D	 $ D{+	@@{ w4$Y5d	 c D|+	-\C4w @| : 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	$ @  }.w4$	, }.w  F }.x | F |3:~9	 }3:v9	!$ D

 :
 Z}"

 .w4$	8 }.w  D

 }.x  D } D

 }3:v9	0 {4$Y5d	B-\v44

 @

".

.

 D

-\v44 @

+	H-\k44

 @

 /

.

 D

-\k4

4

 @

 

.u $XD	J-\=4	J{|4 P"$. D

 $. D

"$.

 D

 $.

 D

 

.u  

.u
 

.u 'F
'
 Dy-\C4y @

 

.u  

.u D-\=4

 @ @y-\C4y @

 



 

.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
 @

	 

	 .w4$
 .w 

	 F .x | F 

.u $XD
-\=4
 @

	 

	 

.w4$
 

.w 

	 F 

.x | F |3:

9	u"

.

4D
g 

 Z~ {4$Y5d
*-\v44~ @

".

 D

-\v4~4

 @

+
.-\k44~ @

-\k4~4

 @

 

.u  D

	 

 

.u 

 

.
u/ D 

 

.u 



	 D" ~.x.4D
F 

.u $XD
>-\=4
> @

	 

	 ~.w4$
\ ~.w 

	 F ~.x  F+
\ ~.w!& F"$.~ D

 : Z

 {4$Y5d
N 

.

 D

+
P-\k4

4~ @

 

.u $XD
S-\=4
S @

	 

	 ~.w4$
Z ~.w 

	 F ~.x 

 F 

3:

9
J 

.u $XD
^-\=4
^ @

	 

	 

.w4$
f 

.w 

	 F 

.x ~ F ~3:

9
""v.

4D0 

 Z} {4$Y5d
q-\v44} @

".

 D

 

.

 D

+
u-\k44} @

-\k4

4} @

 

.u  D

	 

 

.u 

 

.
u/ D 

 

.u 



	 D" }.x.4D"

 }.x.4D 

.u $XD-\=4 @

	 

	 }.w4$ }.w 

	 F }.x  F 

.u $XD-\=4 @

	 

	 }.w4$/ }.w 

	 F }.x 

 F+/ }.w!& F"$.} D

 : Z

 {4$Y5d! 

.

 D

+#-\k4

4} @

 

.u $XD&-\=4& @

	 

	 }.w4$- }.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 



	 D3:v9=+	/ {4dY :
 Z| Zy Zz-\k4y4z @~ .u ~.u ' F3:v9Q+`4 Zt \u  u, p, p,!p
,!p
, p, p,!p,!p+k t u\ y/ ,Ap
-|p0c=to8

,>,>
,>,>,>,> #1P 00P 0 *[|4d

! 

0 
/@

5h

*,>,> 

~ ,3,^,^0@+@<1@  @=d

4H

!  @8(

   /05P

$,^x+

$,^,^:~,^,^,^
,^,> x1H B,^,~,>,> 

~ ,3,^,^7@7+@<=h

* +

H,>
,>
,> #[~4d

? 1F &0F &2d
+

D0F+

90d $,

A0F+

?[~0$ $/$ x B0d,

A,^,^
,^
,~  )@1   ,t=d

A,~/
  ,t=d

E 
+

7*@xQf.
 |`hd(*

c,3>1`1 +

vl"/ ab +

Tab
.`b
:
af~+

^*

l(d"!+

} @i1@+

c1@+

b0@1@;8
+@<ab*

4L"`
[
ab$

j^/+0

k1f3&

th,6

5&

o#`
 $}+

p $`F

6(:
5F

p+0

t`b"`++

s0@"1@"+

[1@+

7@<+3=*

~,,:}+Q,}X,*,/

_  +

Qmb
+

_+

}mX"`b+

_+

}lb+

mb*

."l"d"!7@7+@<+

M$2ZpQ"
.

/

4,+l2 42
+5j
ar+/$52
 ,
.

.

527 /

/5h+
.,
:`+t,~ Lf3(zpR

$o46qC[V3Lf2$6$H22366 2,>
,>
,>"@f
7@O4B,3<1`1 +l$/ $&.+@<+
`@l$+8
d&@i`d"`

:~,^,^
,^
,~$~,>
,>,>
,>((7@2(&5l$"`+&&."8,>5` 
/H
5f6 
5$"#`
Q`
/
 +"<F ,t=f7 
  ,t4b$,^,t=b",^,^
,^,^
,~U & ."+$}42. ! @"7 k,kar+. % F8 & F8
&9.&a! Q` @ZQ6
`[X1@X+7>[7@  }. V^ V7;Z
X@ Vf:O@`X*@x7d2
X2@bQ*  D626+Rd h 
&&& 5+
=lr+D 6 H7/$$".
+<n*d2 "+<,>,>ar
0x+Ner+M 7 B7+M V7 V^ "9<,X2=xZmr
48R6`+Z,,

0F+r L,~,^+;d252v  ,t=bu+;,37@7+@<=bv+;d2dr"`X
+;d2l2 +;d2O@5+;,
 

@@d2+<&;7 :
X\,~,+;l*+l*+~l*
+~d2dr +k`j+aR,~A"?!``j?(G
er
+V+,>! i* ,^Z1&.&a F`&9 F#1&+1F+Z0@+l2!0XZ1@+l`r
+;7 ,~aj+ #1Fl*
,
,> `42%,H+' @`j
 B,^=lVd*,~  ,H+#6@:+++vX+,>S i* ,^l2&9 F#S^:^"`1F(1Fl2XZP`+`r:*p1d2+W8

88 8*848>84R4sN8%N9g
`@&l`
*vH=I^a ysF(]B<HO~~~~ ~(`{},h6 47`/+i6@7+M@8?`8
+e0@,~@@7  @8X/6 k+R6 3,k 8
/ D.@
7 
+` !8/ 'X@XZ.@X.<* XXP8 @)@_'<X/.@
@@' =*!8  C @8
 9 @8:k,~6@2+=,>,m7 k,k,^.@
+U1@+NQ 
q`P@8  @8O@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,^,^,~@87 7+?`8
O@7+7B/+A@@7+R	x	p
	
u`er+ $3`8+7@8,%,@8
5272+B6`1D6``+!>,t ,tO@`,~72+1D6`8
+@@7er@,3,G@@7O@`,~O@``C1@,~+@<+S i* Z1@+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
,: 80@1@+L+HO@77 k:k?`8
+Q84@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^ Bp." 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 Dk@@O@6l2 :.^4@1`3 H, @94 

 @ @
 @#,^
HaJ,`jm2aj@`jO@4`j
O@4`j  I (D .4F!.
 I(@3D+9>=f+! 90`,"&n:
7d.$ n3DJ+
7J
,-D
J2JK 

 J#
H,~`r,- &.f..
0f,S
( D X,v Z! @- # D,fK7 4X2R`,`j, Hah-,~ D!,E 96  D"7`
, D;6D,k7 k,5`r@++F $l$hfL+@
.L+@
,~ 97`
, D;6  D" @!7 6,jS
(,vX Z!6`6,n6 4,p52E7`?~+E  aH
O@6`r@+`r
+Var+V 
(7`:6@ +V,> ;$$0d

+N6BL+g M& (@GG:(@ @/!"H: B00d+U6BM+i,^,!7 6+j52Z,L7`8,c7 k,k`r+`r
+mar +l7 4+)&M/&7 2+.4f)ZN/52),B &' F5 9 F5 &C F6X.5O@96 2+)+. B/6BM B06BM B1+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)FhF
+~!2@+{l2O@5 " D9 "+!2+!2+"9 #a,h+V6 k+ k @k@@k 2+6 k+ k @k@@k P+29l
S`+Q2  .L,+^Q2 :. .M,+@<+^O@2XB8
Q 
`X2 @8>8,~

ENCODE - DECODE ERROR!

&@@1+X,L! H: @0,!++7 k+, /(42',P / @ PfQ+@+9,~:
 @>
@@0 QfQ+@,,~ar +37 ,~,>
,>1,",^1,^
6 k,~l2,"d2,~6 +"d2,>
,>1,",^1,^
l2,",~@@0+@+;,~ R H/!(H: H0+@+>,~@@0+@,

,~Rl t+@,~,> !  
G@h,^,~,> !  
B@h+D,>[!@@h
+DRGR+@,~7 k+H*(N@@ <*  7@@Pl p+@+H6 k+URXkl x+@Rl l+@*(N: <*6 k+Ear +ERXkl z+@:k7 k,~7 3+EO@3 8
/k @8
Z8.kX@8+E6 k+ear ,hRl n+@,B+HRXkl z+@,~6 kar +W6 4`r+Waj+S ? @kZ?Z?~/
/ 
 @k7`8,cZ8[Z8.DXHwS?~X8.T*( k @8
Z8.kX@8ar+T(N  < @k,L,h+`Rl `+@,~RGV+@,~RGW+@,~Rl |+@+ ,~,>,>
,>@@ :&W(F3F
+5F

 >0Z+	4H+$X(DXD, $GD,,^,^
,^,~3$X,-3DX $
3DY $
3DY $6 
,~ $,~ (L&I4F>0hD+, & F. &D/H
,~{X7 bH'.
~$?{
0=Dx|Dx(,E+   ,I +
7`8
,E+O@7,~<85h/7@:+t@@:++6$.b3p}I4:iSH

x eX2pINX.,.
 ;$%808.H/@@/,`/M?L@

@,g+W (,@,L+`	`@

xhh}~KbN@~ Z,z	`



1

Gdefgbc-$3DIRT.-$3DOUBT-$3OCTI.-$3OCTO.-$3LINT.-$3LOUT.-$3NMLST}i-$3DEFINE-$3TFMT.-$3BINWR-$3TPFCNINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
+M?L@INZINZINZ+INZ0INZ@I2I2 I20I2@I2PeX2GiSHYCTaSiSH0#@@'+&@@'*,~PP@~`(209Lf3T=8)z8]U<c\|i,SY{z0!!y#SD&wka-Qa^':s\-6p9O@<-|pp;@@<-|px<Ch=#
p-|pS0P?#
p+"A-|pU-|pgG@}xCp4BN4"ODT)r/"@("XBM(Bn(|D?DRS
D

@7T-|p-\m0T@@$T-|p@s/M{8TATTEMPTETOTAKESQRTOFHNEGATIVEGARGC6MdhY,b-|p[&rh[,b-|p[&rX],b-\ng-|pC6Md`,b-\hg-|p
p9d2aE
Wph"0ab~9cG@g,~xgM2|@h
p&6@hXh"6-|pS;+pm+oSOn#
p%
*(.7!p"`-|p"zZB*"+V	b@@S,~Z.)Vw(v@Ap:
p7@S:
p@@S-|p XT>+ XSax +8V0x?+*180+WA8+`ax@+*8X XT + XU T 9U*Uh8DY+bXY7T U XU T7!U7YU8,>8Z1x?180+ZA8+`
WARNING! FORMATTED READ FOLLOWED BY WRITE MAY FAIL.
oHf
&a,~,>
,_,^
,R-"W
&p	We6@`+G$F1D+sZ_Z_/>
$&0f$ &$ _,S=fq,>,[-"Wt@L5
>p`+F,_ 81$00$+{,>
 $/,S,^
.$ ,S-"W&p
7aW 

ze&tp`+G,T G,K x/&
 ,K-"W]? ;C&dVK-"WI5r
;-XRd

 ,-"W
'
6Y<-"W[?PQp*
.j1KL)8kI2@-"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

tKw
Vu
+H,T(RnWHb,N-"W
.j1J.,Wd}``+H-"WK: s
R	 8+H-"WS2dYpX9S

+H-"W]l[gP>7i@	9e?-"WeX2
DXzi RM?PSK@K$-"Wa
+y
>p0+H,>
,T,^
 ,N-"W
:~@_$Y-"WS2dYpX.99
W-p`>^ G,C,C-"WCP\rd

 b,C+s,Q-"WY@_K&(7
$mph.99
2|0` b>^ &.$,S=fC+V !,K,Q+l7/ !,K+s7/ ! H,R`bp+K+V H,S`b`+N+V $,S $u $4DT
"
,~,Q $,S $+S,TQ"A@1D+s1D
+^1D $t1D+I1D+,R+X,V+-"WS2dYpX9C$\A,~$

^INPUTOUTPT	b	 B) "	b B*@@)@@*  
 @(@@  J* (,~KK9:`j 
p @(-|pKK\syPm,>,>
_p0b0b+uZ 0D $Qp D Z`
:)2d(+v,Q p,x,^
,^-|pQ"A`4DQ,S+x
6+ -"W
/	1kRM{@i&lVB "	b/*,-"WR~H6
dKJ6Jh 	b	/)7 .J,7@)+-"W
us@\YKAeJ~QsB(P!(xZ~4BW:x	<K.J7\.,WeLI:K$Y,~."&"tQDx&",>
4B,-"W
6McA,^, $,S[x&" &
,-"W
N,3@,~ &&"QDx?`
6@,[x.$+Sx(
~x*ig\G @B3BK@@>x,>
 8 DB 6 D3 K
."BB`dp+0-\m~ 3,^
:x B,~9 <?:;,>HAFLOATING OVERFLOW	PC=XXXXXXFLOATING UNDERFLOW	PC=XXXXXXINTEGER OVERFLOW	PC=XXXXXXpDM?\Yic 0F08I5rH

+K