Web pdp-10.trailing-edge.com

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, "FB~ "L.5D& "Gb  "Sb  "ib  "tb  "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 "4b +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 "Lb  "UB~ \$
```
```\$. +o "Ob	  "UB~  Z	 \$
```
```\$.3:	9i  .D .D	+Y 3:9V+y "sb +&+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?--',\$)     "FB~ "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  "FB~ "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) "Xb  : 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 "cb
```
``` +&-\Z +0YES  NO   Pxj+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!& F3: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 ' F3:v9Q+`4 Zt \u  u, p, p,!p,!p, p, p,!p,!p+k t u\ y/ ,Ap-|p0c=to8
```
```,>,>,>,>,>,> #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 B0d,
```
```A,^,^,^,~  )@1   ,t=d
```
```A,~/  ,t=d
```
```E +
```
```7*@xQf. |`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ZpQ".
```
```/
```
```4,+l2 42
+5j
ar+/\$52 ,.
```
```.
```
```527 /
```
```/5h+.,
:`+t,~ Lf3(zpR
```
```\$o46qC[V3Lf2\$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`[X1@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,~,^+;d252v  ,t=bu+;,37@7+@<=bv+;d2dr"`X
+;d2l2 +;d2O@5+;,
```
```@@d2+<&;7 :X\,~,+;l*+l*+~l*+~d2dr +k`j+aR,~A"?!``j?(G
er+V+,>! i* ,^Z1&.&a F`&9 F#1&+1F+Z0@+l2!0X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+W8
```
```88 8*848>84R4sN8%N9g`@&l`*vH=I^a ysF(]B<HO~~~~ ~(`{},h6 47`/+i6@7+M@8?`8+e0@,~@@7  @8X/6 k+R6 3,k 8/ D.@7 +` !8/ 'X@XZ.@X.<* XXP8 @)@_'<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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,: 80@1@+L+HO@77 k:k?`8+Q84@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 4X2R`,`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
```
```+N6BL+g M& (@GG:(@ @/!"H: B00d+U6BM+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/6BM B06BM 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 / @ PfQ+@+9,~: @>@@0 Qf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Z8.kX@8+E6 k+ear ,hRl n+@,B+HRXkl z+@,~6 kar +W6 4`r+Waj+S ? @kZ?Z?~//  @k7`8,cZ8[Z8.DXHwS?~X8.T*( k @8Z8.kX@8ar+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,~{X7 bH'.~\$?{0=Dx|Dx(,E+   ,I +7`8,E+O@7,~<85h/7@:+t@@:++6\$.b3p}I4:iSH
```
```x eX2pINX.,. ;\$%808.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INXGYC GSHiSHaSaSI'IR
IR
IR
0IR
@IR
PIR
`IR
p[R
[R
[R
+M?L@INZINZINZ+INZ0INZ@I2I2 I20I2@I2PeX2GiSHYCTaSiSH0#@@'+&@@'*,~PP@~`(209Lf3T=8)z8]U<c\|i,SY{z0!!y#SD&wka-Qa^':s\-6p9O@<-|pp;@@<-|px<Ch=#p-|pS0P?#p+"A-|pU-|pgG@}xCp4BN4"ODT)r/"@("XBM(Bn(|D?DRSD@7T-|p-\m0T@@\$T-|p@s/M{8TATTEMPTETOTAKESQRTOFHNEGATIVEGARGC6MdhY,b-|p[&rh[,b-|p[&rX],b-\ng-|pC6Md`,b-\hg-|pp9d2aEWph"0ab~9cG@g,~xgM2|@hp&6@hXh"6-|pS;+pm+oSOn#p%*(.7!p"`-|p"zZB*"+V	b@@S,~Z.)Vw(v@Ap:p7@S:p@@S-|p XT>+ XSax +8V0x?+*180+WA8+`ax@+*8X XT + XU T 9U*Uh8DY+bXY7T U XU T7!U7YU8,>8Z1x?180+ZA8+`
WARNING! FORMATTED READ FOLLOWED BY WRITE MAY FAIL.
oHf
&a,~,>,_,^,R-"W&p	We6@`+G\$F1D+sZ_Z_/>\$&0f\$ &\$ _,S=fq,>,[-"Wt@L5>p`+F,_ 81\$00\$+{,> \$/,S,^.\$ ,S-"W&p
7aW
```
```ze&tp`+G,T G,K x/& ,K-"W]? ;C&dVK-"WI5r;-XRd
```
``` ,-"W'
6Y<-"W[?PQp*.j1KL)8kI2@-"WM&dPC6(0,J-"W]? w.j1J
```
```+H-"W]<+wZ5|@M&dP`,J-"W>p	m&P`+H,T,J-"W>*:J+zK\$Y-"WiPK~)i>x
```
```tKwVu+H,T(RnWHb,N-"W.j1J.,Wd}``+H-"WK: sR	 8+H-"WS2dYpX9S
```
```+H-"W]l[gP>7i@	9e?-"WeX2DXzi RM?PSK@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\$mph.992|0` b>^ &.\$,S=fC+V !,K,Q+l7/ !,K+s7/ ! H,R`bp+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* (,~KK9:`j p @(-|pKK\syPm,>,>_p0b0b+uZ 0D \$Qp D Z`:)2d(+v,Q p,x,^,^-|pQ"A`4DQ,S+x
6+ -"W
/	1kRM{@i&lVB "	b/*,-"WR~H6dKJ6Jh 	b	/)7 .J,7@)+-"W
us@\YKAeJ~QsB(P!(xZ~4BW:x	<K.J7\.,WeLI:K\$Y,~."&"tQDx&",>4B,-"W6McA,^, \$,S[x&" &,-"WN,3@,~ &&"QDx?`6@,[x.\$+Sx(~x*ig\G @B3BK@@>x,> 8 DB 6 D3 K."BB`dp+0-\m~ 3,^:x B,~9 <?:;,>HAFLOATING OVERFLOW	PC=XXXXXXFLOATING UNDERFLOW	PC=XXXXXXINTEGER OVERFLOW	PC=XXXXXXpDM?\Yic 0F08I5rH
```
```+K
```